Gestion du nombre de copies à imprimer
Résolu
Lenouveauapprenti
Messages postés
306
Date d'inscription
Statut
Membre
Dernière intervention
-
Lenouveauapprenti Messages postés 306 Date d'inscription Statut Membre Dernière intervention -
Lenouveauapprenti Messages postés 306 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Gestion du nombre de copies à imprimer
- Journal de naissance gratuit a imprimer - Télécharger - Histoire & Religion
- Comment imprimer en a5 - Guide
- Parole de chanson francaise gratuite à imprimer - Télécharger - Vie quotidienne
- Nombre de jours entre deux dates excel - Guide
- Logiciel gestion locative gratuit excel - Télécharger - Comptabilité & Facturation
6 réponses
Bonjour,
Juste au passage, essayé de cette façon : (à adapter à votre code!!!)
Juste au passage, essayé de cette façon : (à adapter à votre code!!!)
Rep2 = InputBox("Combien de copies ? ", , 1)
If Rep2 = "" Then Exit Sub
.PrintOut copies:=Rep2
Bonjour,
Je vous remercie pour votre réponse, je vous expose mon code.
Voilà, quand je choisis Non ( c.à.d : imprimer sans visualiser avant) le nombre de copie demandé s'imprime.
Au contraire, quand je choisis Oui (c.à.d : visualiser ), lors du click sur l'icône de l'imprimante situé à gauche de l'écran en haut, une boite de dialogue est renvoyée, même si je choisis un nombre supèrieur à 1, le nombre de copies imprimés reste 1, ça c'est mon problème.
Je vous remercie pour votre réponse, je vous expose mon code.
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:
Voilà, quand je choisis Non ( c.à.d : imprimer sans visualiser avant) le nombre de copie demandé s'imprime.
Au contraire, quand je choisis Oui (c.à.d : visualiser ), lors du click sur l'icône de l'imprimante situé à gauche de l'écran en haut, une boite de dialogue est renvoyée, même si je choisis un nombre supèrieur à 1, le nombre de copies imprimés reste 1, ça c'est mon problème.
Bonjour,
Désolé mais c'est juste une suggestion via une Input Box ... depuis une macro !
Soit vous commandez l'impression via une macro ou alors manuellement et vous fixez le nombre de copies via l'aperçu avant impression.
Si vous passez par la vue avant impression et que vous choisissez le nombre de copies et clic sur le bouton imprimer de l’aperçu vous aurez exactement le nombre de copies demandées.
Ou est votre problème…. ! Pas visible dans votre code ….. !
Désolé mais c'est juste une suggestion via une Input Box ... depuis une macro !
Soit vous commandez l'impression via une macro ou alors manuellement et vous fixez le nombre de copies via l'aperçu avant impression.
Si vous passez par la vue avant impression et que vous choisissez le nombre de copies et clic sur le bouton imprimer de l’aperçu vous aurez exactement le nombre de copies demandées.
Ou est votre problème…. ! Pas visible dans votre code ….. !
Bonjour,
Justement, le problème m'était invisible.
Lorsque je provoque la CommonDialog que j'ai placé sur ma form, j'obtiens le résultat escompté, mais
quant je passe par la visualisation et que ma DataReport est là, au clique de l'icône de l'imprimante affiché par défaut avec ma DataReport, la Boite de dialogue renvoyé par le système, en ajustant le nombre de copies, toujours une seule copie qui s'imprime. C'est là où je me suis perdu.
Merci pour votre essai
Justement, le problème m'était invisible.
Lorsque je provoque la CommonDialog que j'ai placé sur ma form, j'obtiens le résultat escompté, mais
quant je passe par la visualisation et que ma DataReport est là, au clique de l'icône de l'imprimante affiché par défaut avec ma DataReport, la Boite de dialogue renvoyé par le système, en ajustant le nombre de copies, toujours une seule copie qui s'imprime. C'est là où je me suis perdu.
Merci pour votre essai
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonsoir,
Ce que vous décrivez est une chose, par contre on ne voit pas ce que vous faites.....donc impossible de vous soumettre une proposition valable.
Ce que vous décrivez est une chose, par contre on ne voit pas ce que vous faites.....donc impossible de vous soumettre une proposition valable.