Добрый день.

Есть проблема с кристалом. Помогите кто сталкивался с таким.
Есть проэкт на vb6+cr8.5, источник для отчета ttx.
Так вот на 2000 и хр работает прекрасно, а на 98 вибрасывает ошибку overflow.

Вот мой код:


On Error GoTo ErrorHandler
Dim strConnect As String
strConnect = frmLogin.strConnect.Text
Dim m_query As String
Dim crystal As CRAXDRT.Application
Dim Report As CRAXDRT.Report

Set crystal = New CRAXDRT.Application
Set adoConnect = New ADODB.Connection
adoConnect.Open strConnect
Dim record As Recordset
Set record = New Recordset
record.ActiveConnection = adoConnect

record.Open "exec asp_proc '" + var + "'"
If record.EOF <> True Then
Set Report = crystal.OpenReport(App.Path & "\reports\report.rpt")
Report.DiscardSavedData
Report.Database.SetDataSource record
'PrintCrystalReport.Show
'PrintCrystalReport.ZOrder
PrintCrystalReport.CRViewer1.ReportSource = Report PrintCrystalReport.CRViewer1.ViewReport

Do While PrintCrystalReport.CRViewer1.IsBusy
DoEvents
Loop
PrintCrystalReport.CRViewer1.Zoom 94
End If
record.Close
Set record = Nothing
adoConnect.Close
Set adoConnect = Nothing
ErrorHandler:
If Not record Is Nothing Then

Set record = Nothing
End If
If Not adoConnect Is Nothing Then
If adoConnect.State = adStateOpen Then adoConnect.Close
End If
Set adoConnect = Nothing

If Err <> 0 Then
MsgBox Err.Description, vbCritical, Err.Source
End If

Решил,
проблема была в притере,
точнее в драйверах.

Смешно говорить, но таже проблема на другом компе.
Тоже Windows 98.
Причем когда в системе нет принтеров - отчет генерится.
как только добавляю хотя бы 1 принтер - вываливается ошибка overflow