打印PDF文件时，怎么才能控制输出的PDF文件的路径和文件名？
本帖最后由 作者 于 2007-7-12 17:52:55 编辑 <br /><br /> <p>利用虚拟打印机生产PDF文件，</p><p></p><p>储存的时候要怎样才能控制PDF文件的文件名和路径 </p><p></p><p>谢谢 各位了 </p> <p>帮你顶起来吧 </p><p>我也在考虑这个问题</p><p>如果每次都自己输入文件名也太麻烦了 我有好几百张图呢</p> 设置一个pc3打印机，在该打印机的设置里设置好pdf的输出路径，每次打印都用该打印机就行了 <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt;"><font face="Times New Roman">Public<span style="COLOR: blue;">Sub MakePDF(ByVal strPDFFileName As
String)</span></font></p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt;"><font face="Times New Roman"></font></p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt;"><font face="Times New Roman"> <span style="COLOR: green;">' Define the postscript and .pdf file names.</font></span></p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt;"><font face="Times New Roman"> <span style="COLOR: blue;">Dim strPSFileName As
String</font></span></p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt;"><font face="Times New Roman"></font></p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt;"><font face="Times New Roman"> <span style="COLOR: blue;">Dim xlWorksheet As Worksheet</font></span></p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt;"><font face="Times New Roman"> <span style="COLOR: blue;">Dim objPdfDistiller As PdfDistiller</font></span></p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt;"><font face="Times New Roman"></font></p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt;"><font face="Times New Roman"> strPSFileName = Left(strPDFFileName, InStrRev(strPDFFileName, "\")) & "tmpPostScript.ps"</font></p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt;"><font face="Times New Roman"></font></p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt;"><font face="Times New Roman"> <span style="COLOR: green;">' Print the Excel ActiveSheet to the postscript file</font></span></p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt;"><font face="Times New Roman"> <span style="COLOR: blue;">Set xlWorksheet = ActiveSheet</font></span></p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt;"><font face="Times New Roman"> <span style="COLOR: blue;">Call xlWorksheet.PrintOut(copies:=1, preview:=False, ActivePrinter:="Acrobat Distiller", printtofile:=True, collate:=True, prtofilename:=strPSFileName)</font></span></p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt;"><font face="Times New Roman"></font></p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt;"><font face="Times New Roman"> <span style="COLOR: green;">' Convert the postscript file to .pdf</font></span></p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt;"><font face="Times New Roman"> <span style="COLOR: blue;">Set objPdfDistiller = New PdfDistiller</font></span></p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt;"><font face="Times New Roman"> <span style="COLOR: blue;">Call objPdfDistiller.FileToPDF(strPSFileName, strPDFFileName, "")</font></span></p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt;"><font face="Times New Roman"></font></p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt;"><font face="Times New Roman"> <span style="COLOR: green;">' Finally, delete the postscript file</font></span></p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt;"><font face="Times New Roman"> <span style="COLOR: blue;">Call Kill(strPSFileName)</font></span></p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt;"><font face="Times New Roman"></font></p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt;"><font face="Times New Roman"> <span style="COLOR: blue;">End
Sub</font></span></p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt;"><font face="Times New Roman"><span style="COLOR: blue;"></font></span></p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt;"><font face="Times New Roman"><span style="COLOR: blue;"></font></span></p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt;"><font face="Times New Roman"><span style="COLOR: blue;">参考以下这个代码哦 会有帮助的</font></span></p>
页:
[1]