Help Printing in landscape

[tehgreatmg]

Ok I have my program printing out query results from my form using this

On Error GoTo Err_Command47_Click
 
    Dim stDocName As String
    Dim MyForm As Form
 
    stDocName = "query_1 subform"
    Set MyForm = Screen.ActiveForm
    DoCmd.SelectObject acForm, stDocName, True
    DoCmd.PrintOut
    DoCmd.SelectObject acForm, MyForm.Name, False
 
Exit_Command47_Click:
    Exit Sub
 
Err_Command47_Click:
    MsgBox Err.Description
    Resume Exit_Command47_Click

My problem is it doesnt print in landscape so instead of taking up 2 pages it takes up 5. How can I get it to print in landscape, I have it set on page setup but it still wont do it.

[MSeda]

try inserting
Printer.Orientation = acPRORLandscape
before the print command. you can access most of the print setup properties this way.

hope this helps,
Megan

[tehgreatmg]

I tried that and it didnt work. Any other ideas?

[tehgreatmg]

Oh yeah forgot to put that the error its giving me is Invalid Procedure call or argument

[tehgreatmg]

Well it prints but not in landscape.

Private Sub Command47_Click()
On Error GoTo Err_Command47_Click
 
    Dim stDocName As String
    Dim MyForm As Form
 
 
 
    stDocName = "query_1 subform"
    Set MyForm = Screen.ActiveForm
    DoCmd.SelectObject acForm, stDocName, True
    Printer.Orientation = acPRORLandscape
    DoCmd.PrintOut
    DoCmd.SelectObject acForm, MyForm.Name, False
 
Exit_Command47_Click:
    Exit Sub
 
Err_Command47_Click:
    MsgBox Err.Description
    Resume Exit_Command47_Click
 
End Sub

Thats what I am using do I need to put the printter.orientation in a different spot

[tehgreatmg]

I got it figured out, I just decided to bring up the page setup and print options using a domenuitem command.

[MSeda]

What version of Access are you using? I just Did a google search and found that the printer collection is new to Access 2002. here is a link to the white page.
http://msdn.microsoft.com/library/de...0_Printers.asp
it gives information on the how to use the printer collection and also a link to download (although I 've never had to download anything).

[nico5038]

Before A2002 the only way to get a report/form to print in landscape will be to open the report/form in design mode and use the File/Page settings to set the print preferences.
This will however be reset when you chose to use a different printer :-(

For managing it from code there's some info here:
http://www.mvps.org/access/reports/rpt0009.htm
but it's a real hassle...

Nic;o)

[davegillian]

I got it figured out, I just decided to bring up the page setup and print options using a domenuitem command.

How did you do this? I'm trying to get a command button to print a pivot chart in landscape and I can't find a solution anywhere.

My knowledge of VB is limited!!

Cheers,

Dave