Visual Basic - codigo bv para imprimir mas de una impresora

Option Explicit

Private Sub Command1_Click()

  Dim Prt As Printer

  Dim TRES As String

    ' Establece la impresora que se utilizará para imprimir

    For Each Prt In Printers

       TRES = Prt.DeviceName

          Set Printer = Prt

       Printer.Print Text1.Text

       Printer.EndDoc

  Next

End Sub