When I use Visual Basic 6 to develop to the use of customer end.

Find to that will present an information in the preview report form once in a while.

"System Error Code 1400"

Will present this information too when preview magnify,reduce or print.

Is there had any way to solve the problem?

Or has already known mi



Public Sub ReportLoad()
On Error GoTo ReportLoadErr
Dim query_obj As TfrxADOQuery
Dim database_obj As TfrxADODatabase
Set report = Nothing
Set report = CreateObject("FastReport.TfrxReport")
Set database_obj = report.FindObject("ADODatabase1")

If database_obj Is Nothing Then
MsgBox "ADO connection object 'ADODatabase1' not found"
Else
database_obj.LoginPrompt = False
database_obj.Connected = False
database_obj.ConnectionString = strConnectionString
database_obj.Connected = True
End If

' Find query object
Set query_obj = report.FindObject("ADOQuery1")
If query_obj Is Nothing Then
MsgBox "ADO query object 'ADOQuery1' not found"
Else
query_obj.Query = strQuery1
End If

' Find query object
Set query_obj = report.FindObject("ADOQuery2")
If query_obj Is Nothing Then
MsgBox "ADO query object 'ADOQuery2' not found"
Else
query_obj.Query = strQuery2
End If

' Find query object
Set query_obj = report.FindObject("ADOQuery3")
If query_obj Is Nothing Then
MsgBox "ADO query object 'ADOQuery3' not found"
Else
query_obj.Query = strQuery3
End If

Set query_obj = Nothing
Set database_obj = Nothing

report.PreviewOptions.Buttons = pb_Zoom + pb_Print + pb_NoFullScreen + pb_NoEmail + pb_Navigator + pb_NoClose
report.MainWindowHandle = frmMain.hwnd
report.ShowReport

Exit Sub

ReportLoadErr:
MsgBox Err.Number & vbCrLf & Err.Description, vbCritical + vbOKOnly, "ReportLoadError"
End Sub

There is no a report template (FR3 file) load into report object
Try following code:




Finally, you may send a simply demo that demonstrates the problem to support@fast-report.com.