By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
446,400 Members | 981 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 446,400 IT Pros & Developers. It's quick & easy.

PrintOut method not setting number of copies...

P: n/a
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.
Sep 5 '07 #1
Share this Question
Share on Google+
2 Replies


P: n/a
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
Sep 5 '07 #2

P: n/a
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.
Sep 6 '07 #3

This discussion thread is closed

Replies have been disabled for this discussion.