Private Sub detach_AfterUpdate()
On Error GoTo Err_detach_Click

If IsNull(Me.TxtMonth) Then
    MsgBox " "
    Exit Sub
End If

Dim Titles1 As Variant
Dim Titles2 As Variant

Titles1 = Array(" ", " 8 ", "  5 ", "  5 ", "  ")
Titles2 = Array(" ", "   ", "   ", "   ", "   ")

Dim idx As Long
idx = Me.detach.ListIndex
If idx < 0 Then Exit Sub

Me.Reporte_Title.Visible = False
Me.Reporte_Title = Titles1(idx)
Me.Report_Title = Titles2(idx)

Dim Copies As Long
Copies = Nz(Me.txtCopies, 1)  '          

DoCmd.OpenReport "rptDiscount", acPreview, , , , "qry_rptD|" & Copies

Exit Sub

Err_detach_Click:
If Err.Number = 2501 Then Resume Next
End Sub






---------- (    ) ----------
Private Sub Report_Open(Cancel As Integer)
    Dim Args As Variant
    Dim QryName As String
    Dim Copies As Long
    Dim i As Long
    
    If Not IsNull(Me.OpenArgs) Then
        Args = Split(Me.OpenArgs, "|")
        QryName = Args(0)
        If UBound(Args) >= 1 Then
            Copies = Val(Args(1))
        Else
            Copies = 1
        End If
        For i = 2 To Copies
            DoCmd.PrintOut acPages, 1, 1
        Next i
    End If

End Sub