not getting it in right place

[Curt]

Have following cannot seem to get flickering out of column(F) know a lot
going on there maybe some of it could come out? built this useing macro
recorder. screen updating or enable events just not doing it for me. Is it
lanscape change that is causeing it. If so how can it be modifyed. Or should
lanscape be in a seperate module and called?
hoping
Thanks

Sheets("Announcer").Select
Application.EnableEvents = False
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
Application.EnableEvents = True
Application.ScreenUpdating = False
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
Application.ScreenUpdating = True
.PrintArea = "A2:F" & Cells(Rows.Count, "B").End(xlUp).Row
End With
Application.EnableEvents = True
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.pagesetup.PrintArea = ""
Range("G4").Select
End Sub