XL 2019 Export to pdf / Problème Zone d'impression

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Lionel69890

XLDnaute Junior
Bonjour à tous,

Quelqu'un peut-il m'aider à résoudre mon problème de zone d'impression. MACRO : EXPORTPDF
Je souhaite exporter ma feuille en pdf. Cela fonctionne bien excepté que je n'arrive pas à définir la zone d'impression
Le pdf exporté ne comporte pas toutes les lignes de ma feuille.

Merci d'avance de votre aide
 

Pièces jointes

Bonjour Lionel,
Avec l'enregistreur de macro, et quelques bidouillage, cette macro marche sur mon PC :
VB:
Sub PrintPDF()
    Plage = "A1:F50"                        ' A définir ( Attention, ne pas mettre Range )
    ActiveSheet.PageSetup.PrintArea = ""    ' Supprime la plage défini, au cas où ...
    ActiveSheet.PageSetup.PrintArea = Plage
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
End Sub
 
Bonjour le fil,

Je ne peux qu'encourager de ne plus se servir de macro Excel4 😱 (Microsoft n'en veut plus)

Voici le code existant modifié
VB:
Sub EXPORTPDF()
  Dim MaPlage As Range
  '
  Worksheets(3).Activate
  Datesem = Range("B2")
  NomFeuille = ActiveSheet.Name
  noSemaine = Format(Datesem, "ww", vbMonday, vbFirstFourDays)
 
  With ActiveSheet
    Set MaPlage = .Range("A1:J" & .Range("A" & Rows.Count).End(xlUp).Row)
    With .PageSetup
      .Orientation = xlLandscape
      .PrintArea = MaPlage.Address
      .FitToPagesTall = False
      .FitToPagesWide = 1
    End With
    .ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    "Z:\26 - CHEFS D'EQUIPES\TOURNEES PDF\SEM" & noSemaine & " - " & NomFeuille & ".pdf", Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    From:=1, To:=1, OpenAfterPublish:=False
  End With
End Sub

A+
 
Merci pour ton aide Sylvanu. Effectivement si je veux imprimer, ça fonctionne nickel
Mais pour un export pdf, ma macro n'export qu'une page et il me manque des lignes ... Je dois avoir un paramètre mal renseigné je pense mais je ne trouve pas ... (faut dire que je débute en VBA 🙂
 
Merci pour ton aide Sylvanu. Effectivement si je veux imprimer, ça fonctionne nickel
Mais pour un export pdf, ma macro n'export qu'une page et il me manque des lignes ... Je dois avoir un paramètre mal renseigné je pense mais je ne trouve pas ... (faut dire que je débute en VBA 🙂
Bonjour,

Si tu sélectionnes "Microsoft print to PDF" en tant qu'imprimante, l'impression PDF fonctionnera tout aussi bien que l'Export PDF.

Bonne journée,
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour