请问怎样通过编程自动选择打印机打印！

[kongming]

收银电脑上连接一台本地打印机，厨房的打印机作为网络打印机。点菜完后自动把小票从厨房的打印机打印出来（不需要选择打印机），当客人结算后，自动把结帐单从本地打印机打印出来（也不用选择打印机），请问如何实现上述功能？

[victorycyz]

Dim prn As Printer
dim strName as string
dim bOK as boolean

strName=你要的打印机名
bOK=false
For Each prn In Printers
If prn.DeviceName = strName Then
Set Printer = prn
bOK=true
exit for
End If
Next prn
If bOK = false Then
MsgBox "打印机不存在或已改名", vbInformation
end if