Help with changing page size/layout using PrtDevMode

[tbeegz]

I have a database with multiple reports that is shared on a network. Many of the reports need to be printed in landscape format on legal paper. I changed all the settings through Page Setup on my machine and everything was working fine, but one of the users came to me with her report printed on letter paper. I went over to her machine and changed her Page Setup, which worked, but this is not feasible to do for all users.

I think that PrtDevMode is the way to go, but I am realitively new to code and can't get it working. Any help with modifying my code to include PrtDevMode to print landscape and on legal would be greatly appreciated!!


Private Sub cmd_PrintReport_Click()
On Error GoTo Err_cmd_PrintReport_Click

Dim stDocName As String

stDocName = "rpt_Summary"
DoCmd.OpenReport stDocName, acNormal

Exit_cmd_PrintReport_Click:
Exit Sub

Err_cmd_PrintReport_Click:
MsgBox Err.DESCRIPTION
Resume Exit_cmd_PrintReport_Click

End Sub

 

[[nateobot]]

Check out this link

http://www.microsoft.com/AccessDev/Articles/GetzCh10.HTM

 

[tbeegz]

nateobot...Thanks for the link...looks like it is exactly what I need (hopefully I can decipher the code )