How to print more than one copy of a report from Ms Access
Posted on 2012-03-12
How do I print more that one copy of a report from Ms Access that the code I use is to call the modlue.
here is my code on the click event (I also have a modlue)
Private Sub Command18_Click()
On Error GoTo Err_Command18_Click
Dim stdocname As String
Dim stCriteria As String
Dim strReport As String
Dim strPrinter As String
strReport = stdocname
strPrinter = "AA_ABCE_CL4600_123"
Form_frmPrintedFormsAll.HoldAnyData = Me.NameEntered
Form_frmPrintedFormsAll.Note = Me.AddNote
Form_frmPrintedFormsAll.RecordNo = Me.RecordNo
Form_frmPrintedFormsAll.Dept = Me.Dept
If IsNull(NameEntered) Or IsNull(RecordNo) Then
MsgBox "Please enter all informations before proceeding."
stCriteria = "CHRecord = '" & Me.RecordNo & "'"
strReport = "rptFileRequest"
Call PrintToSpecificPrinter(strPrinter, strReport)
DoCmd.Close acForm, "frmParmFileRequest"
This "Call PrintToSpecificPrinter(strPrinter, strReport)" will only give me one copy of the report, what should I put in the code if I need 2 copies of the same report.