landscape printing
 

what is the order when changeing to landscape printing. Does it need to be
done first or does it matter where in the procedure you do it. Have tried to
move pagesetup around for printing still problems here is code I have got As
you can see its been put all around. Anyone have an idea
Thanks

Sheets("Announcer").Select
With Selection
' ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
.pagesetup.PrintArea = "A2:F" & Cells(Rows.Count, "B").End(xlUp).Row
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

End With

Columns("F").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.MergeCells = False
End With
Range("G2").Select
Sheets("Announcer").Select
' With Selection
' ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
' .pagesetup.PrintArea = "A2:F" & Cells(Rows.Count, "B").End(xlUp).Row
'End With

With ActiveSheet.pagesetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.75)
.RightMargin = Application.InchesToPoints(0.75)
.TopMargin = Application.InchesToPoints(1)
.BottomMargin = Application.InchesToPoints(1)
.HeaderMargin = Application.InchesToPoints(0.5)
.FooterMargin = Application.InchesToPoints(0.5)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = -3
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperLetter
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
End With
' Range("G2").Select
' Sheets("Announcer").Select
' With Selection
' ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
' .pagesetup.PrintArea = "A2:F" & Cells(Rows.Count, "B").End(xlUp).Row
' End With
ActiveSheet.pagesetup.PrintArea = ""
Range("G4").Select
' ActiveSheet.pagesetup.PrintArea = ""
' Range("G4").Select
End Sub