Cómo imprimir por lotes archivos de Excel a PDF

Simplemente use la función de salida de PDF de Excel.

Referencia:

Sub exportPdf(sheetName As String, ByVal pname As String)

Dim pdfPath As String

pdfPath = ThisWorkbook. Ruta amp " \pdf\"

Hoja(sheetName).Activar

Si Dir(pdfPath, vbDirectory) = "" Entonces

MkDir pdfPath p>

Fin si

ActiveSheet.ExportAsFixedFormat _

Tipo: =xlTypePDF, _

Nombre de archivo: =pdfPath amp; _" y nombre de hoja y ".pdf", _

Calidad:= xlQualityStandard, _

IncludeDocProperties:=True, _

IgnorePrintAreas:=False , _

OpenAfterPublish：=False

Fin Sub