Impresoras

[cerberus8]

Alguien me puede decir como hacer para una vez le de a la opción del menú Impresoras me salga un formulario en donde haya un combo que me haya cogido las impresoras que tengo instaladas en mi equipo.

Alguien me puede ayudar?

Muchas gracias

[jrp01]

Pon un combo llamado impresora en un form en el load pones:

Código HTML:

For i = 0 To Printers.Count - 1
    Impresora.AddItem Printers(i).DeviceName, i
Next
Impresora.Text = Printer.DeviceName

[cerberus8]

muchas gracias, lo probaré este fin de semana

[jrp01]

Espero que te sirva.

Saludos

[cerberus8]

ya lo he probado y me da error en tiempo de ejecución, me dice que espera un objeto en esta línea.

Impresora.AddItem Printers(i).DeviceName, i


Saludos

[jrp01]

En combo se llama impresora?

YO lo acabo de probra asi:

Código:

Private Sub Form_Load()
For i = 0 To Printers.Count - 1
    Combo1.AddItem Printers(i).DeviceName, i
Next i
Combo1.Text = Printer.DeviceName
End Sub

Y Funciona.

[GeoAvila]

solo tenes que colocar en u Combo con el nombre de "Impresora", luego en el form_load

colocas esto

Código:

Private Sub Form_Load()
Dim I As Integer
For I = 0 To Printers.Count - 1
    Impresora.AddItem Printers(I).DeviceName, I
Next
Impresora.Text = Printer.DeviceName
End Sub

y ya si funciona..

nos vemos..

[cerberus8]

me sigue dando el mismo error, os lo puedo mandar a vuestro correo?

muchas gracias

[jrp01]

Claro mandamelo

[cerberus8]

jrp01 te lo mandé y no me contestas, has podido mirarlo?

alguien puede decirme como lo hacen ustedes si alguien lo ha hecho ya.

Muchas gracias

[jrp01]

Perdon he estado ocupado deja lo reviso.

[jrp01]

Ya vi ti error no el combo lo tienes como impresoras y en el codigo tienes impresora solo agrega la 's' o cambia el nombre al combo a impresora

[cerberus8]

ahora me siento estúpido.
Muchas gracias ya funciona perfectamente.
gracias de nuevo

[jrp01]

No te preocupes de vez en cuando nos pasa

Saludos