auto fit to screen

[elsc]

hi,

when i display my cystal report in the screen, it automatically show 100%.

how to set it to "Fit to Page" everytime i view it?

[RobDog888]

Are you using the report viewer control? What version of CR? How are you
currently displaying the report (code)?

[elsc]

yes... im using report viewer control....

cyrtal report 9.2

something like

ReportViewer.ReportSource = bla bla

[RobDog888]

Ok, try this...

Option Explicit
'Add reference to CR Viewer Control
'Add reference to CR x.x ActiveX Designer RunTime Library
Private Sub Command1_Click()
    '1 = Page Width
    '2 = Whole Page
    '3 = 400%
    '4 = 300%
    '5 = 200%
    '6 = 150%
    '7 = 100%
    '8 = 75%
    '9 = 50%
    '10 = 25%
    CRViewer1.Zoom 2
End Sub
 
Private Sub Form_Load()
    
    Dim oReport As CRAXDRT.Report
    Dim crxApplication As CRAXDRT.Application
 
    Set crxApplication = New CRAXDRT.Application
    Set oReport = crxApplication.OpenReport("D:\Report1.rpt", 1)
    CRViewer1.ReportSource = oReport
    CRViewer1.ViewReport
    
End Sub

[elsc]

i have another question, do u have any idea to change report paper size?

my customer use custom paper to print out the receipt using pin printer,

the width of the paper same with Letter size, but the Height is half of fanfold size..

do you have any idea ?