XL 2010 Bouton imprimer certaines feuilles en PDF avec aperçu

job75

XLDnaute Barbatruc

• 10 Février 2022

• #2

Bonjour tchi456,

Affectez cette macro au bouton :

VB:

Sub PDF()
Dim a, w As Worksheet
a = Array("Diagramme", "Capacité")
For Each w In Sheets(a): w.PrintPreview: Next
Sheets(a).Select
ActiveSheet.ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & "\PDF.pdf"
Sheets(1).Select
End Sub

Peut-être y a-t-il moyen de créer un aperçu avec 2 pages pour éviter la boucle.

A+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 10 Février 2022

• #3

job75 à dit:

Bonjour tchi456,

Peut-être y a-t-il moyen de créer un aperçu avec 2 pages pour éviter la boucle.

Cliquez pour agrandir...

Oui, comme ceci :

VB:

Sub PDF()
Sheets(Array("Diagramme", "Capacité")).Select
ActiveWindow.SelectedSheets.PrintPreview
ActiveSheet.ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & "\PDF.pdf"
Sheets(1).Select
End Sub

 

Vote positif 0 Vote négatif

Solution

T

tchi456

XLDnaute Occasionnel

• 10 Février 2022

• #4

Bonjour Job75,

Votre code fonctionne parfaitement bien. Merci beaucoup pour votre aide.

Meilleures salutations et bonne journée!

Thierry

 

Vote positif 0 Vote négatif