[RESOLVED] Crystal Report viewing Plss. help

[alexis23]

i created a common form that will be called by any form
within my project, i just change the value of global variables (gstrRptCmd, gstrRptPaperSize..etc)

actually, i was able to load the report, but it consumes a lot of memory, that's why when i call again the frmcrviewer.frm, the program exits.

im attaching the code i use.. pls. help...

thanks in advance

-- alexis

' FORM NAME = frmCRviewer.frm
Option Explicit
Dim crxApplication As CRAXDDRT.Application
Dim crxReport As CRAXDDRT.Report
Dim crxDatabase As CRAXDDRT.Database
Dim adoCReportRS As ADODB.Recordset
Dim dbx As ADODB.Connection
 
Private Sub Form_Load()
 
    Me.Caption = gstrRptTitle
    Set dbx = New ADODB.Connection
    dbx.CursorLocation = adUseServer
    dbx.Open gstrConnectString
    Set adoCReportRS = New ADODB.Recordset
    
    Set crxApplication = New CRAXDDRT.Application
    Set crxReport = New CRAXDDRT.Report
    Set crxDatabase = crxReport.Database
    
    Call InitializeViewer
 
End Sub
 
Private Sub Form_Resize()
    CRViewer1.Height = Me.ScaleHeight
    CRViewer1.Width = Me.ScaleWidth
End Sub
 
Private Sub InitializeViewer()
    
    On Error Resume Next
    ' gstrRptCmd is a global variable that containing the sql statement
    adoCReportRS.Open gstrRptCmd, dbx, adOpenStatic, adLockReadOnly  
    Set crxReport = crxApplication.OpenReport(gstrRptPath, 1)
    crxReport.DiscardSavedData
    
    crxReport.Database.SetDataSource adoCReportRS , 3, 1
    ' global variable that holds the paper size and paper orientation
    crxReport.PaperSize = gstrRptSize           
    crxReport.PaperOrientation = gstrRptOrientation
    
    crxReport.Sections("PH").ReportObjects("CompanyName").SetText gstrCompanyName
    crxReport.Sections("PH").ReportObjects("ReportTitle").SetText gstrRptTitle
    crxReport.Sections("PH").ReportObjects("ReportSubTitle").SetText gstrRptSubTitle
    
    CRViewer1.ReportSource = crxReport
    CRViewer1.ViewReport
    Do While crxReport.PrintingStatus.Progress = crPrintingInProgress
        DoEvents
    Loop
    Set crxApplication = Nothing
    Set crxDatabase = Nothing
    Set crxReport = Nothing
 
End Sub

[RobDog888]

Welcome to the Forums.

I see two areas of concern, the CursorLocation being on the server side and the Do Loop with the DoEvents in it.

Shouldnt you be using the "crxReport.PrintOut True, 1" for Printing instead of PrintingStatus? Which version are you running?

[alexis23]

im using crystal report v9.2

thanks, i'll try using the CursorLocation on the client side...

regards to you.

[RobDog888]

The other things was that this loop is sucking up resources with its intense looping.

Do While crxReport.PrintingStatus.Progress = crPrintingInProgress
        DoEvents
    Loop

[alexis23]

i tried the adUseClient and get rid of the do events, but nothing was changed.. my application uses at 17mb of memory before the crystal report was called, then it rises up to around 40mb after i called the form containing this code.

can you post other way of viewing crystal report?? (if any),

thanks again.

alexis

[RobDog888]

Yes, I have an example in my signature.

[alexis23]

how can i view it,.. im a newbie here...

aleixs

[alexis23]

oh.. i saw it.. tks again.. i'll try the code.

alexis

[alexis23]

your code was really a great help... the memory consumption didn't changed by it doesn't exits the program.

thank you very much...

[RobDog888]

It could also be sucking up memory from a large recordset being opened.

Thanks

[alexis23]

what if it is really a large recordset? is there any solution? because im developing an inventory system, the records could take up a year or more.

alexis

[Hack]

what if it is really a large recordset? is there any solution? because im developing an inventory system, the records could take up a year or more.

alexis

Why do you need to have all of your records in one recordset? Just bring back a recordset of what is needed at the time.

[RobDog888]

I have a client that runs a major MRP program that returns massive recordsets that produce CR reports that are over 1000 pages+ easy.

[alexis23]

yup.. i know, but there are reports that should be printed their history like "stock movement report" or alike.

anyway, i have another post, i hope you could me for that matter too..

thanks

alexis