Saludos Profesor Sergio, de ante mano gracias por responder, realice lo que me sugirió coloque el código donde me indicó, sin embargo me sigue arrojando el mismo error.
' Restaurar formato de fuente
With wsHistorico.Rows("2:2").Font
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With
' Incrementar automáticamente el número de recibo
wsRecibo.Range("J2").Value = wsRecibo.Range("J2").Value + 1
'Corrección de Error en impresión
Application.Wait (Now + TimeValue("0:00:01"))
' Imprimir
wsRecibo.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
Por
dorgelis, · publicado
Hola a todos:
Después de leer las reglas del foro y de estar tres días viendo los temas del foro que
me han dejado boquiabierto con las cosas que haceis con Excel, me presento:
Me conecto desde la "villa Armera", estoy prejubilado y me gusta enredar con este
"cacharro".
He hecho varios trabajos puntuales con Excel y Access, pero para andar por casa.
No tengo ni idea de VB así que.... lo mas parecido para mí es el BBVA.
Ha!, ya me he visto el video del loro. Muy bueno.
Voy a revisar lo de subir archivos porque ya tengo en proyecto arreglar una hoja que
tengo. Bueno, saludos a todos los del foro, que ya he comprobado que sois geniales.