Imprimer un état sur 2 imprimantes en 1 opération
Je souhaiterais qu’un même état soit systématiquement imprimé sur 2 imprimantes différentes. Comment faire ?
Le code
Depuis Access 2002, il est possible de manipuler directement l’imprimante associée à un état, grâce à la méthode Report.Printer
. C’est ce que fait le code ci-dessous (à recopier dans un module standard d’Access).
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 |
' --- ' IMPRESSION D'UN ETAT SUR 2 IMPRIMANTES ' --- Sub DoubleImpression( _ ByVal strNomEtat As String, _ ByVal strImprimante1 As String, _ ByVal strImprimante2 As String) ' On ouvre l'état en mode caché On Error GoTo DoubleImpressionErr DoCmd.OpenReport strNomEtat, acViewPreview, , , acHidden ' On change l'imprimante de l'état, puis on imprime Set Reports(strNomEtat).Printer = _ Application.Printers(strImprimante1) DoCmd.OpenReport strNomEtat, acViewNormal, , , acHidden ' Idem avec l'imprimante 2 Set Reports(strNomEtat).Printer = _ Application.Printers(strImprimante2) DoCmd.OpenReport strNomEtat, acViewNormal, , , acHidden ' On ferme l'état DoCmd.Close acReport, strNomEtat, acSaveNo Exit Sub DoubleImpressionErr: MsgBox "Erreur d'impression : " & Err.Description, _ vbCritical, "Impression" Exit Sub End Sub |
OpenReport
pour chaque impression : le premier pour ouvrir l’état, le second pour l’imprimer.Utiliser le code
Pour tester la procédure DoubleImpression
:
- Faites apparaître la fenêtre Exécution
(CTRL
+G
). - Tapez :
DoubleImpression "Nom de votre état", "Nom de l'imprimante 1", "Nom de l'imprimante 2"
- Puis validez par la touche
[Entrée]
.
L’idéal est ensuite de placer cette ligne de test dans l’événement Sur clic
d’un bouton de commande, par exemple.
Les noms d’imprimantes sont ceux que vous trouvez dans votre panneau de configuration Windows. Il peut s’agir d’imprimantes locales ou réseau comme \serveurHP LaserJet
.
Christ > Il n’y a rien de spécial à faire dans ce cas : un état est toujours imprimé sur l’imprimante par défaut. Ou bien… ?
Salut,tout d’abord j’amerais vous remercier pour la qualité de votre site .
Ma préoccupation est la suivante :
Comment faire pour imprimer à l’aide de l’imprimante par defaut . MERCI