print multiple copies of the same report

[eyalco]

I have a report which I need to copy in 2 different lables. I've set a table with numbers from 0-10 (0 gets "original and all the others get "copy"). The caption is changed by IIF - so now all is ok.

The problem is : when users presses a pint button, a small form pops up asking number of copies to print (my intention is to print from the table the 0 + the number of copies, so if chosen 2 copies, we'll get 1 original + 2 copies)..
What happens is that if user writes 2 copies' I get all table printed twice )if I have 10 number in the table, I get 2 original + 20 copies.

What w'd be the code for that please?

Thanks.

[nico5038]

When you have A2003 or higher, then several print options can be handled by code, but A2000 needs some "hard" and difficult coding.

I would probably instruct the users and when they are stubborn think about triggering a Popup form with a warning not to change the number of copies.

Nic;o)

[eyalco]

Thanks for that.
As Im already using a code, I'd appreciate if you'd see what am I doing wrong and fix it - if possible please?

The code :

Private Sub PRINTREP_Click()
On Error GoTo Err_PRINTREP_Click

Dim strDocName As String
Dim numCopies As Integer
Dim strLinkCriteria As String

strDocName = "RPT_INVOICE"

strCriteria = "[invoice_no]= " & Forms![FRM_INVOICE]![INVOICE_NO]

numCopies = Me![COPY]

DoCmd.SelectObject acReport, strDocName
DoCmd.PrintOut acSelection, , , , numCopies
DoCmd.CLOSE acReport, strDocName

Exit_PRINTREP_Click:
Exit Sub

Err_PRINTREP_Click:
MsgBox Err.Description
Resume Exit_PRINTREP_Click

End Sub

The me![copy] is where user states number of copies he's interested in - and there's the problem.

Hope you can assist.

[nico5038]

I don't know the "num copies" parameter of the DoCmd.PrintOut.
I would expect this code:

for intI = 1 to Me!Copy
     docmd.OpenReport "rptYours", asPreview
endif
 

Nic;o)

[eyalco]

Thanks for your help. I'm trying your code for days now and in every combination I can think of - still, the end result is the same : the "me!copy" is not recognizable and whatever number I put in there, it prints all copies in the table.

Please, anything else comes to mind?

Thanks.

[nico5038]

Thanks for your help. I'm trying your code for days now and in every combination I can think of - still, the end result is the same : the "me!copy" is not recognizable and whatever number I put in there, it prints all copies in the table.

Please, anything else comes to mind?

Thanks.

Hmm, perhaps "copy" is a reserved word. Change the Name property (Under the Other tab) into "txtCopy" and change the FOR command to use "to Me.txtCopy"

Nic;o)

[eyalco]

Thanks again - nothing's changed.
I'm abouve up...

Can you check again my routine please?
Here's the print code in the invoice form (leading to the small txtcopy form) :

Dim msgResult As VbMsgBoxResult 'Boolean

msgResult = MsgBox("?äàí àú áèåçä ùàú øåöä ìòãëï", vbYesNo, "Important!")
If msgResult = vbNo Then
DoCmd.CLOSE acForm, Me.NAME
Exit Sub
End If

If msgResult = vbYes Then

Me.STATUS = "2"
Me.IS_PRINTED = True
INVOICE_NO = DMax("[INVOICE_NO]", "TBL_INVOICE") + 1

DoCmd.RunCommand acCmdSaveRecord

Dim strDocName As String
Dim strReportName As String
Dim strCriteria As String

If NewRecord Then
MsgBox "This record contains no data." _
, vbInformation, "Invalid Action"
Exit Sub
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Else
strDocName = "frm_copies"
strReportName = "rpt_invoice"
strCriteria = "[invoice_no]= " & [INVOICE_NO]

End If
On Error GoTo Err_Command109_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "FRM_COPIES"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Command109_Click:
Exit Sub

Err_Command109_Click:
MsgBox Err.Description
Resume Exit_Command109_Click

Const conErrDoCmdCancelled = 2501
If (Err = conErrDoCmdCancelled) Then
Resume Exit_PRINT2_Click
Else
MsgBox Err.Description
Resume Exit_PRINT2_Click
End If

If NewRecord Then
MsgBox "This record contains no data." _
, vbInformation, "Invalid Action"
Exit Sub
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Else
strReportName = "rpt_invoice"
strCriteria = "[invoice_no]= " & Me![INVOICE_NO]

DoCmd.OpenReport strReportName, acViewPreview, , strCriteria
DoCmd.PrintOut , , , , [txtCOPY]

End If

Exit_PRINT2_Click:
Exit Sub

Err_PRINT2_Click:
MsgBox Err.Description
Resume Exit_PRINT2_Click

End If

End Sub

here's the code on the txpcopy form (where user states the num of copies he wants) :

Private Sub Command6_Click()
Dim strCriteria As String
strReportName = "rpt_invoice"

strCriteria = "[invoice_no]= " & Forms![FRM_INVOICE]![INVOICE_NO]

For intI = 1 To Me.TxtCOPY

DoCmd.OpenReport "rpt_INVOICE", asPreview
Next
end sub

Is there anything I can do for it to work please?
Thanks.

[nico5038]

Try:

dim strCriteria as String
for intI = 1 to Me!txtCopy
     strCriteria = "[invoice_no]= " & Me.[INVOICE_NO]
     docmd.OpenReport "rptYours", asPreview,,strCriteria 
endif
 

Nic;o)

[eyalco]

Thanks for helping.
Im getting "microsoft office can't find the field "I" referred to in your expression"

By the way, Im righting "next" instead of "endif" you're writting as the "endif" not allowed in phraze.

Help?

[nico5038]

Yep, the endif was a typo, but the "I" isn't "visible" in my code.
Can you copy/paste the code used ?

Nic;o)

[eyalco]

Sure.

Private Sub Command8_Click()
Dim strCriteria As String
For intI = 1 To Me!TxtCOPY
strCriteria = "[invoice_no]= " & Me.[INVOICE_NO]
DoCmd.OpenReport "rpt_invoice", asPreview, , strCriteria
Next

End Sub

The debugg is on the filter criteria...

Really appreciate your help.

[nico5038]

Hmm, I suspect that your [invoice_no] is a text field, try:

 strCriteria = "[invoice_no]= '" & Me.[INVOICE_NO] & "'"
 

Text needs to be embedded in single quotes ( ' ).

Nic;o)

[mshmyob]

Not exactly sure what you are asking but if you are trying to set the number of copies to print you could use this code that I use all the time.

Dim rpt As Report


Dim strDefaultPrinter As String
' get current default printer.
strDefaultPrinter = Application.Printer.DeviceName
' switch to printer of your choice:
Set Application.Printer = Application.Printers(strDefaultPrinter)
' open report but in hidden mode so you can apply parameters to it such as number of copies to print
DoCmd.OpenReport "PickSlip", acViewPreview, , , acHidden
' set my parameters for the print job
Set rpt = Reports!PickSlip
rpt.Printer.Copies = cmbCopiesPick.Value
' activate my print job by unhiding it
DoCmd.OpenReport "PickSlip", acViewNormal
DoCmd.Close acReport, "PickSlip", acSaveNo

Set Application.Printer = Nothing