Brigitte
XLDnaute Barbatruc
Bonjour tout le monde,
J'ai besoin d'une tite macro pour remettre mon impression à xx % avant d'imprimer... En effet, une précédente macro (que j'utilise en alternance), masque certaines colonnes et zoome un peu plus (85 %) avant impression.
Lorsque je réaffiche tout, j'ai donc besoin de réduire à nouveau à 65 %/
La macro donnée par l'enregistreur donne ceci :
Le souci étant que telle qu'écrite... elle est super longue à exécuter, et j'ai essayé de supprimer des lignes, ca bugge.
Merci à vous.
J'ai besoin d'une tite macro pour remettre mon impression à xx % avant d'imprimer... En effet, une précédente macro (que j'utilise en alternance), masque certaines colonnes et zoome un peu plus (85 %) avant impression.
Lorsque je réaffiche tout, j'ai donc besoin de réduire à nouveau à 65 %/
La macro donnée par l'enregistreur donne ceci :
Code:
Sub Affichage()
'
' Affichage Macro
' Macro enregistrée le 14/03/2012 par AADDI009
'
'
Columns("D:O").Select
Selection.EntireColumn.Hidden = False
Range("A1:Y36").Select
Range("Y36").Activate
ActiveWindow.SmallScroll Down:=0
ActiveSheet.PageSetup.PrintArea = "$A$1:$Y$36"
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = "&12TAUX DE REALISATION&11 &A"
.RightHeader = ""
.LeftFooter = "&8&Z&F" & Chr(10) & "&D"
.CenterFooter = "&8&P/&N"
.RightFooter = "&G"
.LeftMargin = Application.InchesToPoints(0.118110236220472)
.RightMargin = Application.InchesToPoints(0.118110236220472)
.TopMargin = Application.InchesToPoints(0.354330708661417)
.BottomMargin = Application.InchesToPoints(0.551181102362205)
.HeaderMargin = Application.InchesToPoints(0.118110236220472)
.FooterMargin = Application.InchesToPoints(0.118110236220472)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.zoom = 65
.PrintErrors = xlPrintErrorsDisplayed
End With
ActiveWindow.SelectedSheets.PrintPreview
End Sub
Le souci étant que telle qu'écrite... elle est super longue à exécuter, et j'ai essayé de supprimer des lignes, ca bugge.
Merci à vous.