1. 下载安装gs705w32.exe，默认安装路经为c:/gs
http://www.processlist.com/info/gs705w32.html
2. 安装PB自带的PDF虚拟打印机
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
3. 也可安装其他虚拟打印机
4. 在代码中利用SaveAs()输出 pdf 文件:
//
使用 Distill 方法输出 pdf 文件
dw_1.Object.DataWindow.Export.PDF.Method
=
Distill!
//
设置PDF虚拟打印机
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
另外，你也可以在C:\Program Files\Sybase\Shared\PowerBuilder\drivers下编辑.BAT文件，写入：
rundll32.exe printui.dll,PrintUIEntry /if /f .\\ADIST5.INF /r "LPT1:" /b "Acrobat Distiller" /m "Acrobat Distiller"
运行它来实现添加虚拟打印机。
1. 下载安装gs705w32.exe，默认安装路经为c:/gs http://www.processlist.com/info/gs705w32.html2. 安装PB自带的PDF虚拟打印机 1) 直接在 控制面板 > 打印机和传真 > 添加打印机，端口任意，默认的LPT1就可以； 2) 打印机驱动是PowerBuilder9.0自带
string ls_path, ls_file, ls_title, ls_tablename
long ll_row, ll_col, ll_sheet
oleobject lole_excel
2. 打开Excel应用程序
lole_excel = create oleobject
lole_excel.connecttonewobject("excel.application")
3. 创建工作簿和工作表
lole_excel.workbooks.add()
ll_sheet = 1
lole_excel.worksheets[ll_sheet].activate()
4. 设置Excel单元格格式
lole_excel.cells[1,1].font.bold = true
lole_excel.cells[1,1].font.size = 12
lole_excel.cells[1,1].value = ls_title
lole_excel.cells[1,1].entirecolumn.autofit()
5. 导出数据到Excel
for ll_col = 1 to dw_1.object.
data
window
.column.count()
lole_excel.cells[2,ll_col].value = dw_1.object.
data
window
.column[ll_col].name
lole_excel.cells[2,ll_col].font.bold = true
lole_excel.cells[2,ll_col].font.size = 10
lole_excel.cells[2,ll_col].entirecolumn.autofit()
for ll_row = 1 to dw_1.object.
data
window
.rowcount()
for ll_col = 1 to dw_1.object.
data
window
.column.count()
lole_excel.cells[ll_row+2,ll_col].value = dw_1.object.
data
window
.getitemstring(ll_row,ll_col)
lole_excel.cells[ll_row+2,ll_col].font.size = 10
lole_excel.cells[ll_row+2,ll_col].entirecolumn.autofit()
6. 保存Excel
文件
并关闭
ls_file = "D:\test.xls"
lole_excel.activeworkbook.saveas(ls_file)
lole_excel.activeworkbook.close()
lole_excel.disconnectobject()
以上是一个简单的
PowerBuilder
导出Excel
文件
的示例代码。您可以根据自己的需要进行修改和优化。
