Crystal Display in Page Width

[adBSTRD]

Hi, I want the report to show in Page Width. I can use the crviewer's zoom property and set it to 100 but it does not do exactly what I need. Is there a constant that represents the 'Page Width' option?

[brucevde]

From the help file.

ZoomLevel

The zoom level to use to view the report As Integer. Indicate a percentage, or use 1 to fit the entire width of the page in the Report Viewer window (but not the entire page) or 2 to fit the entire page in the window.

So -

CRViewer.Zoom 1 'for page width

[adBSTRD]

Hey brucevde long time no see!
MUCHAS GRACIAS AMIGO ! !

[myrrdan]

I have a problem with the zooming..

Function ViewCrystal(strPath As String)
 
frmMain.crvEnroll.Visible = True
strPath = App.Path & "\files\" & strPath
 
'this is the problem, the change of left & top values works.
'but the zoom does not
 
frmMain.crvEnroll.Top = 60
frmMain.crvEnroll.Left = 4
frmMain.crvEnroll.Zoom 1
 
Set objCrystalApp = New CRAXDRT.Application
Dim objReport As CRAXDRT.Report
Set objReport = objCrystalApp.OpenReport(strPath)
    frmMain.crvEnroll.ReportSource = objReport
frmMain.crvEnroll.ViewReport
Set objReport = Nothing
 
End Function