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
BUENAS TARDES A TODOS.
AQUI DENUEVO CON UN GRAN PROBLEMA PARA MIIIIIIIIIIII.
NECESITO DE SU AYUDA, TENGO UNA HOJA EN EXCEL QUE SE IMPRIME DOS VECES Y NECESITO QUE EN CADA UNA SE IMPRIMA UN PIES DE PAGINA DISTINTO
EN UNA EL PIES DE PAGINA DIGA " COPIA" Y EN LA OTRA "ORIGINAL"
ESTE ES EL MACRO QUE USO PARA IMPRIMIR
Sub Imprime_horarios()
Application.ScreenUpdating = False
For Each pestaña In Worksheets
If pestaña.Name = "nombres" Then GoTo otra:
pestaña.Activate
If Range("d6") <> 0 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=2
pestaña.PrintOut
End If
otra:
Next pestaña
Sheets("nombres").Activate
Application.ScreenUpdating = True
End Sub
DENTRO DE ESTE MISMO MACRO NECESITO QUE SE PUEDA PONER EL PIES D EPAGINA