今天遇到一个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打印机!" )