Impression pdf et VBA

**tom0ne** · 21/12/2011, 16h19

Bonjour à tous,
Je souhaite utiliser le code ci-dessous mais je ne souhaite pas utiliser pdfcreator car j'ai déjà Adobe Acrobat Pro 6.

Je ne trouve pas dans adobe par quoi remplacer :

Code :

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

Shell "C:\Program Files\PDFCreator\PDFCreator.exe", vbNormalFocus

du code

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
 
Sub testPrintPDF()
Dim oldPrinter As String
Dim stChemin As String
Dim stNom As String
' Affichage de la fenêtre de PDF
Shell "C:\Program Files\PDFCreator\PDFCreator.exe", vbNormalFocus
 
Dim PDFCreator1 As New clsPDFCreator
oldPrinter = ActivePrinter	
'On va mettre en mémoire dans une 
'variable le nom de l'imprimante par défaut
ActivePrinter = "PDFCreator"
'Mettre comme imprimante par défaut PDFCreator
If Len(ActiveDocument.Path) = 0 Then
    stChemin = "c:\temp"
Else
    stChemin = ActiveDocument.Path
End If
'Si le document n'a pas été sauvegardé, le PDF sera dans le répertoire c:\temp
'et un nom par défaut documentPDF;pdf
If Len(ActiveDocument.Name) = 0 Then
    stNom = "documentPDF.pdf"
Else
    stNom = ActiveDocument.Name
End If
'les option PDFCreator
With PDFCreator1
   .cOption("UseAutosave") = 1
   .cOption("UseAutosaveDirectory") = 1
   .cOption("AutosaveDirectory") = stChemin
   .cOption("AutosaveFilename") = stNom
   .cOption("AutosaveFormat") = 0                            ' 0 = PDF
   .cStart
   .cClearCache
End With
ActiveDocument.PrintOut Background:=True
PDFCreator1.cClose
ActivePrinter = oldPrinter
' Change l'imprimante par défaut
 
End Sub

Si quelqu'un a une idée?

Merci

**Heureux-oli** · 21/12/2011, 20h29

Salut,

Ce n'est absolument pas la bonne voie.

Le code qui vient du tuto ne peut être utilisé qu'avec PDFCreator.
Si tu souhaites utiliser Adobe Acrobat, il faut utiliser les commandes Adobe Acrobat.

**Sepia** · 22/12/2011, 01h28

Salut tom0ne,

Envoyé par Heureux-oli

Si tu souhaites utiliser Adobe Acrobat, il faut utiliser les commandes Adobe Acrobat.

Oui. Pour cela, regarde comment s'appelle ton imprimante PDF (souvent du style "Adobe PDF") et demande à imprimer sur cette imprimante. Tu peux même définir cette imprimante comme l'imprimante par défaut et juste demander à Word de faire Print ==>

Code :

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

ActiveDocument.PrintOut

@+

**tom0ne** · 22/12/2011, 01h30

Bonsoir,
En fait je reprends un ancien post :

Je souhaite imprimer une page sur mon imprimante pdf (c'est mon imprimante par défaut) à partir d'un bouton.

J'ai créé la macro suivante avec l'aide de word 2003 :
- 1 je cherche le signet
- 2 je demande l'impression de la page en cours
- 3 word me demande le nom du fichier et où l'enregistrer
- 4 je ferme l'enregistrement de la macro.

La macro ne contient pas le nom du fichier sous lequel enregistrer le fichier pdf et word me demande donc le nom et l'emplacement d'enregistrement.

Je souhaiterais que cela se fasse automatiquement car l'emplacement et le nom sont toujours les mêmes.

Pourriez vous m'aider sur ce problème ?

Merci,

Thomas

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
Sub IMPR()
'
' IMPR Macro
' Macro enregistrée le 29/11/2011 par THOMAS
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CFACT"
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Application.PrintOut FileName:="", Range:=wdPrintCurrentPage, Item:= _
        wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
        ManualDuplexPrint:=False, Collate:=True, Background:=False, PrintToFile:= _
        False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
        PrintZoomPaperHeight:=0
         Selection.GoTo What:=wdGoToBookmark, Name:="FACT"
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Application.PrintOut FileName:="", Range:=wdPrintCurrentPage, Item:= _
        wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
        ManualDuplexPrint:=False, Collate:=True, Background:=False, PrintToFile:= _
        False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
        PrintZoomPaperHeight:=0
    Selection.GoTo What:=wdGoToBookmark, Name:="RECAP"
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Application.PrintOut FileName:="", Range:=wdPrintCurrentPage, Item:= _
        wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
        ManualDuplexPrint:=False, Collate:=True, Background:=False, PrintToFile:= _
        False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
        PrintZoomPaperHeight:=0
End Sub

**Sepia** · 22/12/2011, 01h37

Salut tom0ne,

Envoyé par tom0ne

Bonsoir,

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
Sub IMPR()
'
' IMPR Macro
' Macro enregistrée le 29/11/2011 par THOMAS
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CFACT"
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With

    Application.PrintOut FileName:=<Mettre ici le nom de ton 1er fichier>, Range:=wdPrintCurrentPage, Item:= _
        wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
        ManualDuplexPrint:=False, Collate:=True, Background:=False, PrintToFile:= _
        False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
        PrintZoomPaperHeight:=0
         Selection.GoTo What:=wdGoToBookmark, Name:="FACT"
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Application.PrintOut FileName:="", Range:=wdPrintCurrentPage, Item:= _
        wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
        ManualDuplexPrint:=False, Collate:=True, Background:=False, PrintToFile:= _
        False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
        PrintZoomPaperHeight:=0
    Selection.GoTo What:=wdGoToBookmark, Name:="RECAP"
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With

    Application.PrintOut FileName:=<Mettre ici le nom de ton 1er fichier>, Range:=wdPrintCurrentPage, Item:= _
        wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
        ManualDuplexPrint:=False, Collate:=True, Background:=False, PrintToFile:= _
        False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
        PrintZoomPaperHeight:=0
End Sub

Les parties rouges ne servent à rien dans ton cas (puisqu'il n'y a pas de recherche effectuée <=> pas d'instruction "Find.Execute") ==> Supprime-les, ça allégera ton code
Remplis les parties vertes avec ton nom de fichier, ceci devrait suffire

@+

**tom0ne** · 22/12/2011, 13h04

Salut Sépia,

Merci de ta réponse,
Je viens de tester le code ci-dessous en ajoutant un nom à filename.
J'ai testé un nom avec guillemets puis sans, avec l'extension pdf, puis sans etc...

J’obtiens toujours l'erreur en pièce jointe.

Je désespères lol

Si tu as une autre idée?
Merci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Macro3()
'
' Macro3 Macro
' Macro enregistrée le 22/12/2011 par THOMAS
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CFACT"
    
    ActivePrinter = "Adobe PDF"
    Application.PrintOut FileName:="test", Range:=wdPrintCurrentPage, Item:= _
        wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
        ManualDuplexPrint:=False, Collate:=True, Background:=False, PrintToFile:= _
        False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
        PrintZoomPaperHeight:=0
End Sub

**Sepia** · 23/12/2011, 00h35

Salut tom0ne,

Je viens de tester : même pb que toi ==> j'ai essayé autrement sur mon Mac mais je ne peux pas tester sur mon PC, peux-tu vérifier, STP ?
J'ai mis en rouge ce que j'ai modifié et qui a de l'importance

Code :

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

1
2
3
4
5
6
Sub Macro()
    Selection.GoTo What:=wdGoToBookmark, Name:="CFACT"
    
    ActivePrinter = "Adobe PDF"
    Application.PrintOut Range:=wdPrintCurrentPage, PrintToFile:= True, OutputFileName:-"test.pdf"
End Sub

@+

**tom0ne** · 23/12/2011, 01h46

Salut Sépia,

Merci pour ton code,

J'ai enlevé le - ici :

Code :

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

OutputFileName:-"test.pdf"

J'obtiens l'erreur suivante : erreur de compilation, erreur de syntaxe

Qu'en penses tu?
As tu une autre idée?

Thomas

**Heureux-oli** · 23/12/2011, 08h01

Salut,

Le - n'est pas à enlever mais à remplacer.

La valeur est passée aux arguments nommés avec une combinaison :=

Mettre un : seul va générer une erreur de syntaxe.

Pour passer une valeur à une fonction, on a deux possibilités.
Soit on nomme les arguments et on leur affecte une valeur avec un :=

Code :

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

LaFonction Arg1:="aaa", Arg2:="bbb", Arg4:="ddd"

Soit on utilise leur position dans la syntaxe

Code :

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

LaFonction "aaa",,"ccc","ddd"

La , sert de séparateur et si un argument n'est pas utilisé, on laisse sa position vide.

**tom0ne** · 23/12/2011, 15h44

Merci Oli,

C'est vrai qu'avec un = ça fonctionne tout de suite beaucoup mieux

Ne me reste plus qu'a déterminer le chemin d'enregistrement du fichier pdf,

Peux tu me dire comment l'on ajoute le chemin au code?

Merci,

Meilleurs vœux et joyeux noël. (à Sépia aussi)

**Heureux-oli** · 23/12/2011, 19h21

Salut,

Si veux veux récupérer le chemin avec une intervention de l'utilisateur, il suffit d'utiliser un objet FildeDialog.

Code :

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

1
2
3
4
5
6
7
8
9
Dim oDlg As FileDialog
dim MonChemin As String
 
Set oDlg = Application.FileDialog(msoFileDialogFolderPicker)
 
oDlg.Show
 
'Le chamin est renvoyé par cette expression
Monchemin = oDlg.SelectedItems(1)

**tom0ne** · 23/12/2011, 21h33

Merci Oli mais ou je rentre le chemin ?

J'ai essayé ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Macro3()
'
' Macro3 Macro
' Macro enregistrée le 22/12/2011 par THOMAS
'
     Selection.GoTo What:=wdGoToBookmark, Name:="CFACT"
 
    ActivePrinter = "ScanSoft PDF Create!"
     ChangeFileOpenDirectory "E:\Documents and Settings\Thom@s\Bureau\"
    Application.PrintOut Range:=wdPrintCurrentPage, PrintToFile:=True, OutputFileName:="test.pdf",
End Sub

Mais ça ne marche pas ! lol

**Sepia** · 24/12/2011, 01h23

Salut Salut tom0ne,

PrintToFile:= True, OutputFileName:-"test.pdf"

Excuse, j'ai tapé trop vite et je n'ai pas vu, il faut en effet remplacer le "-" par "=".

Pour le chemin, essaye plutôt ça

Code :

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

Application.PrintOut Range:=wdPrintCurrentPage, PrintToFile:=True, OutputFileName:=""E:\Documents and Settings\Thom@s\Bureau\test.pdf"

@+

**tom0ne** · 24/12/2011, 02h39

Merci Sépia,

J'ai testé le code suivant :

Code :

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

1
2
3
4
5
6
7
 
   Sub Macro()
    Selection.GoTo What:=wdGoToBookmark, Name:="CFACT"
 
    ActivePrinter = "ScanSoft PDF Create!"
    Application.PrintOut Range:=wdPrintCurrentPage, PrintToFile:=True, OutputFileName:="E:\Documents and Settings\Thom@s\Bureau\test.pdf"
End Sub

Le code demande mon intervention pour le nom et l'endroit où enregistrer le fichier.
Je n'arrive pas à ce que le fichier s'enregistre sous un nom pré-choisi à un emplacement déterminé...

Tu as une idée?

**Heureux-oli** · 24/12/2011, 11h55

Salut,

On en revient donc à une de mes questions ??
Quelle est ta version de Word ?

OutputFileName est utilisé pour donner un nom au fichier d'impression lorsque c'est Word qui se charge de créer le fichier lorsqu'on imprime dans un fichier.
On obtient alors un fichier .prn.

Dans le cas d'une impression PDF, c'est le logiciel d'impression qui va avoir besoin du nom et cet argument ne sert à rien.

Dans PDFcreator, l'argument qui contient le nom est passé à la fonction pour qu'elle puisse l'utiliser pour donner le nom.

Code :

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

1
2
3
4
5
6
7
8
9
With PDFCreator1
   .cOption("UseAutosave") = 1
   .cOption("UseAutosaveDirectory") = 1
   .cOption("AutosaveDirectory") = stChemin
   .cOption("AutosaveFilename") = stNom
   .cOption("AutosaveFormat") = 0                            ' 0 = PDF
   .cStart
   .cClearCache
End With

C'est ce nom qui sera utilisé par la fonction pour le nom de sortie du fichier.

Code :

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

PDFCreator1.cOption("AutosaveFilename") = stNom

Dans ton cas, tu dois savoir quel est l'argument à passer à la fonction pour donner un nom au fichier de sortie.

Ce serait simple si toutes les imprimantes fonctionnaient de la même façon, mais ce n'est pas le cas.

**tom0ne** · 24/12/2011, 13h05

Merci Oli,

Je suis en train de désinstaller scansoft et acrobat.

Je fais un bon nettoyage de windows et je repars avec PDFCREATOR.

Ensuite je pourrais essayer avec ton code.

Je vous souhaite de bonnes fêtes de fin d'année et vous tiens au courant bientôt. (Oli et Sépia)

**tom0ne** · 26/12/2011, 21h51

Salut à tous,
J'espère que vous avez passez un bon noël et plein de cadeaux.

J'ai installé PDFCREATOR et j'ai donc repris le code d'origine :

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Sub testPrintPDF()
Dim oldPrinter As String
Dim stChemin As String
Dim stNom As String
' Affichage de la fenêtre de PDF
Shell "d:\Program Files\PDFCreator\PDFCreator.exe", vbNormalFocus
 
Dim PDFCreator1 As New clsPDFCreator
oldPrinter = ActivePrinter
'On va mettre en mémoire dans une
'variable le nom de l'imprimante par défaut
ActivePrinter = "PDFCreator"
'Mettre comme imprimante par défaut PDFCreator
If Len(ActiveDocument.Path) = 0 Then
    stChemin = "E:\Documents and Settings\Thom@s\Bureau"
Else
    stChemin = ActiveDocument.Path
End If
'Si le document n'a pas été sauvegardé, le PDF sera dans le répertoire c:\temp
'et un nom par défaut documentPDF;pdf
If Len(ActiveDocument.Name) = 0 Then
    stNom = "documentcccPDF.pdf"
Else
    stNom = ActiveDocument.Name
End If
'les option PDFCreator
With PDFCreator1
   .cOption("UseAutosave") = 1
   .cOption("UseAutosaveDirectory") = 1
   .cOption("AutosaveDirectory") = stChemin
   .cOption("AutosaveFilename") = stNom
   .cOption("AutosaveFormat") = 0                            ' 0 = PDF
   .cStart
   .cClearCache
End With
ActiveDocument.PrintOut Background:=True
PDFCreator1.cClose
ActivePrinter = oldPrinter
' Change l'imprimante par défaut
 
End Sub