PB用虚拟打印机导出PDF的问题

今天遇到一个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_export

string 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

next

messagebox(“xxx”,”没有找到PDF打印机!” )