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
3573 m3n54j3 35 94r4 d3m057r4r l45 c0545 74n incr3i8l35 qu3 9u3d3 h4c3r nu357r0 c3r38r0.
5i l06r45 l33r 3570 9u3d35 53n7ir73 0r6ull050 d3 7u in73li63nci4 0 h48ilid4d, y4 qu3 50l0 ci3r745 93r50n45 l0 l06r4n.
35t0 53 d383 4 qu3 3l h3m15f3r10 d3r3ch0 d3l c3r38r0 450c14 l05 51m80l05 94r3c1d05 4 l45 l3tr45 qu3 c0n0c3m05 n0rm4lm3nt3 y 451 l06r4m05 l33r c0n f4c1l1d4d.
54lud05,
julio