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打印机!" )