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

Question

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

Answer 1

        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