Macro para imprimir una hoja de excel
Buen dia expertos, tengo la siguiente macro para imprimir una hoja de excel y funciona muy bien:
Sub Impresion_de_reporte()
' Impresion_de_reporte Macro
' Imprimir hojas
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveCell.Offset(0, 1).Range("A1").Select
End Sub
Funciona cuando le doy click a una imagen de una impresora. Pero ahora lo que quiero es que antes de imprimir me aparezca un cuadro que me pregunto si estoy seguro de imprimir (si o no). ¿Qué mas le podría anexar a este código?
Ojala me explique, saludos y gracias Javier
2 Respuestas
Este código te ayuda con lo que necesitas
Sub Impresion_de_reporte()
' Impresion_de_reporte Macro
' Imprimir hojas
' Esta parte te pregunta si deseas imprimir con el evento vbYesNo y coloca tu respuesta en la variable Resp
Resp = MsgBox("Esta seguro de realizar la impresión", vbYesNo, "Imprimir")
' Luego con If valido tu respuesta si fue Yes o No y dependiendo de eso sigo con la impresión o me salto esos códigos y te aviso que has cancelado la impresión.
If Resp = Yes Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveCell.Offset(0, 1).Range("A1").Select
Else
MsgBox "Usted ha cancelado la impresión"
End If
End Sub
Sub Impresion_de_reporte()
Dim s As Byte
'4c7569735f50
' Impresion_de_reporte Macro
' Imprimir hojas
s = MsgBox("Seguro deseas imprimir ? ", vbQuestion + vbYesNo, "imprimir")
If s = 7 Then Exit Sub
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveCell.Offset(0, 1).Range("A1").Select
End Sub