I have a crystal report designer inside a visual basic program. When I add new records inside the vb program, the report does not find the new data. I do not save the data with the crystal report so I know that's not the problem.
Any help would be appreciated.
The following is the code I use to send the report to the printer:
Private Sub PrintRequest()
Dim Report As New CrystalReport1
Dim crpParamDefs As CRAXDRT.ParameterFieldDefinitions
Dim crpParamDef As CRAXDRT.ParameterFieldDefinition
Dim crpSubreport As CRAXDRT.Report
Dim crxTable As CRAXDRT.DatabaseTable
Dim crxTables As CRAXDRT.DatabaseTables
Screen.MousePointer = vbArrowHourglass
Set crxTables = Report.Database.Tables
Set crxTable = crxTables.Item(1)
crxTable.SetLogOnInfo "BTSQL02", "Freight", "REPORT", "REPORT"
Set crpParamDefs = Report.ParameterFields
For Each crpParamDef In crpParamDefs
With crpParamDef
Select Case .ParameterFieldName
Case "NameParm"
.SetCurrentValue txtEmp.Text
End Select
End With
Next
Report.EnableParameterPrompting = False
Report.SelectPrinter PrintData.DriverName, PrintData.DeviceName, PrintData.Port
'set page orientation MUST be after report.selectprinter
Report.PaperOrientation = crPortrait
Report.PrintOut (False) 'don't prompt user
Screen.MousePointer = vbDefault
Report.VerifyOnEveryPrint = True 'not sure
Set crxTables = Nothing 'if these
Set crxTable = Nothing 'lines are
Set crpParamDefs = Nothing 'even needed
End Sub
Any help would be appreciated.
The following is the code I use to send the report to the printer:
Private Sub PrintRequest()
Dim Report As New CrystalReport1
Dim crpParamDefs As CRAXDRT.ParameterFieldDefinitions
Dim crpParamDef As CRAXDRT.ParameterFieldDefinition
Dim crpSubreport As CRAXDRT.Report
Dim crxTable As CRAXDRT.DatabaseTable
Dim crxTables As CRAXDRT.DatabaseTables
Screen.MousePointer = vbArrowHourglass
Set crxTables = Report.Database.Tables
Set crxTable = crxTables.Item(1)
crxTable.SetLogOnInfo "BTSQL02", "Freight", "REPORT", "REPORT"
Set crpParamDefs = Report.ParameterFields
For Each crpParamDef In crpParamDefs
With crpParamDef
Select Case .ParameterFieldName
Case "NameParm"
.SetCurrentValue txtEmp.Text
End Select
End With
Next
Report.EnableParameterPrompting = False
Report.SelectPrinter PrintData.DriverName, PrintData.DeviceName, PrintData.Port
'set page orientation MUST be after report.selectprinter
Report.PaperOrientation = crPortrait
Report.PrintOut (False) 'don't prompt user
Screen.MousePointer = vbDefault
Report.VerifyOnEveryPrint = True 'not sure
Set crxTables = Nothing 'if these
Set crxTable = Nothing 'lines are
Set crpParamDefs = Nothing 'even needed
End Sub