Discussion :

[YassDumb]

Bonjour,
Je n'arrive pas à écrire un code me permettant de lancer une impression en PDF

Je vous joint le code que m'a fournit Excel en enregistrant le chemin "imprimer"
Le problème est que lorsque je change de poste, le programme ne fanctionne plus..

Merci de votre aide

Code :

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

1
2
3
4
5
 
Sheets("Fiche d'analyse").Select
    Application.ActivePrinter = "PDFCreator sur Ne00:"
    ExecuteExcel4Macro _
        "PRINT(1,,,1,,,,,,,,2,""PDFCreator sur Ne00:"",,TRUE,,FALSE)"

[kiki29]

Salut, depuis Office 2007 SP2 le format PDF est intégré en natif dans Office
et via l'enregistreur de macros tu obtiens qqch comme

Code :

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

1
2
3
4
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Transfert\Classeur1.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False

Pour info : à lire ceci

Pour ExecuteExcel4Macro il n'y a pas de paramètres prenant en charge l'imprimante sur laquelle l'impression se fera, ce sera celle sélectionnée par défaut : voir ici

[YassDumb]

Merci beaucoup!