Hi, I recorded the macro below. I deleted all the window scrolls and it
works but is very slow. Thats ok I guess but I want to run it on severals
sheets in a book. Whats the script I add to do that?


Sub PrintSettings()
'

' Keyboard Shortcut: Ctrl+Shift+A
'
ActiveWindow.View = xlPageBreakPreview
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = "$A:$E"
End With
ActiveSheet.PageSetup.PrintArea = "$A$1:$Q$108"
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = "&F&A"
.CenterFooter = "&D"
.RightFooter = "&P of &N"
.LeftMargin = Application.InchesToPoints(0.75)
.RightMargin = Application.InchesToPoints(0.75)
.TopMargin = Application.InchesToPoints(0.28)
.BottomMargin = Application.InchesToPoints(0.25)
.HeaderMargin = Application.InchesToPoints(0.17)
.FooterMargin = Application.InchesToPoints(0.17)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperLetter
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = True
.Zoom = 58
.PrintErrors = xlPrintErrorsDisplayed
End With
Columns("I:I").Select
ActiveWindow.SelectedSheets.VPageBreaks.Add Befo=ActiveCell
Columns("N:N").Select
ActiveWindow.SelectedSheets.VPageBreaks.Add Befo=ActiveCell

ActiveSheet.PageSetup.PrintArea = "$A$1:$T$108"
ActiveSheet.HPageBreaks(1).DragOff Direction:=xlUp, RegionIndex:=1

ActiveSheet.PageSetup.PrintArea = "$A$1:$T$110"
Columns("T:T").EntireColumn.AutoFit
Columns("M:M").EntireColumn.AutoFit

ActiveWindow.View = xlNormalView

Range("A1").Select
End Sub