impression PDF automatique [Résolu]

[dirtsa]

Bonjour,
j'ai trouvé un moyen d'imprimer en pdf un document word (rien d'exeptionnel à ça) en gros, c'est :

Code :

1
2
3
4
5
6
7
8
Sub pdf()
 
   application.PrintOut Background:=False, FileName:="", Range:=wdPrintAllDocument, Item:=wdPrintDocumentContent, _
      Copies:=1, Pages:="", PageType:=wdPrintAllPages, ManualDuplexPrint:=False, _
      Collate:=True, PrintToFile:=False, PrintZoomColumn:=1, _
      PrintZoomRow:=1, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0
 
End Sub

Le problème, c'est qu'il ouvre la fenêtre pour modifier le nom du document, l'auteur... mais aussi, la boite de dialogue pour le chemin d'enregistrement
Savez vous s'il est possible de déterminer automatiquement le dossier d'enregistrement et valider l'impression sans que ces 2 fenêtres s'ouvrent ?
dans le genre avec

Code :

1
2
Dim Vchemin as string
Vchemin="C:\...\mondossier\"

et insérer Vchemin dans la méthode "PrintOut" ! Je ne sais pas si c'est possible !!

Merci d'avance pour vos lumières

[Heureux-oli]

Jette un oeil ici

[dirtsa]

Merci, j'avais déjà lu mais je pense que je n'avais pas compris que ça permettait d'automatiser l'impression.

[Heureux-oli]

La partie Code personnalisé le fait.
On a deux choix, on fait une boucle et on imprime un grand nombre de document, soit on le fait au cas pas cas avec l'utilisation d'un bouton dans une barre d'outils ou dans le ruban.

[dirtsa]

Euh, en fait, j'ai toujours un problème :
j'ai bien importer de PDFCreator ModPDFCreatorAccess et frmPDFCréator mais la classe clsPDFCreator n'est toujours pas reconnue ! j'ai essayé de la déclarer dans un module de classe mais pas moyen d'un parvenir. Ne faut-il pas la déclarer comme "printer(s)" ?

[Heureux-oli]

Non, le printer PDF doit se trouver dans les imprimantes.

Si elle n'est pas disponible dans les références, c'est que tu as rencontré un problème au niveau de l'installation de l'imprimante.

[dirtsa]

Je ne pense pas avoir eu un problème lors de l'installation de PDFCreator :
- il fonctionne correctement quand je veux imprimer manuellement
- il est présent dans la liste des imprimantes et télecopieurs présent sur mon pc

je comprends plus rien !
dans le doute, je vais réinstaller PDFCreator... on ne sait jamais

qu'est-ce que tu entendes par "références" ?

[Heureux-oli]

Dans Outils Références.

Une fois choisie, la bibliothèque devient utilisable en programmation.

[dirtsa]

Merci beaucoup, je suis désolée d'avoir posé des questions stupides !
ça se débloque ! 1000 merci !
je te tiens au courant des avancés !

[Heureux-oli]

Il n'y a pas de questions stupides, seules les réponses le sont.

[Syrrus]

Bonjour,
je me permets d'intervenir, j'ai suivi la discussion depuis le début parce que j'ai exactement le même besoin que dirsta.

C'est à propos des ref, j'ai fait la macro dans un doc, ça marche.
Je copie colle ce doc dans un autre dossier, je l'ouvre et je lance la macro (elle a suivie pendant le copiage) et là erreur parce qu'au final la ref n'est pas cochée.

Je croyais qu'elle suivrait, et comme je passe mon temps à copier coller les docs je voudrais savoir si y'a un truc à faire pour que la ref reste cochée.

Merci par avance..

[Syrrus]

Erreur de ma part, en fait la ref était décochée partout. Je retire ce que j'ai dit.

Par contre j'ai un autre souci, il ne me créé pas le pdf ni dans le dossier du .doc, ni dans c:\temp qui n'existe pas d'ailleurs, je ne sais pas du tout où ils sont créés...bizarre

[Heureux-oli]

Probablement dans le répertoire de PDFCreator.

Vérifies dans les options le répertoire par défaut.

[dirtsa]

J'avais trouvé un code pour le chemin d'enregistrement, mais il m'a fait faux bond, dès que je l'ai, je le poste !
J'ai un autre soucis : je veux enregistrer le document sous un nom bien précis. Bon, je montre le code et j'explique mon problème, ce sera plus simple à comprendre

Code :

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
Sub pdf()
    Dim Vchemin As String
    Dim Vnom, Vdate As String
    Dim pdfcreator1 As PDFCreator.clsPDFCreator
    Dim option1 As PDFCreator.clsPDFCreatorOptions
 
    Set pdfcreator1 = New PDFCreator.clsPDFCreator
    Set option1 = New PDFCreator.clsPDFCreatorOptions
 
    Vchemin = "D:\travail\"         'chemin du dossier d'enregistrement du pdf
    ChangeFileOpenDirectory Vchemin
    Vdate = Format(Now, "dd.mm.yyyy")
    Vnom = "newsletter_" & Vdate & ".pdf"
    With pdfcreator1
       .cOptions.UseAutosave = 1
       .cOptions.UseAutosaveDirectory = 1
       .cOptions.AutosaveDirectory = Vchemin
       .cOptions.AutosaveFilename = Vnom
       .cOptions.AutosaveFormat = 0     'pdf
       .cOptionsNames.Count
       .cStart
       .cClearCache
    End With
 
        application.PrintOut Range:=wdPrintAllDocument, Item:= _
        wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
        ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
        False, PrintZoomColumn:=2, PrintZoomRow:=1, PrintZoomPaperWidth:=0, _
        PrintZoomPaperHeight:=0 ', OutputFilename:=Vnom
 
 
    pdfcreator1.cClose
 
End Sub

Si je veux préciser le nom du document, il me faut mettre "OuputFilename:=Vnom" mais si je cette instruction, le document pdf est bien créé avec ce nom mais il est illisible le message d'erreur est :

"Adobe reader could not open 'Newsletter_25.01.2008.pdf' beaucause it is either not a supported file type or because the file has been damaged (for example, it was sent as an email attachment and wasn't correctly decoded)."

Si je n'utilise pas cette variable, le pdf est créé sans problème, mais portant le nom du .doc
J'ai beau explorer l'aide, je ne trouve pas le paramètre autre que "OutputFilename" permettant de nommer le document. Y en a-t-il un autre ou est-ce que je l'utilise mal ?
merci d'avance

[Heureux-oli]

Essaie de déclarer Vnom en string et pas en variant.

Dim Vnom as string.

Pour essayer.

[dirtsa]

Bon, pour le nom du document, j'ai trouvé une alternative :
j'ai créé une procédure qui enregistre le document sous un nom bien précis dans un dossier spécifié préalablement.
par contre, pour spécidier le dossier d'enregistrement du pdf... le code que je pensais avoir trouvé mais non !

[dirtsa]

J'ai modifié la mise en forme de la déclaration, je pensais que "Dim Vnom,Vdate as String" signifiait que Vnom ET Vdate étaient tous les deux des chaines... enfin dans le doute, je les ai déclaré séparément... sans résultat dommage !
Sinon, quand on déclare un dossier cible dans l'onglet "enregistrement automatique" de PDFcreator est ce que toutes les impressions seront envoyées dans ce dossier ? (je sens que la réponse est logique mais je préfère vérifier !)
merci pour ta patience

[Heureux-oli]

C'est le cas.

Leproblème que je rencontre avec PDF creator, c'est le manque de documentation sur les focntions.
Je me souviens qu'au moment du tuto, j'avais fait beaucoup d'essais pour y arriver.

[dirtsa]

Bin, merci bien pour toutes ces réponses. Mon impression en PDF marche, c'est génial !

[asteroide26]

Bonjour,
il y a-t-il un moyen de masquer la fenêtre qui s'ouvre après l'impression en PDF ? j'y étais parvenue il y a quelques jours mais aujourd'hui, pas moyen de retrouver la commande en vba !
(merci)