echa un vistazo aqui----> todavia no puedo poner links!! pero asi funciona!!:
y sino aqui tambien esto esta sacado de una leccion de
'elguille': Cómo seleccionar la impresora a usar por nuestra aplicación.
Para hacer esto, usaremos también el Common Dialog que tenemos insertado en nuestro formulario:
'
Cita: Private Sub mnuFicImpSelec_Click()
' Seleccionar la impresora a usar (23/Ene/00)
' La detección de errores es por si no hay impresora instalada
On Error Resume Next
With CommonDialog1
.DialogTitle = "Seleccionar impresora"
.Flags = cdlPDPrintSetup
.ShowPrinter
End With
Err = 0
End Sub
El truco está en usar el valor cdlPDPrintSetup como valor para la propiedad Flags del cuadro de diálogo y después, por supuesto, usar el método ShowPrinter; cuando el control de diálogos comunes se encuentra con ese "flag" sabe que debe mostrar el cuadro de diálogo de configurar impresora, desde el cual podemos seleccionar otra de las impresoras instaladas en el sistema.
Nota:
Los valores a usar con Flags puedes averiguarlos pulsando F1 sobre la propiedad Flags, la ayuda te dará una lista de los valores posibles.
salu2