Como Abrir Simbolo de Sistema Desde VB 6.0

[A.H.H]

Hola juanutcm, como ya sabemos solo una de esas impresoras es la predeterminada y podemos elegir la que deseemos, asignandola al objeto printer con la instruccion set.

Set Printer = Printers(<número>)donde numero es el numero de indice de la impresora que queremos colocar como predeterminada.
Si quieres sacar un cuadro de dialogo standar de imprimir se usa el common dialog.Como ya sabras supongo hay cuadros de dialogo para abrir archivos,guardar archivos, para elegir colores, para fuentes...
para el de imprimir debes seleccionar en componentes el "Microsoft Common Dialog control 6.0", y lo pones en el formulario luego lo accionas con el metodo showprinter asi :

Private Sub Form_Load()
CommonDialog1.ShowPrinter
End Sub

Tambien con la propiedad .DeviceName del objeto Printer ves las impresoras instaladas.

en el siguiente ejemplo se muestran en un comboBox todas las impresoras instaladas, y al elegir una la pone como predeterminada, y para comprobar que es verdad se saca por pantalla un msgbox con la impresora que has elegido.

1- inserta un comboBox en un formulario y en el form load escribe el siguiente codigo:

Private Sub Form_Load()
Combo1.Text = "IMPRESORAS INSTALADAS"
Dim Impresora As Printer
For Each Impresora In Printers
Combo1.AddItem (Impresora.DeviceName)
Next
End Sub
Private Sub Combo1_Click()
Set Printer = Printers(Combo1.ListIndex)
MsgBox (Printer.DeviceName)
End Sub



insertando un cuadro de dialogo standar para imprimir tambien puedes elegir impresora y muchas mas cosas.....

espero haber ayudado algo


salu2