SELECCIONDE IMPRESORAS

KIKE
23 de Enero del 2005
HOLA A TODOS TENGO UNA PEQUEÑA DUDA, HABER SI PUEDEN RESOLVERLA, O AYUDARME Y DECIRME COMO LA RESUELVO CREO QUE ES LO MEJOR, BUENO MI DUDA ES, PARA MANDAR A IMPRIMIR X INFORMACION DE UN FORMULARIO USO LA INSTRUCCION PRINTER.PRINT Y LO QUE QUIERO QUE IMPRIMA, Y SE VA DIRECTAMENTE A LA IMPRESORA PREDEFINIDA, PERO SI TENGO MAS DE UNA IMPRESORA, COMO LE HAGO PARA YO PUEDA SELECCIONAR A QUE IMPRESORA SE VAYA Y SE IMPRIMA LA INFORMACION, ME PUEDE AYUDAR, GRACIAS, DE ANTE MANO, CUIDENSE

en?
23 de Enero del 2005
kike, el siguiente código lista las impresoras instaladas:

Dim Impresora As Printer

For Each Impresora In Printers
MsgBox Impresora.DeviceName
Next


Entonces, o lo usas para llenar un ListBox por ejemplo, y que seleccionen la que quieran o lo usas para establecer la que tu ya sepas el nombre. Por ejemplo:

Public Sub EstablecerImpresora(ByVal NombreImpresora As String)
Dim Impresora As Printer

For Each Impresora In Printers
If Impresora.DeviceName = NombreImpresora Then
Set Printer = Impresora
Exit Sub
End If
Next

MsgBox "La impresora especificada no está instalada", vbCritical + vbMsgBoxSetForeground, "Impresoras..."
End Sub

__
Un saludo.

Visita el nuevo foro de Visual Basic 6 de Almustafa!!!
http://www.multiingenieria.com/robotica/Foro/

cuantos más seamos, más dudas despejaremos.