Data Report zoom level

[toon10]

Hi

I have a data report in my VB6 app which I open up through code. This works fine but the report opens up with a zoom level of 100%. I want to be able to open the report to 75% or maybe "fit to page" automatically as the bottom of the report is hidden under 100% zoom.

Is there an easy way to set the zoom level?

Thanks
Andrew

Private Sub cmdPrint_Click()
On Error GoTo Err_Print_Click
    Dim Msg, Response, Title, Style As String
    Dim i As Integer

    With envData
        .rscmReport_Grouping.Open
    End With

    If optScreen = True Then 
        With XAM7000Report
            .Orientation = rptOrientPortrait
            .Show
            .Visible = True
        End With
    End If
...