Impression PDF paysage + selection

Bonjour ,

Je travaille sur un bouton d'impression PDF et un imprimante , celui pour l'imprimante fonctionne bien mais celui de pdf je suis un peu perdu , en fait le problème c'est que je n'arrive pas a sélectioné les cellules que je veux lors de cette impression PDF

Sub Enregistrer_PDF()
Dim i&
For i = 1 To Sheets.Count
  With Sheets(i).PageSetup
    .LeftMargin = Application.InchesToPoints(0)
    .RightMargin = Application.InchesToPoints(0)
    .TopMargin = Application.InchesToPoints(0)
    .BottomMargin = Application.InchesToPoints(0)
    .Zoom = False
    .FitToPagesWide = 1
    .FitToPagesTall = 1
     ActiveSheet.PageSetup.Orientation = xlLandscape
  End With
  Range("B6:R372").Select
  Sheets(i).ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\Thérèse\Documents\" & Sheets(i).Name & ".pdf"
Next
End Sub

Voila le code + le fichier

Merci d'avance

Neoss

Bonjour,

[...]
  With Sheets(i).PageSetup
    [...]
     .Orientation = xlLandscape
     .PrintArea = "B6:R372"
  End With
  Sheets(i).ExportAsFixedFormat xlTypePDF, "C:\Users\Thérèse\Documents\" & Sheets(i).Name & ".pdf"
[...]

Cordialement.

ReBonjour

J'en suis la

Sub Enregistrer_PDF3()
Dim i&
For i = 1 To Sheets.Count
  With Sheets(i).PageSetup
     .Orientation = xlLandscape
     .PrintArea = "B6:R372"
  End With
  Sheets(i).ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\Thérèse\Documents\" & Sheets(i).Name & ".pdf"

Next

End Sub

Mais ca ne fonctionne pas réellement j'ai du mal interprété ta réponse je pense

Neoss

Je n'ai indiqué que les modifications. Les [...] indiquent le code existant non modifié.

Que se passe-t-il ?

Mon problème c'est que l'affichage est trop petit , il me met tout sur une seule page a la place de faire ca sur 7/8 pages comme une impression . J'ai mis le résultat et le résultat voulu en fichier joint

Sub Enregistrer_PDF()
Dim i&
For i = 1 To Sheets.Count
 With Sheets(i).PageSetup
    [...]
     .Orientation = xlLandscape
     .PrintArea = "B6:R372"
  End With
  Sheets(i).ExportAsFixedFormat xlTypePDF, "C:\Users\Thérèse\Documents\" & Sheets(i).Name & ".pdf"

Next
End Sub

Merci

C'est toi qui a défini une seule page !

    .FitToPagesWide = 1
    .FitToPagesTall = 1

Si la largeur convient, tu mets :

    .FitToPagesWide = 1
    .FitToPagesTall = False

Tu devrais avoir le résultat qui convient.

Merci cela fonctionne parfaitement