Gestion du nombre de copies à imprimer

Rep2 = InputBox("Combien de copies ? ", , 1)
If Rep2 = "" Then Exit Sub
.PrintOut copies:=Rep2

On Error GoTo nnn:



Dim Quest, Reponse As String
Dim NumCopies, I, DPage, FPage, P As Integer

Quest = MsgBox("Voulez vous visualiser avant l'impression ?", vbMsgBoxRight + vbQuestion + vbYesNo, "Question ?")

If Quest = vbYes Then
Call OkVisualiser
Exit Sub
Else
GoTo Nos:
Exit Sub
End If

Nos:

CmnDialog.ShowPrinter
NumCopies = CmnDialog.Copies
DPage = CmnDialog.FromPage
FPage = CmnDialog.ToPage

For P = DPage To FPage

For I = 1 To numcompies


SQLs = "select * from TableOperations where ((Dossier='" & CStr(VarDossier) & "') and (Mois='" & CStr(CmbMois) & "'))"

If RS.State = adStateOpen Then RS.Close
RS.Open SQLs, DB, adOpenKeyset, adLockPessimistic

ADCotisations.RecordSource = SQLs

Set DRCotisations.DataSource = ADCotisations

ADCotisations.Refresh

With DRCotisations

.Sections("Section4").Controls("LblSociete").Caption = VarSociete & ", " & VarStatut

.Sections("Section2").Controls("LblMSNP").Caption = Format(LblSalairesNP, "#,##0.00")

.Sections("Section2").Controls("LblTauxAF").Caption = Format(TauxAF, "#,##0.00%")


.Sections("Section2").Controls("LblMtAF").Caption = Format(MontantAF, "#,##0.00")


.PrintReport False, rptRangeAllPages

.Show
.WindowState = 2

End With




DRCotisations.Hide




Next I
Next P

nnn: