Private Sub CmdPrint_Click() Dim crystal As CRAXDRT.Application 'LOADS REPORT FROM FILE Dim report As CRAXDRT.report 'HOLDS REPORT Set crystal = New CRAXDRT.Application 'MANAGES REPORTS Set report = crystal.OpenReport(VarRptPath) report.DiscardSavedData 'report.Database.SetDataSource rs report.Database.Tables(1).SetLogOnInfo SrvIp, SrvDb, VarRptuser, VarRptPass report.SQLQueryString = VarstrString report.PrintOut False Set report = crystal.OpenReport(VarRptPath) Set crystal = Nothing Set report = Nothing End Sub
Private Sub Form_Activate() Dim crystal As CRAXDRT.Application 'LOADS REPORT FROM FILE Dim report As CRAXDRT.report 'HOLDS REPORT On Error GoTo Rpterr CRViewer.DisplayBorder = False 'MAKES REPORT FILL ENTIRE FORM CRViewer.DisplayTabs = False 'THIS REPORT DOES NOT DRILL DOWN, NOT NEEDED CRViewer.EnableDrillDown = False 'REPORT DOES NOT SUPPORT DRILL-DOWN CRViewer.EnableRefreshButton = False 'ADO RECORDSET WILL NOT CHANGE, NOT NEEDED Set crystal = New CRAXDRT.Application 'MANAGES REPORTS Set report = crystal.OpenReport(VarRptPath) 'CLEARS REPORT SO WE WORK FROM RECORDSET report.DiscardSavedData 'report.Database.SetDataSource rs report.Database.Tables(1).SetLogOnInfo SrvIp, SrvDb, VarRptuser, VarRptPass report.SQLQueryString = VarstrString CRViewer.ReportSource = report 'LINK VIEWER TO REPORT CRViewer.ViewReport 'SHOW REPORT Do While CRViewer.IsBusy 'ZOOM METHOD DOES NOT WORK WHILE DoEvents 'REPORT IS LOADING, SO WE MUST PAUSE Loop 'WHILE REPORT LOADS. CRViewer.Zoom 94 ' Clean up all rsources RptCon.Close Set crystal = Nothing Set report = Nothing CmdPrint.SetFocus Rpterr: If Err.Number <> 0 Then 'MsgBox Err.Description End If End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)