Instrucción para visualizar impresión no se ejecuta desde botón de Userform
Tengo la siguiente instrucción para visualizar una hoja a imprimir en un modulo la cual al ejecutarla ahí funciona perfecto, pero cuando la mando a llamar de un CommandButton que esta en userform ya no se ejecuta y se queda colgado el archivo. Anexo instrucciones para que me digan en que estoy fallando.
'En el modulo3 esta esta instruccion
Sub vistaprevia()
Sheets("ValeCompras").Select
ActiveSheet.PrintPreview
End Sub
'En el boton del Userform esta esta otra instruccion
Private Sub CommandButton6_Click()
Call vistaprevia
End Sub
1 Respuesta
Me parece que deberías cerrar el form para que funcione la vista previa
Te dejo algo parecido a ver si te sirve
"este es el botón"
Private Sub imprimirboton_Click()
Unload Me
Call vistaprevia
"esta seria la macro"
Sub vistaprevia()
Sheets("ValeCompras").Select
ActiveWindow.SelectedSheets.PrintPreview 'vista preliminar (*)
'Para la impresión final, reemplazá PrintPreview por PrintOut
' userform.Show
end sub
@Cristian Lopez Cechini no funciono lo recomendado te anexo archivo para que lo análisis y me des tus observaciones.
https://mega.nz/#!yVwCWCrb!4VwPBGgYScG8P8cwmf1nbF8q5VXm_L1AUycd8X1Rjbc
Sub vistaprevia()
Sheets("ValeCompras").Select
ActiveSheet.PrintPreview
'ActiveWindow.SelectedSheets.PrintPreview
Salidas.Show
End Sub
