关于打印的问题

Question

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

Answer 1

'按打印机名称选定当前打印机'
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

Answer 2

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

Answer 3

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