Discussion :

[azur668]

Bonjour,
Quand j'ouvre la boite de dialogue 'imprimer' et que je sélectionne une autre imprimante, le bouton Annuler se transforme en bouton Fermer,
et dans ce cas c'est cette imprimante qui sera utilisée pour les impressions suivantes, mais l'imprimante par défaut de windows n'est pas affectée.

Quand j'enregistre la macro correspondante,c'est la commande Activeprinter ="nom de l'imprimante" qui est générée.
Mais quand j'exécute cette macro, ActivePrinter va modifier l'imprimante par défaut de windows.
Comment obtenir par VBA le même résultat qu'à la souris dans l'interface de word,
c'est-à-dire ne pas changer l'imprimante par défaut de Windows ?

Cette question a déjà été posée sur ce forum il y a deux ans,
avec pour réponse de mémoriser l'imprimante dans une variable, et de la rétablir ensuite, mais cela ne me convient pas:
En effet, mon application fonctionne en tache de fond, et envoie des impressions sans intervention de l'utilisateur,
et cela ne doit impérativement pas interférer sur les imprimantes par défaut, même pour une courte durée, car l'utilisateur peut être emmené à modifier l'imprimante par défaut au même moment (cela arrive fréquemment).

Y a t il un moyen ?

Merci

[wape]

Bonjour,

Essaye éventuellement ceci:

Code :

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

1
2
3
4
5
With Dialogs(wdDialogFilePrintSetup)
    .Printer = "HP LaserJet P2035" '<-- Nom de l'imprimante à adapter
    .DoNotSetAsSysDefault = True
    .Execute
End With

wape

[Heureux-oli]

Salut,

La solution est d'utiliser une variable pour stocker le nom de l'imprimante.
On change l'imprimante par défaut, on imprime et on redéfinit l'imprimante par défaut avec le contenu de la variable.

Code :

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

1
2
3
4
5
6
7
8
Sub ImprimeR01()
Dim stPrinter As String
 
stPrinter = Application.activePrinter
Application.ActivePrinter = "Mon imprimante "
...
Application.ActivePrinter = stPrinter
End Sub

[azur668]

Essaye éventuellement ceci:

Code :

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

1
2
3
4
5
With Dialogs(wdDialogFilePrintSetup)
    .Printer = "HP LaserJet P2035" '<-- Nom de l'imprimante à adapter
    .DoNotSetAsSysDefault = True
    .Execute
End With

wape

Merci Wape, Excellente solution !
je ne connaissait pas l'objet Dialogs, qui est vraiment très puissant et permet de solutionner beaucoup de choses difficiles à exécuter en VBA classique !

La solution est d'utiliser une variable pour stocker le nom de l'imprimante.
On change l'imprimante par défaut, on imprime et on redéfinit l'imprimante par défaut avec le contenu de la variable.
[/code]

Merci Heureux-oli, mais cela ne me convient pas
J'avais précisé dans ma question :

Cette question a déjà été posée sur ce forum il y a deux ans,
avec pour réponse de mémoriser l'imprimante dans une variable, et de la rétablir ensuite, mais cela ne me convient pas:
En effet, mon application fonctionne en tache de fond, et envoie des impressions sans intervention de l'utilisateur,
et cela ne doit impérativement pas interférer sur les imprimantes par défaut, même pour une courte durée, car l'utilisateur peut être emmené à modifier l'imprimante par défaut au même moment (cela arrive fréquemment).

Merci quand même de t'être penché sur mon problème

[azur668]

Suite à la réponse de Wape, j'ai trouvé sur le site Microsoft http://support.microsoft.com/kb/216026/fr une autre solution :

Code :

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

WordBasic.FilePrintSetup Printer:="HP LaserJet 4 on LPT2", DoNotSetAsSysDefault:=1

L'aide de Word indique qu'il vaut mieux utiliser les methodes VBA
plutôt que l'objet Dialog chaque fois qu'une équivalence existe