prompt for number of copies

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

i need to have popup after the 'print report' button is clicked that asks the
user how many copies of the report they want printed. any suggestions?

thanks in advance,

frank
 
i need to have popup after the 'print report' button is clicked that asks the
user how many copies of the report they want printed. any suggestions?

thanks in advance,

frank
Click to expand...

Here is one way:

Dim intCopies As Integer
intCopies = InputBox("How many?", "Copies", 1)
DoCmd.SelectObject acReport, "rptName", True
DoCmd.PrintOut acPrintAll, , , , intCopies

Though I would probably just have an unbound control on the form
itself (Default Value = 1) for the user to enter the number of copies,
and change the code to:

DoCmd.SelectObject acReport, "rptName", True
DoCmd.PrintOut acPrintAll, , , , [ControlName]
 
thanks very much. ummm, that works fine but it prints all records. i need to
print multiple copies of the same record. i should have mentioned this.

//frank

fredg said:
i need to have popup after the 'print report' button is clicked that asks the
user how many copies of the report they want printed. any suggestions?

thanks in advance,

frank
Click to expand...

Here is one way:

Dim intCopies As Integer
intCopies = InputBox("How many?", "Copies", 1)
DoCmd.SelectObject acReport, "rptName", True
DoCmd.PrintOut acPrintAll, , , , intCopies

Though I would probably just have an unbound control on the form
itself (Default Value = 1) for the user to enter the number of copies,
and change the code to:

DoCmd.SelectObject acReport, "rptName", True
DoCmd.PrintOut acPrintAll, , , , [ControlName]
Click to expand...
 
Back
Top