Discussion :

[bromlecornu]

Bonjour à tous,

Je suis pas du tout caler en VBA mais j'utilise les macros excel grâce à l'enregsitreur.

J'ai un petit soucis j'ai créé une macro

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Enregistrement_PDF()
'
' Enregistrement_PDF Macro
'
 
'
 
 
    Call Code_Vendeurs
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
End Sub

Celle ci fonctionne très bien le soucis c'est qu'elle me lance l'impression sur l'imprimante par défaut et non pas sur la PDFCreator comme je le souhaiterai.

Comment puis je faire pour qu'elle me choisisse cette imprimante lorsque je clique sur mon bouton?

Merci

[kiki29]

Salut, depuis Office 2007 SP2 le format pdf est inclus en natif dans Office et PDFCreator ne sert plus que si l'on veut manipuler les fichiers pdf.

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
Option Explicit
 
Sub Tst_01()
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        ThisWorkbook.Path & "\" & "Classeur1.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
End Sub
 
Sub Tst_02()
    ThisWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        ThisWorkbook.Path & "\" & "Classeur2.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
End Sub

Sinon en bas du post 1 : Impression de certaines Feuilles d'un classeur via un tableau dans un seul Pdf résultant

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
Option Explicit
 
Sub Tst_03()
Dim sNomFichierPDF As String
Dim Ar(1) As String
 
    sNomFichierPDF = ThisWorkbook.Path & "\" & "Tableau.pdf"
 
    Ar(0) = "Feuil1"
    Ar(1) = "Feuil3"
 
    Sheets(Ar).Select
 
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sNomFichierPDF _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False
 
    Sheets("Feuil1").Select
 
End Sub

[bromlecornu]

Merci je test ça dès mercredi ;-)