Macro Causes Screen To Flash

I created a macro, assigned to a menu button, that selects and prints a range on the active sheet. I created the macro with the recorder, then edited it to eliminate the excess. When I run the macro, though, it takes up to ten seconds to print the page and the screen flashes repeatedly while it's running. I also noticed that the length of the delay and the number of flashes seems to be related to the number of lines of code, because the delay was much longer and the flashing more excessive before editing.

Sub PrintContrReview_Click()
ActiveSheet.PageSetup.PrintArea = "$Y$5:$Z$20"
With ActiveSheet.PageSetup
.LeftHeader = "&F"
.RightHeader = "&A &D"
.LeftMargin = Application.InchesToPoints(1.25)
.Zoom = 95

End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub

So what is the cause of the flash and the delay, and how do I eliminate them?