Range("A4:F20").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True