This is my somewhat untidy code so far....
Sheets("Total").Select
Range("A1:M40").Select
Application.ActivePrinter = "Adobe PDF on Ne00:"
Selection.PrintOut Copies:=1, ActivePrinter:="Adobe PDF on Ne00:",
Collate _
:=True
Range("N4:AC38").Select
Selection.PrintOut Copies:=1, Collate:=True
Sheets("Sanction").Select
ActiveSheet.ChartObjects("Chart 2").Activate
Application.Run "OnActivate"
Windows("FSPI Main.xls:1").LargeScroll ToRight:=-1
ActiveWindow.Visible = False
Windows("FSPI Main.xls:1").Activate
Range("A1:M40").Select
Application.Run "OnActivate"
Selection.PrintOut Copies:=1, Collate:=True
Range("N1:AC38").Select
Selection.PrintOut Copies:=1, Collate:=True
Sheets("Burglary").Select
Application.Run "OnActivate"
Range("A1:M41").Select
Selection.PrintOut Copies:=1, Collate:=True
Range("N1:AC39").Select
Selection.PrintOut Copies:=1, Collate:=True
Sheets("Violent").Select
Application.Run "OnActivate"
Range("A1:M39").Select
Selection.PrintOut Copies:=1, Collate:=True
Range("N1:AC40").Select
Selection.PrintOut Copies:=1, Collate:=True
Sheets("VCPP").Select
Application.Run "OnActivate"
Range("A1:M41").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Selection.PrintOut Copies:=1, Collate:=True
Range("N7:AC41").Select
Selection.PrintOut Copies:=1, Collate:=True
Sheets("Robbery_Source").Select
Application.Run "OnActivate"
Sheets("Robbery").Select
Application.Run "OnActivate"
Range("A1:M40").Select
Range("M40").Activate
Selection.Copy
Application.CutCopyMode = False
Selection.PrintOut Copies:=1, Collate:=True
Range("N3:AC37").Select
Selection.PrintOut Copies:=1, Collate:=True
Range("X39").Select
Sheets("Vehicle_Source").Select
Application.Run "OnActivate"
Sheets("Vehicle").Select
Application.Run "OnActivate"
Range("A1:M41").Select
Selection.PrintOut Copies:=1, Collate:=True
Range("N9").Select
ActiveWindow.SmallScroll Down:=-12
Range("N2:AC40").Select
ActiveWindow.SmallScroll Down:=-12
Selection.PrintOut Copies:=1, Collate:=True
Sheets("ClassA_Source").Select
Application.Run "OnActivate"
Sheets("ClassA").Select
Application.Run "OnActivate"
Range("A1:M41").Select
Selection.PrintOut Copies:=1, Collate:=True
Sheets("Criminal_Damage_Source").Select
Application.Run "OnActivate"
Sheets("Criminal_Damage").Select
Application.Run "OnActivate"
Range("A1:M40").Select
ActiveWindow.SmallScroll Down:=6
Range("A1:M41").Select
Range("M41").Activate
Selection.PrintOut Copies:=1, Collate:=True
Sheets("Criminal_Damage").Select
Range("N3:AC39").Select
Selection.PrintOut Copies:=1, Collate:=True
Sheets("Incidents source").Select
Application.Run "OnActivate"
Sheets("Incidents").Select
Application.Run "OnActivate"
Range("A1:M45").Select
Selection.PrintOut Copies:=1, Collate:=True
Range("N2:AD41").Select
Selection.PrintOut Copies:=1, Collate:=True
Sheets("CHC Presentation").Select
Application.Run "OnActivate"
Range("A1:M63").Select
Selection.PrintOut Copies:=1, Collate:=True
Sheets("CHC + CRIB").Select
Application.Run "OnActivate"
Sheets("CHCsource").Select
Application.Run "OnActivate"
Sheets("Emergency Calls").Select
Application.Run "OnActivate"
Range("A1:M39").Select
Selection.PrintOut Copies:=1, Collate:=True
Range("N4:AD39").Select
Selection.PrintOut Copies:=1, Collate:=True
Sheets("999 History").Select
Application.Run "OnActivate"
Sheets("Searches Presentation").Select
Application.Run "OnActivate"
Range("A1:M47").Select
Selection.PrintOut Copies:=1, Collate:=True
Range("N3:AD40").Select
Selection.PrintOut Copies:=1, Collate:=True
Sheets("PACE Searches History").Select
Application.Run "OnActivate"
Sheets("Stops Presentation").Select
Application.Run "OnActivate"
Range("A1:M47").Select
Selection.PrintOut Copies:=1, Collate:=True
ActiveWindow.SmallScroll Down:=-21
Range("N9:AD43").Select
Range("AD43").Activate
Selection.PrintOut Copies:=1, Collate:=True
Sheets("PACE Stops History").Select
Application.Run "OnActivate"
ActiveWindow.SmallScroll ToRight:=30
ActiveWindow.SmallScroll Down:=0
Sheets("Adult Casualties").Select
Application.Run "OnActivate"
Range("A1:M46").Select
Selection.PrintOut Copies:=1, Collate:=True
Range("N1:AD47").Select
ActiveWindow.SmallScroll Down:=0
Range("N2:AD48").Select
ActiveWindow.SmallScroll Down:=-6
Selection.PrintOut Copies:=1, Collate:=True
Sheets("Adult RTC Histories").Select
Application.Run "OnActivate"
Sheets("Child Casualties").Select
ActiveSheet.ChartObjects("Chart 1").Activate
Application.Run "OnActivate"
ActiveWindow.Visible = False
Windows("FSPI Main.xls:1").Activate
Range("A1:M46").Select
Application.Run "OnActivate"
Selection.PrintOut Copies:=1, Collate:=True
Range("N3:AC46").Select
Range("AC46").Activate
Selection.PrintOut Copies:=1, Collate:=True
Sheets("Complaints").Select
ActiveSheet.ChartObjects("Chart 1").Activate
Application.Run "OnActivate"
ActiveWindow.Visible = False
Windows("FSPI Main.xls:1").Activate
Range("A1:M51").Select
Application.Run "OnActivate"
Selection.PrintOut Copies:=1, Collate:=True
ActiveWindow.SmallScroll Down:=-30
Range("N1:AB39").Select
Selection.PrintOut Copies:=1, Collate:=True
Sheets("Complaints Histories").Select
Application.Run "OnActivate"
Sheets("Priorities").Select
Application.Run "OnActivate"
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("Update Procedure").Select
Application.Run "OnActivate"
End Sub