Libro Excel con varias hojas, macro para guardarlas como PDF de forma continua en el mismo archivo
Suelo usar este código
Range("A1:G18").Select
Selection.ExportAsFixedFormat Type:=xlTypePDF, _Pero no se como hacer para imprimir ese rango de celdas en las distintas hojas que pudiera tener el archivo y que queden un a continuación de la otra en el PDF
1 Respuesta
Respuesta de david ..
1
I. Hola Dani, por mi parte he visto una macro concreta creada por el experto Dante Amor junto a algunas páginas con tutoriales, quizás sean de ayuda,
Sub PDFyLibro()
'Por.Dante Amor
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Set l1 = ThisWorkbook
ruta1 = "C:\ruta\de\ejemplo\FacturasPDF\"
ruta2 = "C:\ruta\de\ejemplo\FacturasExcel\"
'
l1.Sheets("Imprimir").ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ruta1 & "imprimir.pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
Sheets("Opciones").Copy
Set l2 = ActiveWorkbook
l1.Sheets("Imprimir").Copy After:=l2.Sheets(l2.Sheets.Count)
l2.SaveAs Filename:=ruta2 & "opciones e imprimir.xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
l2.Close
Application.DisplayAlerts = True
MsgBox "Copias terminadas"
End Subhttps://www.gerencie.com/exportar-hoja-de-excel-en-formato-pdf-con-macros.html
