Visual Basic - codigo bv para imprimir mas de una impresora

Life is soft - evento anual de software empresarial
   
Vista:

codigo bv para imprimir mas de una impresora

Publicado por Clever castillo sergcomp@hotmail.com (3 intervenciones) el 05/11/2013 02:10:56
para ahorrar lineas de codigo seria de esta manera.....


1
2
3
4
5
6
7
8
9
10
11
12
13
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

saludos.....
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder