I'm trying to print to sheet labels and want to print multiple copies of the same label on successive labels on the same sheet. Unfortunately, when I set a number >1, the printer uses a different page for each copy.
Here is the code I use:
Private Sub BtnLabel_Click()
Dim stDocName As String
Dim MyInv As Long, MyVar As Variant
Dim NumCopies, i
On Error GoTo Err_Btn1_Click
stDocName = "ShipLabel3x5"
MyInv = Me.InvoiceID
MyVar = InputBox("How many labels to print?", "Label Counter", "1")
If Nz(MyVar, "") = "" Then 'cancel
NumCopies = MyVar
'just this invoice
DoCmd.OpenReport stDocName, acViewPreview, , "InvoiceID=" & MyInv
For i = 1 To NumCopies
DoCmd.Close acReport, stDocName
If Err.Number <> 2501 Then
MsgBox "Error #" & Str(Err.Number) & vbNewLine & "An error has occurred." & vbNewLine & "Description:" & vbNewLine & ErrDesc
>1, the report prints each label on a new page. How can I print to successive labels (without page change until labels on page are printed on).
Label report has only a Detail section, with Force New Page = None and New Row or Col = None
Any help would be appreciated.