Visual Basic para Aplicaciones - Imprimir con dos Impresoras

Life is soft - evento anual de software empresarial
 
Vista:

Imprimir con dos Impresoras

Publicado por ElMago (3 intervenciones) el 26/02/2007 17:29:54
Hola a todos, tengo una aplicación en la que me gustaría utilizar dos impresoras sin necesidad de utilizar "commondialog" para especificar al imprimir una impresora u otra, es decir, que unos informes se impriman por la impresora 1 y otros por la impresora 2 sin necesidad de que el usuario tenga que especificar la impresora en tiempo de ejecución. Gracias de antemano.
Un saludo.
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

RE:Imprimir con dos Impresoras

Publicado por Victor (4 intervenciones) el 08/03/2007 20:53:00
yo hice un programilla con 4 impresoras y lo que hacia era guardar las impresoras que voy a usar en una tabla y al usarlas las mandaba a llamar con "impresora 1", "impresora 2" etc....

te anexo el codigo espero y te sirva:

Para buscar las impresoras instaladas y ponerlas en un combo:

For N = 0 To Printers.Count - 1
Combo1.AddItem Printers(N).DeviceName
Next

'en la tabla de impresoras puse 2 campos (impresora, nombre), en la del nombre almaceno el Combo1.Text
----------------------------------------------------------------

Ahora para buscar la impresora antes de imprimir:

Set rsImpresoras = dbFacturas.OpenRecordset _
("Select * FROM Impresoras where Impresora = '" & "Impresora 1" & "'")

Dim Otu As Printer
For Each Otu In Printers
If Otu.DeviceName = rsImpresoras.Fields("Nombre") Then
' La define como predeterminada del sistema (para mi programa)
Set Printer = Otu
' Sale del bucle.
Exit For
End If
Next
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar