Print more than one copy

[MaleNurse325]

Hi guys,
I have a report that I woudl like to print four copies of with this code. Where do I put the number of copies please?

Function mcrPrintConsignmentNote()
On Error GoTo mcrPrintConsignmentNote_Err

DoCmd.RefreshRecord
DoCmd.OpenReport "rptConsNote_by number", acViewNormal, "", "", acNormal
DoCmd.Close acReport, "rptConsNote_by number"
DoCmd.Close acForm, "frmConsignNote"
DoCmd.OpenForm "Switchboard", acNormal, "", "", , acNormal


mcrPrintConsignmentNote_Exit:
Exit Function

 

[MajP]

Automating printing multiple copies of a report in Microsoft Access | Database Solutions for Microsoft Access | databasedev.co.uk

Print multiple copies of a report in Microsoft Access: The situation may arise where it is always necessary to print out a specified number of copies of a Microsoft Access report...

www.databasedev.co.uk

 

[MaleNurse325]

Thank you very much.

 

[arnelgp]

if you are making a "report" that has distributions, eg:

copy 1 - patient copy
copy 2 - 201 file copy
copy 3 - accounting
copy 4 - extra copy

then there is a simple hack on this using a single report but
prints the 4 (distribution copy).
view the report in print preview.