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

[Lionel69890]

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

 

[sylvanu]

Bonjour Lionel,
Avec l'enregistreur de macro, et quelques bidouillage, cette macro marche sur mon PC :

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

 

[Compte Supprimé 979]

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é

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+

 

[Lionel69890]

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

 

[Lionel69890]

Merci de ton aide BrunoM45 mais il me manque toujours des lignes ...

 

[xUpsilon]

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,

 

[Lionel69890]

Bon ben j'ai trouvé c'était tout bête
From:=1, To:=1, remplacé par From:=1, To:=10

 

[Compte Supprimé 979]

Re,

Tu n'as pas besoin de spécifier From.. To..
puisque la mise en page ce fait avant, tu imprimera donc toujours le bon nombre de pages