关于打印的问题

[zengfanying]

电脑上连接两个打印机，一个HP激光打印机，一个EPSON针打，（不用管那个是默认打印机），如何不用选择打印机，直接用软件控制，在销售单里面用EPSON打印销售单，在报表里面打印时直接用HP激光打印机打印，有简易代码更好，谢谢

[Tiger_Zhao]

'按打印机名称选定当前打印机'
Function SelectPrinter(ByVal DeviceName As String) As Boolean
    Dim prt As Printer
    For Each prt In Printers
        If prt.DeviceName = DeviceName Then
            Set Printer = prt
            SelectPrinter = True
            Exit Function
        End If
    Next
End Function

[zengfanying]

电脑有三个打印机，HP128FP，EPSON 730，CANON 2400，CANON 2400是默认的打印机 form1.printform要用EPSON 730打印和form2.printform,要用HP128FP打印，这个代码怎么加？

[笨狗先飞]

SelectPrinter “EPSON 730” printer.print form1 ...... SelectPrinter “HP128FP” printer.print form2 ......