ACCESS

--------------------------

* Imprimante sous access *

--------------------------

* imposer une imprimante/Etat

Ouvrir la base,dans la fenetre de sélection Tables / Requetes.../ Etats (à gauche):

- sélectionner Etats 

- sélectionner l'etat (à droite) voulu 

- double-cliquer directement sur l'etat 

Il va apparaitre à l'écran, on va dans Fichier / mise en page / onglet "page" ou on peut choisir :

- l'orientation (paysage/portrait) 

- le format papier (A4, A3...) 

- l'imprimante (par défaut ou spécifique) 

on coche "spécifique" et on désigne ensuite l'imprimante  réelle ou virtuelle (pdfcreator)

Dans le menu Fichier, choisir la commande Fermer et dans la boîte de dialogue Enregistrer les changements dans l'état <NomEtat>, cliquer sur le bouton OK.

--------------------------

* Avoir une fenetre de choix d'imprimante à chaque impression d'un etat

rajouter ce code dans l'etat :

DoCmd.OpenReport "NomEtat", acPreview

Docmd.RunCommand acCmdPrint

--------------------------

* Imprimer un état sur 2 imprimantes en 1 opération

rajouter ce code en fin de l'etat :

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