how to print more then one report

[StuJol]

i have a Access2003 report that isnt bound to any tbl ot qry. Is is an
Invoice. A single sheet of A4 paper. When user clicks on print cmd button i
want an option for how many copies are printed.

Any ideas what function/cmd i use for this?

 

[Duane Hookom]

Can you explain what you mean by "isn't bound to any tbl or qry"? Are you
suggesting the report doesn't have a record source? If so, this is highly
unusual and should be clarified.

 

[StuJol]

the report is NOT bound to any table or form. i have a form with invoice
details on it. i then print a report which is the actual paper copy of the
invoice. all fields on report have dlookups or forms!form1.field1 as their
control sourse. i suppose the report is same as a form really.

All works fine. At certain times i would like to print more the one report.
instead of clicking the print cmd and printing one report and then having to
click the print command a second time, i would like an input box for the user
to type in how many reports/invoices too print!

hope this helps

 

[Duane Hookom]

Bind your report to a table [tblNums] that has a single numeric field [Num]
and records with values 1 - 100. You can set the criteria under the Num
field in your record source to something like:
<=[Enter Number of Copies]
I advocate replacing the above parameter prompt with a control on a form
like:
<=[Forms]![frmYourForm]![cboCopies]

 

[StuJol]

I've found a solution

Dim stDocName As String
Dim PrintQTY As String

stDocName = "Quote"
PrintQTY = InputBox("How many copies would you like to print? ",
CurrentDb.Properties("AppTitle"), 1)


DoCmd.SelectObject acReport, stDocName, True
If PrintQTY = "" Then Exit Function
DoCmd.PrintOut , , , , PrintQTY