然後，在打印機中設置Acrobat Distiller的打印(必要，否則轉換會出錯！)
公共？Sub？MakePDF(ByVal？strPDFFileName？作為？字符串)
暗淡？strPSFileName？作為？線
暗淡？xlWorksheet？作為？工作表
暗淡？objPdfDistiller？作為？PdfDistiller
strPSFileName = Left(strpdfilename，instr rev(strpdfilename，"/))& amp；" tmpPostScript.ps "
？設置？xlWorksheet = ActiveSheet
打電話？xlWorksheet。打印輸出(份數:=1，預覽:=False，active printer:= " Acrobat Distiller "，printtofile:=True，collate:=True，prtofilename:=strPSFileName)
？設置？objPdfDistiller =？新的？PdfDistiller
打電話？objPdfDistiller。FileToPDF(strPSFileName，strpdfilename，"")
打電話？Kill(strPSFileName)
結束？潛水艇
我不明白妳為什麽不用PDF插件直接生成PDF文檔。