Mémoriser une imprimante comme variable

[Natiffar]

Bonjour,

A tous et bonne année 2006. Qu'elle vous apporte joie, bonheur, santé, amour, argent et surtout encore plein de super astuces sur Excel !!!

J'ai de nouveau une question. Quelqu'un pourrait-il m'expliquer comment je peux mémoriser en tant que variable le chemin d'une imprimante que j'aurais sélectionné préalablement dans une boite de dialoque.

Merci d'avance

Natiffar :evil:

 

[PascalXLD]

Bonjour

Que veux-tu faire exactement imprimer une feuille avec choix de l'imprimante par VBA ??

Si oui tu peux faire

If Application.Dialogs(xlDialogPrinterSetup).Show = True Then Sheets('Feuil1').PrintOut

 

[Natiffar]

Bonjour Pascal76

En fait, ma feuille est commandé par un module (via un bouton sur ma feuille) qui déclenche un certain nombre d'actions successives dont l'ouverture d'une boite de dialoque permettant de choisir l'imprimante.
Dans le prolongement de cette action, j'aurais besoin de conserver en mémoire l'imprimante sélectionné pour la réutiliser plus loin dans mon module. J'en ai besoin pour imprimer un fichier Word sur la même imprimante sans réutiliser de boite de dialogue.

J'ai essayé un truc du genre:

    'Ouvre la boite de dialoque de choix d'imprimante et imprime sur l'imprimante séléctionnée
   
    Dim dlganswer As Boolean
    Dim printer As String
        
        dlganswer = Application.Dialogs(xlDialogPrinterSetup).Show

    If dlganswer = True Then
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, collate:=True
        printer = Application.ActivePrinter

    End If
        
'______________________________________________
'IMPRESSION DES CONDITIONS D'ACHATS

Dim appWrd As Word.Application
Dim docWord As Word.Document
Dim Fichier As String

Fichier = 'X:\\Commandes\\Conditions d'achat.doc'

Set appWrd = CreateObject('Word.Application') 'creation session Word
appWrd.Visible = False 'pour que word reste masqué pendant l'operation
Set docWord = appWrd.Documents.Open(Fichier)

Word.Application.ActivePrinter = printer

Word.Application.PrintOut Copies:=1, collate:=True 'impression

docWord.Close 'fermer le document Word
appWrd.Quit 'fermer la seesion Word

Merci d'avance pour ton aide

Natiffar :evil:

Message édité par: natiffar, à: 04/01/2006 16:32