Print multiple copies of report via code

[Vidar13]

Is there a quick and dirty way to print multiple copies of the same report without using a code counter (do/while)?

What I'd like to do is have a field on a form with a "number of copies" to be used to print that many copies of the report.

 

[JeremyNYC]

Can't think of one. Why not use the loop? Easy enough, yeah?

Jeremy

Sub PrintXCopies()
Dim intCount As Integer
intCount = me!txtNumberOfCopies
Do Until intCount = 0
intCount = intCount - 1
Call DoCmd.OpenReport("ReportName&quot
Loop
End Sub
=============
Jeremy Wallace
Designing, Developing, and Deploying Access Databases Since 1995

http://www.AlphaBetCityDataworks.com

Take a look at the Developer's section of the site for some helpful fundamentals.


Remember to reward helpful tips with the stars they deserve.

 

[PaulBricker]

Use this

Dim i as Integer
i = Forms!FormName!NumberofCopiesField
DoCmd.SelectObject acReport, "rptName", True
DoCmd.PrintOut acPrintAll,,,i

That should do it.

Paul