Choix imprimante

[degap05]

Bonjour à tous,

Je sais que le sujet a été traité de nombreuses fois, mais je bute sur un problème de syntaxe dans le choix de mon imprimante.
Celle-ci est installée en local.
Elle se nomme: IMP_DOT
Comment l'intégrer dans le code suivant (j'ai essayé, mais erreur):

Sub ImprimerDotation()
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Set WordApp = CreateObject("word.application") 'ouvre session word
Set WordDoc = WordApp.Documents.Open("E:\PG\UF-UAM\Secrétaires\Renouvellement de dotation.doc") 'ouvre document Word
WordApp.Visible = False 'word masqué pendant l'operation
WordDoc.Bookmarks("DateRemiseFeuille").Range.Text = Range("B6").Text
WordDoc.Bookmarks("Médicament").Range.Text = Range("B7").Text
WordDoc.Bookmarks("Service").Range.Text = Range("B4").Text
WordDoc.Bookmarks("Réserve").Range.Text = Range("B8").Text
WordApp.Visible = True 'affiche le document Word
WordDoc.PrintOut
'ActivePrinter = "\\IMP_DOT:"
Application.Wait (Now + TimeValue("00:00:01"))
WordDoc.Close False 'ferme le document word sans sauvegarder les données
WordApp.Quit 'ferme la session Word
End Sub

Merci de votre aide.

 

[tototiti2008]

Re : Choix imprimante

Bonjour DEGAP05,

une question idiote : tu as essayé en mettant
ActivePrinter = "\\IMP_DOT:"
avant
WordDoc.PrintOut
?
et si tu essayes
Application.printOut
à la place, ça donne quoi ?

 

[Catrice]

Re : Choix imprimante

Bonjour,

Tu ne dis pas quel est ton probleme exactement ...
Pour récupérer la syntaxe exacte, le mieux est encore de faire un Macro/Enregistrer ...

 

[degap05]

Re : Choix imprimante

Bonjour,

Tu ne dis pas quel est ton probleme exactement ...
Pour récupérer la syntaxe exacte, le mieux est encore de faire un Macro/Enregistrer ...

Bonjour et merci à tous,

C'est ce que j'ai fait.

Mais la réponse de tototiti2008, m'a aussi aidée.

Merci, résolu.