Discussion :

[PC81]

Bonjour,

je souhaiterai effectué un code qui sauvegarde l'imprimante par défaut, la remplace par PDFCreator, convertis en PDF un document Word, puis remet l'imprimante initiale par défaut.

J'ai essayé ceci sans succès..

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
  'enregistre l'imprimante par defaut
            printerold = Application.ActivePrinter
 
            'définit PDFCreator comme imprimante par defaut
            Application.ActivePrinter = "PDFCreator sur Ne00:"
            'lance l'impression
            With WordApp
               .ActiveDocument.PrintOut
                .Documents.Close
                .Quit
            End With
 
            Application.ActivePrinter = printerold

J'ai aussi vu ça :

Code :

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

1
2
3
Application.ActivePrinter = "PDFCreator sur Ne00:"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        "PDFCreator sur Ne00:", Collate:=True

Ca marche très bien pour les documents Excel mais pour Word je n'arrive pas à le mettre ne place..

Quelqu'un peut-il m'aider svp. Merci d'avance.

[casefayere]

Je viens d'essayer pour toi,
essayes ça

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub pdf()
'
' pdf Macro
' Macro enregistrée le 01/07/2008 par Serveur
'
    ActivePrinter = "PDFCreator"
    Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
        wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
        ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
        False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
        PrintZoomPaperHeight:=0
End Sub

ce que je viens de proposer n'est pas pour stipuler l'imp par défaut mais imprime le doc en pdf avec pdfcreator

[PC81]

J'ai testé et chez moi ça ne marche pas le code que tu m'as donné.

Message : "Propriété ou méthode non géré par cet objet"
Il marche bien chez toi?

[casefayere]

Ca marche impeccable,
j'espere que tu as installé pdfcréator, au moins

Au fait, j'ai trouvé le code simplement en enregistrant une macro dans word comme tu avais l'air de demander

[PC81]

Oui quand meme..

[casefayere]

essaie comme j'ai fait, enregistre la macro dans "nouvelle macro" et regardes dans vba le résultat

[PC81]

J'essaie de modifier cette lignes pour un documents Word :

Code :

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

1
2
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        "PDFCreator sur Ne00:", Collate:=True

ce qui donnerai :

Code :

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

1
2
WordApp.ActiveDocument.PrintOut , ActivePrinter:= _
        "PDFCreator sur Ne00:", Collate:=True

mais ça ne marche pas

j'ai aussi essayé de faire un peu comme dans ton code :

Code :

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

1
2
Application.PrintOut , ActivePrinter:= _
        "PDFCreator sur Ne00:", Collate:=True

[Godzestla]

Salut,

voici un exemple de code pour word qui fonctionne (à adapter de CuteWRiter en PDFCreator).

Attention c'est du VBA dans Word (pas appelé par excel) mais tu trouveras la réponse à ton problème.

Code :

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

1
2
3
4
5
6
7
8
9
 
Current_printer = Application.ActivePrinter
Application.ActivePrinter = "CutePDF Writer"
Application.PrintOut Copies:=1, FileName:=ActiveDocument.FullName, _
      PrintTofile:=True, Collate:=True, OutputFileName:=ps_fullname, _
      Pagetype:=wdPrintAllPages, Background:=False
 
 
Application.ActivePrinter = Current_printer

[PC81]

Merci beaucoup, j'ai trouver la solution. Je la poste dessous :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 'ouvre le document Word
            Set WordApp = CreateObject("Word.Application")
            WordApp.Visible = False
            fichier = Dir(repertoire & "\*.doc")
            WordApp.Documents.Open (repertoire & "\" & fichier)
 
            'lance l'impression
            With WordApp
                'enregistre l'imprimante par defaut
                imprimante_defaut = .Application.ActivePrinter
                'change l'imprimante
                .Application.ActivePrinter = "PDFCreator"
                .Application.PrintOut
                .Documents.Close
                .Quit
                'remet l'imprimante par defaut
                .Application.ActivePrinter = imprimante_defaut
            End With

Encore merci de votre aide et bonne journée, PC81