configurar impresora en tiempo de ejec con crystal 8 RDc - VB-MUNDO

flprincich · #1 (**permalink**) 10-08-2006, 13:41:04

tengo el siguiente codigo en el evento printbootonClicked, usando visual basic 6

Private Sub CRV_PrintButtonClicked(UseDefault As Boolean)
UseDefault = False
Report.SelectPrinter Printer.DriverName, Printer.DeviceName, Printer.Port
Report.PrinterSetup Me.hWnd
Report.PrintOut False
End Sub

sucede que al abrir el cuadro de dialogo de seleccionar impresora tengo los siguientes problemas
1- No puedo seleccionar la pagina q quiero imprimir, me aparece esa opcion en la ventana
2- Si le doy cancelar, tambien envia el docuemento a la impresora. Y no cancela la impresion como deberia ser

Gracias desde ya!!!

p/d: Por favor si pueden respondan a flprincich@gmail.com tambien

bubu_54 · #2 (**permalink**) 21-03-2007, 16:35:42

Saludos, tengo el mismo problema que tu, sobre todo con el punto 2, a ver si alguine nos puede ayudar.

Ronald_Leon_Madrid · #3 (**permalink**) 21-03-2007, 19:58:47

Estimados Amigos :

que tal, en realidad no entiendo porque escoger o seleccionar la impresora donde deben imprimir, si por defecto escoger la que esta como predeterminada, es cuestion de configuracion de la PC y no del sotware. bueno es una sugerencia.

Saludos cordiales,

bubu_54 · #4 (**permalink**) 22-03-2007, 07:40:07

Amigo Ronald, el usuario puede tener varias impresoras en su PC y querer imprimir desde una u otra, no va a estar cambiando de impresora predeterminada cada vez que quiera imprimir, no?

Por ejemplo, tiene un informe que puede ser impreso en A4 o A3, y tiene en red estas dos impresoras, lo logico seria da la opcion de selccionar impresora, no?

Con esto en el evento CRViewer1_PrintButtonClicked se soluciona.

Código:

On Error GoTo error
    With CommonDialog1
        .Flags = cdlPDPrintSetup Or cdlPDHidePrintToFile Or cdlPDNoPageNums Or cdlPDUseDevModeCopies
        .CancelError = True
        .ShowPrinter
    End With
    crReport.SelectPrinter Printer.DriverName, Printer.DeviceName, Printer.Port
Exit Sub
error:
    If Err.Number = 32755 Then
        MsgBox "Has seleccionado Cancelar"
    End If

Si queremos imprimir funciona OK, pero si da a cancelar, siempre saca la opcion de imprimir, no lo entiendo.

Ronald_Leon_Madrid · #5 (**permalink**) 22-03-2007, 13:18:23

Hola :

que tal, en gustos y colores no discutieron los autores; no obstante cultirizo a mis usuarios.
Suerte amigo.

Saludos cordiales,