VBA Print

[rivergum_23]

Hi All,
Can you please help with this VBA.



I am trying to print 5 copies of the report via the button on the form.

I'm sure I have the code correct, however I only prints 1 copy instead of 5.

Please help...

Thanks heaps in advance.

River

[alansidman]

Changed your code slightly to:

Private Sub Command0_Click()
Dim nPPages As Integer

DoCmd.SelectObject acReport, "Table1", True
DoCmd.PrintOut , , , , 5

End Sub

and it worked for me.

Also look at this for reference purposes:

http://access.mvps.org/access/reports/rpt0001.htm