Control Zoom for Print Preview
 

I have developed a report that is contained on a worksheet.

I am presenting that report to the user via a button on a form and the
PrintPreview view of that worksheet.

Unload NetWorthInspector_RunReports
Worksheets("ReportNetWorthDetailed").PrintPreview
Worksheets("ReportNetWorthDetailed").Visible = False
ActiveWindow.WindowState = xlMinimized
NetWorthInspector_RunReports.Show

Is there anyway to control the zoom on the resulting PrintPreview window
that is shown. At the moment there are only two (2) settings one is the page
on window and one slightly bigger....I want to be able to provide the user
with control to go as far as they want to increase the size of the report on
the window....

Thanks
Scott