imprimir el reporte actual

[lokoman]

Hola!
Debes enviarle los filtros necesarios al reporte:

Código vb:

With CrystalReport
         .ReportFileName = App.Path & "\Reporte.rpt"
         .WindowTitle = "Titulo del reporte"
'        ...
'        ...
'        ...
        .DiscardSavedData = True ' Borrar datos almacenados
 
        .SelectionFormula = "{TABLA.CAMPO_DOCUMENTO} = " & intDOCUMENTO & " AND {TABLA.FECHA} = '" & strFECHA & " AND {TABLA.USUARIO_ID} = '" & strUserName & "'"
 
        .WindowShowCloseBtn = True
        .WindowState = crptMaximized
        .WindowShowPrintSetupBtn = True
        .Destination = crptToWindow
        .Action = 1
    End With