使用多台打印机同时进行打印操作
private sub goprint()
dim pr as printer
for each pr in printers
if pr.devicename=“printer1” then
set printer=pr
printer.print “hello,world!”
printer.enddoc
end if
if pr.devicename=“printer2” then
set printer=pr
printer.print “give me five,baby!”
printer.enddoc
end if
next
end sub
printer1、printer2为控制面板内所安装的打印机名称,该程序不改变系统默认打印机。