Visual Basic - Como Ago..??

Life is soft - evento anual de software empresarial
 
Vista:

Como Ago..??

Publicado por Eclesiastes (77 intervenciones) el 27/01/2003 19:51:57
hola como estas..necesito saber si es que me puedes ayudar hacer lo siguiente:
es de cargar un combobox..todas las impresaras que tengo instaladas en mi maquina y que me seleccione la que tengo determinada..muchas gracias..!!
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:Como Ago..??

Publicado por Javier (55 intervenciones) el 28/01/2003 11:50:20
Hola Eclesiastés:

Coloca un Combo en un form y pega este código en el evento Form_Load:

Dim p As Printer

For Each p In Printers
Combo1.AddItem p.DeviceName
If p.DeviceName = Printer.DeviceName Then
Combo1.ListIndex = Combo1.NewIndex
End If
Next

Ahora, supongo que al seleccionar otra quieres que se cambie, entonces agrega este código:

Private Sub Combo1_Click()
Dim p As Printer

For Each p In Printers
If p.DeviceName = Combo1.Text Then
Set Printer = p
End If
Next
End Sub

Saludos,
Javier

PD: hago va con h
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