如何通过虚拟打印机将PB文档转换为PDF格式？

本文共计471个文字，预计阅读时间需要2分钟。

今天遇到一个bug。在win7中使用dopdf+v7可以导出pdf，但在win10中无法使用。研究程序，原来的程序是直接给定一个打印机序列字符串。后来设置打印机并打印（写死的）。初步分析，原来的打印机序列字符串可能是问题所在。

今天遇到一个bug。win7中使用dopdf v7可以导出pdf而在win10中不起作用。

研究程序，原来的程序是直接给定一个打印机列表字符串。然后设置打印机并打印的（写死的）。

初步分析，原来的打印机列表：“dopdf v7~twinspool~tFPP1:~r~npdfFactory Pro~twinspool~tFPP1:”

切分时判断的~n,从而切分出来的打印机带有~r造成win10中无法弹出打印机页面。后面改为

“dopdf v7~twinspool~tFPP1:~npdfFactory Pro~twinspool~tFPP1:~n”后的确可以弹出doPDF v7界面。但是doPDF无法保存出文件！！！恼火。

后面灵机一动，尝试在printsetprinter(参数)，参数为打印机名而不使用端口这些参数。非常成功。可以正常了。

另外win10含有"Microsoft Print to PDF"这个内置的打印可以用，比win7先进了。

整体改动如下（从系统获取打印机列表再判断先后顺序来使用。客户可以安装doPDF或者pdffactory，如果都没有。可以调用"Microsoft Print to PDF")

事件：ue_pdf_exportstring ls_printname string ls_oldprintname string ls_prntrs string ls_printarr[] = {"doPDF v7","doPDF v8","doPDF v9","doPDF 10","pdfFactory Pro","Microsoft Print to PDF"} constant int qtyprints = 6//获得打印机列表 ls_prntrs = PrintGetPrinters()//保留以备恢复 ls_oldprintname = printgetprinter() ls_oldprintname = left(ls_oldprintname,POS(ls_oldprintname,"~t") -1) //只要打印机名称int k for k = 1 to qtyprints ls_printname = ls_printarr[k] //如果存在打印机列表中就使用 if Pos(ls_prntrs,ls_printname)>0 then if printsetprinter(ls_printname) < 0 then messagebox("xxx","设置PDF打印机错误!") return end if dw1.print() //还原默认打印机 printsetprinter(ls_oldprintname) return end if nextmessagebox("xxx","没有找到PDF打印机!" )