Discussion :

[possible924]

Bonjour à tous,
J'ai une application qui fonctionne d'Access 2007 à 2016 et les pc sont sous Windows 10.
Je souhaite définir par VBA l'imprimante par défaut,
mais comment faire ?
Merci par avance pour votre aide
Pierre

[titi95]

Bonsoir

Tu veux changer l'imprimante par défaut proposée par une autre imprimante pour une impression ponctuelle
OU définir une autre imprimante comme imprimante par défaut sur le poste ?

Titi95

[possible924]

En fait, je souhaite générer une série de documents au format pdf
(préparation des factures à envoyer par messagerie)

Je pensais devoir définir l'imprimante pdf par défaut, générer le fichier pdf correspondant à chaque facture
puis remettre par défaut l'imprimante d'usage.

Mais il est peut être possible de forcer l'impression sur une imprimante qui n'est pas l'imprimante par défaut.
Par contre, je ne sais pas écrire le code et c'est en ce sens que j'ai besoin d'aide !

Pierre

[titi95]

Dans ce cas, je ne peux donc que te proposer d'étudier ce FAQ de tee_grandbois : Comment choisir l'imprimante avec laquelle on va imprimer ?
https://access.developpez.com/faq/?p...Etat#ChoixImpr

Comme je ne l'ai pas utilisé, je ne pourrai pas t'en dire plus.

Titi95

[Zekraoui_Jakani]

Pour ma part, j'ai déjà utilise ce genre d'instruction:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoCmd.OutputTo acOutputForm, "tmpform", "PDFFormat(*.pdf)", strFile, False, "", , acExportQualityScreen

où tmpform est un formulaire représentant une facture et strFile contient le répertoire de destination et le nom du fichier produit avec son extension "pdf".

exemple pour le répertoire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

RepertoireBase = Application.CurrentProject.path & "\"

exemple pour le fichier:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Fichier = "Facture_" & Destinataire & "_" & Format(Now(), "YYYYMMDD_hhmmss") & ".pdf"

doc strFile est construit ainsi:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

strFile = RepertoireBase & Fichier

[Alex_42]

Bonjour,

J'ai actuellement le meme probleme.

je dois générer environ 250 pdf quotidien et en fonction du secteur d'activité, l'imprimer sur l'imprimante du secteur concerné.
Jusque là pas de soucis.
j'arrive bien a changer d'imprimante par défaut en fonction du secteur (dans le gestionnaire des imprimante de windows , ca me change bien l'imprimante par défault)
par contre ca ne change pas sous access (2007) et ca me laisse l'imprimante par défault initiale.
Par contre , si je change d'imprimante par défault, que je quite access , et que j'ouvre access a nouveau, , ca va bien mettre l'imprimante par défault voulu
mais je me vois mal ouvrir et fermer access 250 fois chaque jour lors de la mise à jour ...

une idée ?

Merci