This macro is to print a graph from a spreadsheet
Sub Print_Graph()
'
' Print_Graph Macro
'
' Application.ScreenUpdating = False
Application.Goto Reference:="AM_Graph"
ActiveSheet.PageSetup.PrintArea = "$A$2:$DW$57"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True...