Impression paysage de UserForm

[fba]

Bonjour,
Je n'arrive pas en "VBA" à paramètrer l'imprimante en PAYSAGE pour imprimer un UserForm dont la taille est plus grande que le PORTRAIT.
Je m'en tire en faisant une réduction par ZOOM, mais cela ne me satisfait pas.
y-a-il-un-génie-sur-le-forum ? Merci

 

[pat5]

Salut, peut-être ça avec l'outil " Définir " ???



ActiveSheet.PageSetup.PrintArea = "$A$1:$L$26"
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.787401575)
.RightMargin = Application.InchesToPoints(0.787401575)
.TopMargin = Application.InchesToPoints(0.984251969)
.BottomMargin = Application.InchesToPoints(0.984251969)
.HeaderMargin = Application.InchesToPoints(0.4921259845)
.FooterMargin = Application.InchesToPoints(0.4921259845)
.PrintComments = xlPrintNoComments
.PrintQuality = 200
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlLandscape
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.Zoom = 100
.PrintErrors = xlPrintErrorsDisplayed
End With
ActiveWindow.SelectedSheets.PrintPreview
End Sub