Visual Basic - mandar imprimir con varias impresoras

Dim IMPRESORA As Printer

Dim PREDETERMINADAWINDOWS As String

PREDETERMINADADEWINDOWS = Printer.DeviceName 'La impresora predeterminada de Windows actualmente

If Printers.Count > 0 Then

    For Each IMPRESORA In Printers

        If IMPRESORA.DeviceName = "EPSON LX-300+" Then 'Aca pones el nombre de la impresora en el cual queres enviar la impresion

        Set Printer = IMPRESORA

        Exit For

        End If

    Next IMPRESORA

End If

'Ahora ya tienes Asignada la Impresora EPSON LX-300 y envia la impresion para imprimir en dicha impresora

'>>> INSTRUCCIONES PARA LA IMPRESION EN IMPRESORA (1)

'-----------------------------------------------------------------------------------------------

'Ahora repites el paso para seleccionar la otra impresora e imprimir en ella.. Asi susesivamente

If Printers.Count > 0 Then

    For Each IMPRESORA In Printers

        If IMPRESORA.DeviceName = "EPSON TMU-220" Then 'Aca pones el nombre de la impresora en el cual queres enviar la impresion

        Set Printer = IMPRESORA

        Exit For

        End If

    Next IMPRESORA

End If

'Ahora ya tienes Asignado la Impresora EPSON TMU. Envias la impresion para imprimir en dicha impresora

'>>> INSTRUCCIONES PARA LA IMPRESION EN IMPRESORA (2)

'------------------------------------------------------------

'Repites los pasos tantas veces quieras dependiendo de la cantidad de impresoras en la que quieres imprimir... 

'Se vuelve a asignar la impresora Predeterminada Inicialmente como la Predeterminada

If Printers.Count > 0 Then

    For Each IMPRESORA In Printers

        If IMPRESORA.DeviceName = PREDETERMINADADEWINDOWS Then

        Set Printer = IMPRESORA

        Exit For

        End If

    Next IMPRESORA

End If

'--------------------------------------------

Dim IMPRESORA As Printer

Dim PREDETERMINADAWINDOWS As String

Dim i as Integer

Dim LAIMPRESORA As String

PREDETERMINADADEWINDOWS = Printer.DeviceName 'La impresora predeterminada de Windows actualmente 

CREO QUE DE ESTA FORMA PUEDE FUNCIONAR CON MENOS CODIGO... UTILIZANDO BUCLE FOR.....NEXT

CONTADORBUCLE = 1

For i = 1 To 3 'Hace tres veces el Bucle, ocea para imprimir en 3 impresoras, si quieres imprimir en 10, ya sabes...

    'Selecciona la Impresora a utilizar segun sea el valor del CONTADOR del Bucle

    Select Case CONTADORBUCLE

        Case Is = 1

            LAIMPRESORA = "EPSON LX-300+"

        Case Is = 2

            LAIMPRESORA = "EPSON TMU-200"

        Case Is = 3

            LAIMPRESORA = "HP LaserJet"

    End Select

    '----------------

    'Selecciona la impresora a utilizar

    If Printers.Count > 0 Then

    For Each IMPRESORA In Printers

    If IMPRESORA.DeviceName = "" & LAIMPRESORA & "" Then 'Se asigna la Impresora a utilizar

    Set Printer = IMPRESORA

    Exit For

    End If

    Next IMPRESORA

    End If

    '------------------

    'Ahora ya se tiene la Impresora seleccionada y posteriormente se hace la impresion

    'Cada impresion con diferentes instrucciones segun el valor del Contador del Bucle

    'Esto solo en caso de si lo que keremos imprimir es diferente por cada impresora seleccionada

    'Si no es así, Obias el Select y pones directamente las Instrucciones para la Impresion

    Select Case CONTADORBUCLE

        Case Is = 1

            'INSTRUCCIONES PARA IMPRIMIR EN LA IMPRESORA EPSON LX-300+

        Case Is = 2

            'INSTRUCCIONES PARA IMPRIMIR EN LA IMPRESORA PSON TMU-200

        Case Is = 3

            'INSTRUCCIONES PARA IMPRIMIR EN LA IMPRESORA HP LaserJet

    End Select

Next i

'Se vuelve a asignar la impresora Predeterminada Inicialmente como la Predeterminada

If Printers.Count > 0 Then

For Each IMPRESORA In Printers

If IMPRESORA.DeviceName = PREDETERMINADADEWINDOWS Then

Set Printer = IMPRESORA

Exit For

End If

Next IMPRESORA

End If

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

Private Sub pdPrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs)

	'' Static pageNum As Integer

	Dim i As Integer = 0

	Dim prFontEnc As New Font("Arial", 15, GraphicsUnit.Point)

	Dim prFontEnc2 As New Font("Arial", 10, GraphicsUnit.Point)

	Dim prFont As New Font("Arial", 8, GraphicsUnit.Point)

	''Encabezados

	e.Graphics.DrawString("Nombre del Negocio", prFontEnc, Brushes.Black, -2, 1)

	'--10= Derecha - Izquierda

	'--35= Arriba - Abajo

	'----Brushes.Black, X, Y)

	'----X= Derecha - Izquierda

	'----Y= Arriba - Abajo

	e.Graphics.DrawString("Folio:", prFontEnc2, Brushes.Black, -2, 35)

	e.Graphics.DrawString(LblFolio.Text, prFontEnc2, Brushes.Black, 65, 36)

	e.Graphics.DrawString("Fecha:", prFontEnc2, Brushes.Black, -2, 57)

	e.Graphics.DrawString(TxtFecha.Text, prFontEnc2, Brushes.Black, 65, 58)

	''Titulos del Consumo 

	e.Graphics.DrawString("Cant.", prFont, Brushes.Black, -2, 90)

	e.Graphics.DrawString("Tipo", prFont, Brushes.Black, 30, 90)

	e.Graphics.DrawString("Producto", prFont, Brushes.Black, 70, 90)

	e.Graphics.DrawString("Precio", prFont, Brushes.Black, 150, 90)

	''Detalles del Titulo

	While i < Me.DGVConsumo.RowCount

		e.Graphics.DrawString(Me.DGVConsumo.Item(2, i).Value, prFont, Brushes.Black, -2, i * 15 + 110)

		e.Graphics.DrawString(Me.DGVConsumo.Item(4, i).Value, prFont, Brushes.Black, 30, i * 15 + 110)

		e.Graphics.DrawString(Me.DGVConsumo.Item(1, i).Value, prFont, Brushes.Black, 70, i * 15 + 110)

		e.Graphics.DrawString(Me.DGVConsumo.Item(3, i).Value, prFont, Brushes.Black, 150, i * 15 + 110)

		i += 1

	End While

	e.Graphics.DrawString("Total", prFontEnc2, Brushes.Black, 10, i * 15 + 120)

	e.Graphics.DrawString(LblMonto.Text, prFontEnc2, Brushes.Black, 90, i * 15 + 120)

	''Notas

	e.Graphics.DrawString("NOTAS", prFontEnc2, Brushes.Black, 10, i * 15 + 150)

	e.Graphics.DrawString(TxtNota1.Text, prFontEnc2, Brushes.Black, 10, i * 15 + 165)

	e.Graphics.DrawString(TxtNota2.Text, prFontEnc2, Brushes.Black, 10, i * 15 + 180)

	e.Graphics.DrawString(TxtNota3.Text, prFontEnc2, Brushes.Black, 10, i * 15 + 195)

	e.Graphics.DrawString(TxtNota4.Text, prFontEnc2, Brushes.Black, 10, i * 15 + 210)

	e.Graphics.DrawString(Lugar, prFontEnc2, Brushes.Black, 10, i * 15 + 240)

	e.Graphics.DrawString("Gracias por su Preferencia", prFontEnc2, Brushes.Black, 10, i * 15 + 260)

End Sub

Private Sub Imprimir()

	Dim pd As New PrintDocument()

	AddHandler pd.PrintPage, AddressOf Me.pdPrintPage

	pd.Print()

End Sub