Discussion :

[419]

Bonjour,

d'habitude je m'en sors mais aujourd'hui je bloque sur l'export de mon fichier excel vers PDF en 1 seule page tel que défini en zone d'impression.

même si je redéfinis au préalable la zone d'impression avant export vers PDF, elle change juste avant et du coup mon PDF est sur 2 pages (ou 1 seule quand "From:=1, to:=1" est indiqué mais il me manque un morceau) au lieu d'avoir l'échelle réduite pour faire tout apparaitre en 1 seule page.

Code :

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

1
2
3
4
5
6
7
8
9
Sub CreerPDF()
 
Dim NomFich As String
NomFich = xxx
 
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=NomFich, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, From:=1, to:=1, OpenAfterPublish:=True
 
End Sub

une fois le PDF généré, mon fichier affiche une zone d'impression sur 2 pages. cf image ci-dessous.
Merci pour votre retour sur comment palier à ce souci.