Por favor , visual-crytal, no sale la impresion

noelia jimenez
09 de Noviembre del 2004
hola a todos veréis estoy intentando imprimir un factura, tengo dos formularios uno con el crontrolReport y el otro con el CrViewer, y el diseño del report, claro. He incluido en el proyecto-diseñadores un crystalReport solo para ver lo que salia , pero ahora realmente no se cual es el codigo para que vaya y me imprima el reporte, veréis este es el codigo que tengo en el formulario 1 asociado con el report
With CrystalReport1
.ReportFileName = App.Path & "FormularioCR.rpt"
.Connect = "DSN = " & conexion & ";PWD = " & infamed1 & ";UID = " & infamed & ";"
'.Connect = App.Path & "euros.dbs"
.DiscardSavedData = True
.RetrieveDataFiles
.ReportSource = 0
.SQLQuery = "select nombre,propietario, domicilio, postal,poblacion,provincia FROM clientes WHERE codigo=2"
.ReportTitle = "por fin"
.Destination = crptToWindow
.PrintFileType = crptCrystal
.WindowState = crptMaximized
.WindowMaxButton = False
.WindowMinButton = False
'.Action = 1
End With

'-------------pongo esto codigo porque no me admite .Action = 1--------------------------------
Dim frmRep As New Form3
frmRep.Show vbModal
Set frmRep = Nothing
y el CrViewer pues es que te pone directamente al hacer uno de este boton.

Mi pregunta es , que debo quitar/poner para que se ma abra el reporte???

Muchas gracias

noelia jimenez
09 de Noviembre del 2004
donde va esta instruccion??
Set crReport = crApp.OpenReport(App.Path & "FormularioCR.rpt", 1)

POR FAVOR CONTESTAR A MI CORREO. GRACIAS

mvallejos
09 de Noviembre del 2004
Creo que ya está contestado por demàs.. o no?