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,
He buscado información sobre este tema, pero no sé si se debe a mi versión de excel (office 2007 para Mac).
El siguiente código me da como resultado, la impresión en PDF de todo el libro en vez de la hoja que necesito.
Sheets("Hoja1").Select
'ActiveSheet.SaveAs Filename:= _
"Macintosh HD:Users:davidpoblete:Documents:Espai Jazz:Contabilidad:" & "Respaldo Datos Contables" & "_" & Range("D72") & ".pdf" _
, FileFormat:=xlPDF, PublishOption:=xlSheet
Gracias y espero haber seguido correctamente las reglas, hacía tiempo que no publicaba,
saludos cordiales,
Rodia.