Bonsoir a tous,
J'ai crée un userform que je désire imprimer en l'état.
En cherchant sur tous les forums, j'ai réussi a trouver une routine me permettant de l'imprimer en paysage mais il me l'imprime sur 4 feuilles alors que je le veux sur une page uniquement.
Ci dessous vous trouverez la routine que j'ai "pompée".
merci d'avance pour votre aide !
With ActiveSheet
.PasteSpecial Format:="Bitmap", Link:=False, DisplayAsIcon:=False
.Range("A1").Activate
.PageSetup.Orientation = xlLandscape
.PageSetup.LeftMargin = Application.InchesToPoints(0)
.PageSetup.RightMargin = Application.InchesToPoints(0)
.PageSetup.TopMargin = Application.InchesToPoints(0.3)
.PageSetup.BottomMargin = Application.InchesToPoints(0)
.PageSetup.HeaderMargin = Application.InchesToPoints(0)
.PageSetup.FooterMargin = Application.InchesToPoints(0)
.PageSetup.PrintHeadings = False
.PageSetup.PrintGridlines = False
.PageSetup.PrintComments = xlPrintNoComments
.PageSetup.CenterHorizontally = True
.PageSetup.CenterVertically = True
.PageSetup.Draft = False
.PageSetup.PaperSize = xlPaperA3
.PageSetup.Order = xlDownThenOver
.PageSetup.BlackAndWhite = False
.PageSetup.Zoom = 100
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWorkbook.Close False
Saisie_newFi.CommandButton2.SetFocus
Application.ScreenUpdating = True
J'ai crée un userform que je désire imprimer en l'état.
En cherchant sur tous les forums, j'ai réussi a trouver une routine me permettant de l'imprimer en paysage mais il me l'imprime sur 4 feuilles alors que je le veux sur une page uniquement.
Ci dessous vous trouverez la routine que j'ai "pompée".
merci d'avance pour votre aide !
With ActiveSheet
.PasteSpecial Format:="Bitmap", Link:=False, DisplayAsIcon:=False
.Range("A1").Activate
.PageSetup.Orientation = xlLandscape
.PageSetup.LeftMargin = Application.InchesToPoints(0)
.PageSetup.RightMargin = Application.InchesToPoints(0)
.PageSetup.TopMargin = Application.InchesToPoints(0.3)
.PageSetup.BottomMargin = Application.InchesToPoints(0)
.PageSetup.HeaderMargin = Application.InchesToPoints(0)
.PageSetup.FooterMargin = Application.InchesToPoints(0)
.PageSetup.PrintHeadings = False
.PageSetup.PrintGridlines = False
.PageSetup.PrintComments = xlPrintNoComments
.PageSetup.CenterHorizontally = True
.PageSetup.CenterVertically = True
.PageSetup.Draft = False
.PageSetup.PaperSize = xlPaperA3
.PageSetup.Order = xlDownThenOver
.PageSetup.BlackAndWhite = False
.PageSetup.Zoom = 100
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWorkbook.Close False
Saisie_newFi.CommandButton2.SetFocus
Application.ScreenUpdating = True