首先，載入引用，如圖 然後，在印表機中對Acrobat Distiller的列印進行設定設定（必須，否則轉化出錯！） Public 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" Set xlWorksheet = ActiveSheet Call xlWorksheet.PrintOut(copies:=1, preview:=False, ActivePrinter:="Acrobat Distiller", printtofile:=True, collate:=True, prtofilename:=strPSFileName) Set objPdfDistiller = New PdfDistiller Call objPdfDistiller.FileToPDF(strPSFileName, strPDFFileName, "") Call Kill(strPSFileName) End Sub