forcer le choix d'une imprimante

[seb33]

Rebonjour,

dans mon useform, j'au un bouton qui m'ouvre un fichier word, le modifie.

Maintenant, et automatiquement), lorsque le fichier word est modifié, je voudrais lancer une impression avec une imprimante précise (en fait pdf factory) puis fermer le document word initial sans l'enregistrer.
Voici mon code:

Private Sub CommandButton47_Click()
Dim NDF As String
Dim WordApp As Object
Dim WordDoc As Object
    NDF = "D:\Documents and Settings\Sebastien\My Documents\logiciel solaire\Proposition.doc"
    
    On Error Resume Next
    Set WordApp = CreateObject("Word.Application")
    Set WordDoc = WordApp.Documents.Open(NDF, ReadOnly:=False)
    
    With WordApp
        .Visible = False
        .Selection.Goto What:=-1, Name:="Reference"
        .Selection.TypeText Text:=Sheets("enregistrement").Cells(1, Colonne_Travail)
        .Selection.Goto What:=-1, Name:="Nom"
        .Selection.TypeText Text:=Sheets("enregistrement").Cells(3, Colonne_Travail)

        .Visible = True
    End With
 End Sub

Ainsi, est-il possible, sous .visible = True de rajouter des lignes permettant ceci (mon problème, c'est surtout le lancement de l'impression avec une imprimante définie à l'avance.

merci d'avance
seb

 

[skoobi]

Re : forcer le choix d'une imprimante

Bonjour,

Sûrement avec la propriété "ActivePrinter" et la méthode "PrintOut" pour l'objet WordApp non?

Bonnes fêtes!!

 

[seb33]

Re : forcer le choix d'une imprimante

j'ai mis l'imprimante pdf par défaut (dommage, mais ca marche comme ca...)

bonnes fêtes à tous
seb