seleccionar una impresora

catty_peque
02 de Marzo del 2004
Hola a todos he realizado un informe con el objeto printer, solo puedo imprimir con la impresora q tengo com predeterminada pero me gustaria imprimir desde otra impresora... como puedo hacer??? por favor si tuvieran algun ejemplo o algo asi se los agradeceria muchisimo...

Saludos

Catty

aav
02 de Marzo del 2004
este es el código que yo utilizo para abrir al cuadro de dialogo para elegir una impresora, espero te sirva.



Dim BeginPage, EndPage, NumCopies, I
' Establecer CancelError a True
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
' Presentar el cuadro de diálogo Imprimir
CommonDialog1.ShowPrinter

CommonDialog1.Flags = &H40 Or &H80000 Or &H100000 Or &H8 Or &H40000

' Obtener los valores seleccionados por el usuario en el cuadro de
' diálogo
BeginPage = CommonDialog1.FromPage
EndPage = CommonDialog1.ToPage
NumCopies = CommonDialog1.Copies

'MsgBox "EL USUARIO NO CANCELO LA IMPRESION"

For I = 1 To NumCopies
' Código para enviar los datos a la impresora

'debes de indicar el procedimiento para que realice la impresión
' REP_MECA

Next I
Exit Sub
ErrHandler:

'MsgBox "EL USUARIO CANCELO LA IMPRESION"

' El usuario ha hecho clic en el botón Cancelar
Exit Sub

catty_peque
02 de Marzo del 2004
Muchas gracias tu codigo me ha sido de mucha utilidad...
Saludos
Catty