PrintOut method not setting number of copies...

[MLH]

Dim HowManyCopies As Integer
HowManyCopies = 4
DoCmd.OpenReport "rptSeparatorSheet", acViewPreview
DoCmd.PrintOut acPrintAll, acHigh, HowManyCopies, False
DoCmd.Close acReport, "rptSeparatorSheet"

Do I have the above syntax wrong. Am trying to get 4 copies
of the report to print. Only 1 is ejecting.

[ARC]

How about this way?

Dim HowManyCopies As Integer, resp as variant, i as integer
HowManyCopies = 4
resp=InputBox("How many copies would you like to print?","Number of
copies", HowManyCopies)
if isnumeric(resp) then
for i = 1 to resp
DoCmd.OpenReport "rptSeparatorSheet", acViewNormal 'normal send
straight to printer
next i
endif

[MLH]

ARC: I have been doing it the way you recommended. The reason I'm
changing is because I need to be able to control the collating. The
PrintOut method of the DoCmd object will allow me to do that.

for i = 1 to resp
DoCmd.OpenReport "rptSeparatorSheet", acViewNormal
next i

Here's something else I tried after getting a better handle on the
Printout syntax:

DoCmd.OpenReport "MyReport", acViewPreview
DoCmd.PrintOut acPrintAll, , , acHigh, HowManyCopies, False
DoCmd.Close acReport, "MyReport"

That syntax works. Problem solved.