If someone could tell me exactly how to make a command button that prints the page in landscape on one click, that'd be great.

Thanks!

I got this from google.com what you can do is adjust the margins see if that works. Go to Tools/Options and then the General Tab.



slypunk

Check this one out...

>-----Original Message-----
>I have a button on my form that when clicked will use the 'PrintOut' macro
>event
>to print a query.
>
>Is there an extra bit of code I can run that will make the query print in
>landscape instead of portrait?
>
>Cheers!
>
>
>
>
>.
>
Look up the "PrtDevMode Property" in Access 2K help. Click
on "Example" and see if this will help. I use the Sub
SwitchOrient in my VB code for switching from portrait to
landscape on reports and it works nicely.

You have to place the Type statements and the SwitchOrient
sub (included in Example) in your Standard module.

Then I use a commandbutton on the form that runs the
report. This allows the user to switch from portrait to
landscape by pressing the commandbutton called SwitchView.
Module code for this is:

Private Sub SwitchView_Click()
On Error GoTo Err_SwitchView_Click

    SwitchOrient "MyReport"

Exit_SwitchView_Click:
    Exit Sub

Err_SwitchView_Click:
    MsgBox Err.description
    Resume Exit_SwitchView_Click

End Sub


--------------------------------------------------------------------------------


slypunk

If you're talking about a report, then the following will spit out your report in Landscape view without a preview. You'll probably have to tweak it to fit your variables, etc.

    Dim strPrinter As String
    Dim rptReport As Report, strReport as String

    strPrinter = Application.Printer.DeviceName
    strReport = "MyReport"

    DoCmd.OpenReport strReport, acViewPreview, , , acHidden

    Set rptReport = Reports(strReport)
    Set rptReport.Printer = Application.Printers(strPrinter)

    rptReport.Printer.Orientation = acPRORLandscape
    'Set it to acPRORPortrait for portrait.

    DoCmd.OpenReport strReport, acViewNormal
    DoCmd.Close acReport, strReport


Greg Serrano
Michigan Dept. of Environmental Quality, Air Quality Division