如何获得当前打印机支持的纸张的列表?

jojojk 2005-08-10 02:27:00
问下:
如何获得当前打印机支持的纸张的列表?有什么简便的方法吗?
谢谢!
...全文
153 点赞 收藏 3
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
hrfzjl 2005-08-28
lb_2.reset()
string printerName
string paperList
long bufferlen = 0
boolean rt
long p1,p2
p1=1
p2=0
if lb_1.TotalItems ( )<=0 then
messagebox("","没有打印机列表,请执行<获得打印机列表>功能")
return
end if
printerName = lb_1.SelectedItem ()
if printerName="" then
messagebox("","请选择一个打印机!")
return
end if
rt = GetPaperList(ref printerName, ref paperList, ref bufferlen)
if (Not rt) and bufferlen>0 then
paperList = space(bufferLen)
rt = GetPaperList(ref printerName, ref paperList, ref bufferlen)
if rt then
p2 = pos(paperlist,"~t",p1)
do while p2>0
lb_2.additem(mid(paperlist,p1,p2 - p1))
p1 = p2+1
p2 = pos(paperlist,"~t",p1)
loop
end if
else
messagebox("","调用函数出错!")
end if
(注:其中lb_1,lb_2是列表框,分别存储纸张和所有打印机,函数GetPaperList是PrintCtrl.dll中的函数,原形申明为:Function Boolean GetPaperList(ref string Printer, ref string PaperList, ref long bufferLen) library "PrintCtrl.dll")
回复
hl8189 2005-08-28
关注
回复
Awang_126 2005-08-28
关注
回复
发帖
API 调用
创建于2007-09-28

667

社区成员

PowerBuilder API 调用
申请成为版主
帖子事件
创建了帖子
2005-08-10 02:27
社区公告
暂无公告