VBA code to open a report, set to Landscape or Portrait, and set to Single or Duplex

[Jerry Call]

I have a command button which a user can use to print out a report.
I understand the vba commands for opening, closing, PrintOut, etc.

But I would also like to include vba code that sets the
Landscape/Portrait options, and also the Single or Duplex options.
And here I'm having a hard time sorting out the code.

Could you get me to the relevant vba for these two options?

[ranman256]

you shoulnt needed it. the report is already set to either Land or Port by design.
No need to change it.

[davegri]

See if this can help: Search Google Application.reports

Application.Reports(strDocName).Printer.Orientation = acPRORLandscape
Application.Reports(strDocName).Printer.Orientation = acPRORPortrait
       
Application.Reports(strDocName).Printer.Duplex = acPRDPSimplex
Application.Reports(strDocName).Printer.Duplex = acPRDPHorizontal
Application.Reports(strDocName).Printer.Duplex = acPRDPVertical

[Jerry Call]

Let me give you the code that runs when the user chooses the command button to run a typical report:

Private Sub cmdSouthStoreSnacksTallySheet_Click()

[Jerry Call]

Messed up the previous message. Start over.
Here's the code that runs when the user chooses the command button to run a typical report:
Private Sub cmdSouthStoreSnacksTallySheet_Click()
DoCmd.OpenReport "wksSouthStoreSnacksTally", acViewPreview
DoCmd.PrintOut
DoCmd.Close
DoCmd.OpenForm "frmOpening", acNormal
EndSub

The difficulty is not so much with Portrait vs. Landscape printing.
Rather, I want to be able to choose between Simplex and Duplex modes.
That is, sometimes I want to print only one page on a side of a piece of paper;
in other cases I want to print duplex, with the option of flipping or not flipping direction.
Easy, of course, to choose these things if you bring up the printer control screen.
But I want to do it in code within my app itself.

So what code could I use to specify those options. What would it look like
integrated into my code above?

[davegri]

I haven't messed with this for about 10 years, but
off the top of my head, here's what I would try first.

Private Sub cmdSouthStoreSnacksTallySheet_Click()
DoCmd.OpenReport "wksSouthStoreSnacksTally", acViewPreview
If msgbox ("Do you want duplex?",vbyesno) = vbyes then
     Application.Reports("wksSouthStoreSnacksTally").Printer.Duplex = acPRDPHorizontal
else
     Application.Reports("wksSouthStoreSnacksTally").Printer.Duplex = acPRDPSimplex
end if
DoCmd.PrintOut
DoCmd.Close
DoCmd.OpenForm "frmOpening", acNormal
EndSub

[Jerry Call]

Works like a charm. Thanks so much. I know how to do these settings in the regular Access interface
(although they're not very intuitive to get at), but I do appreciate having the vba version.

Alas, I still can't find the place to click to automatically mark this thread as solved.

[davegri]

Works like a charm. Thanks so much. I know how to do these settings in the regular Access interface
(although they're not very intuitive to get at), but I do appreciate having the vba version.

Alas, I still can't find the place to click to automatically mark this thread as solved.

Glad it worked for you. I marked thread solved.