Discussion :

[leblesois]

Bonjour tout le monde !

je viens d'étudier les différents messages (et il y en a beaucoup...) concernant Excel et PDFCREATOR, mais je n'ai pas trouvé de réponse à mon problème.

En effet, je souhaiterais via VBA :
- 1 - modifier mon imprimante par défaut
- 2 - choisir PDFCREATOR
- 3 - modifier le paramétrage de PDFCREATOR, en passant du format A4 au format A3 et du mode portrait, au mode paysage.
- 4 - à l'issue remettre le mode portrait et A4
- 5 - remettre l'ancienne imprimante (ça j'ai trouvé sur votre site...)

Si vous pouviez soit me donner une solution avec des explications précises, soit me donner un lien vers un tutoriel précis (pour que je comprenne bien et puisse me débrouiller ensuite tout seul), je serai le plus heureux du monde !

Merci d'avance à ceux qui voudront bien passer du temps pour moi !

A +

[letienne]

Bonjour,
Pour choisir PDFCreator

Code :

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

1
2
 
ActivePrinter = "PDFCreator"

- 3 - modifier le paramétrage de PDFCREATOR, en passant du format A4 au format A3 et du mode portrait, au mode paysage.
- 4 - à l'issue remettre le mode portrait et A4

Ces 2 points se èglent dans excel et pas pdfcreator, via worksheets.PageSetup
exemple

Code :

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

1
2
3
4
5
6
7
8
9
 
With ActiveSheet.PageSetup
        .PrintArea = "$I$1:$X$40" 'Définit la zone d'impression
        .Orientation = xlLandscape 'Orientation de la page en paysage
        .Zoom = False  'Zoom (à désactiver pour le faire en automatique avec fittopage
        .FitToPagesWide = 1 '1 page de large
        .FitToPagesTall = 1 '1 page de haut
        .PaperSize = xlPaperA3 ' format A3
End With

Entre parenthèse, avec l'éditeur de macro il suffit de changer un des paramètre de l'onglet mise en page pour avoir un nombre impressionnant d'options d'impression.

[leblesois]

Je viens de tester, et j'ai un problème :

"Erreur d'exécution '1004' :
La méthode 'ActivePrinter' de l'objet '_Global' a échoué "

Que dois-je faire ?

Merci d'avance

[letienne]

Ah...

essaye de changer l'imprimante en utilisant l'enregistreur de macro, regarde ce qu'il donne.

Etienne

[letienne]

et j'avais oublié 2 de tes points,
pour sauvegarder et remettre l'imprimante avant et après :

Code :

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

1
2
3
4
 
p = Application.ActivePrinter
...
Application.ActivePrinter = p

[leblesois]

En fait il fallait écrire : ActivePrinter = "PDFCreator sur Ne00:"

Dernière petite question, est-il possible vient VBA d'imposer le chemin de sauvegarde du fichier PDF créé ?

Par Exemple, je veux que le fichier créé soit automatiquement mis dans le répertoire c:\antiquaire\livre_de_police

Grand merci car tu m'as sacrément débloqué !