可以先找出所有的可用打印机,再由用户指定使用哪个打印机。
dim prn as printer
for each prn in printers
combo1.additem prn.devicename
next然后可在combo的click事件里进行选定
sub combo_click()
dim prn as printer
for each prn in printers
if prn.devicename=combo1.text then
'设置为默认
set printer=prn
end if
next
end sub
dim prn as printer
for each prn in printers
combo1.additem prn.devicename
next然后可在combo的click事件里进行选定
sub combo_click()
dim prn as printer
for each prn in printers
if prn.devicename=combo1.text then
'设置为默认
set printer=prn
end if
next
end sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货