Cómo utilizar Excel VBA para generar archivos PDF

Primero, cargue la referencia, como se muestra en la figura

Luego, configure los ajustes de impresión de Acrobat Distiller en la impresora (obligatorio; de lo contrario, la conversión saldrá mal).

Público ?Sub?MakePDF(ByVal?strPDFFileName?As?String)

Dim?strPSFileName?As?String

Dim?xlWorksheet?As?Worksheet

¿Dim? objPdfDistiller?As?PdfDistiller

strPSFileName = Left(strPDFFileName, InStrRev(strPDFFileName, "/")) & "tmpPostScript.ps"

? = ActiveSheet

Llamada?xlWorksheet.PrintOut(copias:=1, vista previa:=False, ActivePrinter:="Acrobat Distiller", printtofile:=True, collate:=True, prtofilename:=strPSFileName)

? >

¿Fin? Sub

No entiendo por qué el complemento PDF no se utiliza para generar documentos PDF directamente.