PowerBuilder 数据窗口 导出 pdf 文件

PowerBuilder 9.0 Datawindow 导出 pdf 文件

把 Datawindow 导出到PDF文件,早就想做了。为此我曾经试过几个版本的PowerBuilder(PowerBuilder 9.0,PowerBuilder 10.0),但都没有试成功。我一直以为是PB的 Bug,今天在网上搜了很多资料,终于搞定。原来要安装gs705w32.exe 和 Acrobat  的虚拟打印机。PB这样导出PDF文件,也太不专业了吧。

1. 下载安装gs705w32.exe
     http://www.processlist.com/info/gs705w32.html
2.  安装 gs705w32.exe ,默认安装路经为c:/gs。
3.  安装虚拟打印机  
     1) 直接在 控制面板 > 打印机和传真 > 添加打印机,端口任意,默认的LPT1就可以;
     2) 打印机驱动是PowerBuilder9.0自带的,就在PowerBuilder9.0的安装文件夹下,
         选择从 磁盘安装 > X:\Program Files\Sybase\Shared\PowerBuilder\drivers, 选择 ADIST5.INF,读取到五个驱动:
              Acrobat  Distiller,  
              Acrobat  Distiller  CS,  
              Acrobat  Distiller  CT,  
              Acrobat  Distiller  J,  
              Acrobat  Distiller  K
         选择第一个Acrobat  Distiller
4. 在代码中利用SaveAs()输出 pdf 文件:  
     int  li_rc
    
string  ls_title  =   " 输出 pdf 文件 "
    
string  ls_PathName, ls_FileName
    
    
//  选择输出文件
    li_rc 
=  GetFileSaveName(ls_title, ls_PathName, ls_FileName,  " pdf " , " pdf file (*.pdf), *.pdf " )  
      
    
if (li_rc  =   1 then
        
//  使用 Distill 方法输出 pdf 文件
        dw_1.Object.DataWindow.Export.PDF.Method 
=  Distill!    
         
        
//  选择打印机
        dw_1.Object.DataWindow.Printer 
=   " Acrobat Distiller "   
        dw_1.Object.DataWindow.Export.PDF.Distill.CustomPostScript
= " Yes "
        
        
//  输出 pdf 文件
        
if (dw_1.SaveAs(ls_PathName, PDF!,  true =   1 then
            messagebox(ls_title,
" 保存成功! " )
        
else
            Messagebox(ls_title,
" 保存失败! " ,StopSign!)
        
end   if
    
end   if
以上程序在PowerBuilder 9.01 Build 7096下调试通过。

另外,你也可以在X:\Program Files\Sybase\Shared\PowerBuilder\drivers下编辑.BAT文件,写入:  
rundll32.exe  printui.dll,PrintUIEntry  /if  /f  .\\ADIST5.INF  /r  "LPT1:"  /b  "Acrobat  Distiller"  /m  "Acrobat  Distiller"  
运行它来实现添加虚拟打印机。

你可能感兴趣的:(PowerBuilder 数据窗口 导出 pdf 文件)