Puedes colocar en el modulo Thisworkbook
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
Dim resp As Integer
Application.EnableEvents = False
resp = CInt(Application.InputBox("¿Cuántas copias quiere imprimir?", "Cantidad de Copias", Type:=2))
Hoja1.PrintOut copies:=resp
Hoja2.Cells(Rows.Count, "a").End(xlUp).Offset(1, 0) = resp
Application.EnableEvents = True
End Sub
esta podria ser una Base para el tema.... |