• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 287
  • Last Modified:

printing a report with copies

This is tricky.  I've used DoCmd.PrintOut acPages, 1, 1, acMedium, 3 in the on activate event of a report.
The form that executes the printing of the report has two buttons, preview and print.  I want the report to print 3 copies of the report when the print button is clicked,And only preview when the preview is clicked. Each button executes the docmd  DoCmd.OpenReport "rptOrders", acViewNormal  and preview , respectfully.  I set up a variable that is set from each button_click that initializes to 1 or 0 depending on the button.  this is passed to the report and the activate event has an if statement that checks for 0 and executes the DoCmd.PrintOut acPages, 1, 1, acMedium, 3  but this doesn't work.  

any ideas on how to do this effectivly.
0
SE081398
Asked:
SE081398
1 Solution
 
SPECIALISTCommented:
hi,

I assume you have a list box that lists the report names on your form.  If I understand your question you can do this.

Have a form with the name of a report in a text box.
have a preview button called preview.
have a print button called printcmb


the on click event of the preview you can do this:

private sub preview_click

docmd.openreport reportname",acpreview
end sub

private sub Printcmb_click

dim i
for i=1 to 3
docmd.openreport "reportname"
next
end sub

this will work for you

Specialist
0
 
SE081398Author Commented:
This is fine but how does the docm.printout acpages,1,1,,2 thing work.  This should control the printing of a report, do you know how and where this action should be used.  meanwhile I'll use the for loop.  thank you.

 
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Cloud Class® Course: Microsoft Office 2010

This course will introduce you to the interfaces and features of Microsoft Office 2010 Word, Excel, PowerPoint, Outlook, and Access. You will learn about the features that are shared between all products in the Office suite, as well as the new features that are product specific.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now