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