prompt for number of copies

[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

 

[fredg]

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

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]

 

[Guest]

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

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

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]