Microsoft 365 Choisir une imprimante pour imprimer doc word sous VBA Excel

[natof]

bonjour

a partir d'un fichier de stock excel , je cree un document word ( qui n'est pas visible) que je dois imprimer

Set WordApp = CreateObject("Word.Application")
Set WordDoc = WordApp.Documents.Add

WordApp.Visible = false
With WordDoc

etc......

WordDoc.PrintOut Copies:=(USF_code.TextBox3)

je connais la commande Application.Dialogs(xlDialogPrinterSetup).Show , qui me permet de modifier l'imprimante pour imprimer le fichier excel .

mais dans mon cas , je lance la commande WordDoc.PrintOut Copies:=(USF_code.TextBox3) qui est le document word cree dans vba excel et il faudrait que je puisse choisir l'imprimante ou ce document va s'imprimer

je ne trouve pas de commande pour afficher une boite de dial et de choisir l'imprimante ou sera dirigé l'impression du document word

si ce n'est pas faisable , peux t on lister les imprimante windows et changer l'imprimante par defaut windows

merci d'avance

 

[job75]

Bonjour natof,

Dans Word le code VBA est Application.Dialogs(wdDialogFilePrintSetup).Show

Pour le faire piloter par Excel il faut remplacer l'argument par sa valeur 97 :

If WordApp.Dialogs(97).Show Then WordDoc.PrintOut Copies:=USF_code.TextBox3

A+

 

[natof]

Bonjour natof,

Dans Word le code VBA est Application.Dialogs(wdDialogFilePrintSetup).Show

Pour le faire piloter par Excel il faut remplacer l'argument par sa valeur 97 :

If WordApp.Dialogs(97).Show Then WordDoc.PrintOut Copies:=USF_code.TextBox3

A+

Merci...