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>
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) p>
? >
¿Fin? Sub
No entiendo por qué el complemento PDF no se utiliza para generar documentos PDF directamente.