StampIT
asked on
Format Access Report Preview
Is there a method of forcing the Report Print preview in Access to format a particualr way? When I print preview reports the format is so small the report cannot be read. I understand that this can be changed. However some users are unfamiliar with the technique. Is there a way to make the font large enough to be read and change the size of the window every time preview is executed? Thanks.
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
Jeff - Access 2007. Thanks for the tips.
Great, again if this helps, then you can give all the points to Pete for posting the most popular way this issue is dealt with.
;-)
Jeff
;-)
Jeff
ASKER
Below is what I put in the OnClick event of the report. The preview result is 50% zoom and the window is not maximized. Am I doing something incorrect here?
Private Sub Report_Click()
DoCmd.OpenReport "rptIVSHMoSum", acViewPreview
DoCmd.Maximize
DoCmd.RunCommand acCmdZoom100
End Sub
Thanks
Private Sub Report_Click()
DoCmd.OpenReport "rptIVSHMoSum", acViewPreview
DoCmd.Maximize
DoCmd.RunCommand acCmdZoom100
End Sub
Thanks
Put this code on whatever event "Opens" the report... if you want this to be done: "every time preview is executed"
(...not on the OnClick event of the report itself...)
Again:
Private Sub btnViewReport_Click()
DoCmd.OpenReport "YourReport", acViewPreview
DoCmd.Maximize
DoCmd.RunCommand acCmdZoom200
End Sub
Here: "btnViewReport"
...is the name of the button a user will click to preview the report.
(...not on the OnClick event of the report itself...)
Again:
Private Sub btnViewReport_Click()
DoCmd.OpenReport "YourReport", acViewPreview
DoCmd.Maximize
DoCmd.RunCommand acCmdZoom200
End Sub
Here: "btnViewReport"
...is the name of the button a user will click to preview the report.
ASKER
Jeff - I got it. Thanks again for your help.
;-)
What version of Access you are using please?
On the code that Opens the Report you can also specify a specific Zoom level:
DoCmd.OpenReport "YourReport", acViewPreview
DoCmd.RunCommand acCmdZoom200 ' for 200% zoom
other examples:
DoCmd.RunCommand acCmdZoom50 '50% zoom
DoCmd.RunCommand acCmdZoom100 '100% zoom
DoCmd.RunCommand acCmdZoom200 '200% zoom
...etc
But to be sure, Maximize the report first as Pete states:
Private Sub btnViewReport_Click()
DoCmd.OpenReport "YourReport", acViewPreview
DoCmd.Maximize
DoCmd.RunCommand acCmdZoom200
End Sub
;-)
JeffCoachman