Print Area property not working

I'm trying to use PageSetup.PrintArea to set the print area for a worksheet. Here's my code:

Sheets("Exception Report").Activate
FinalRow = Range("E65536").End(xlUp).Row
FinalColumn = Range("IV4").End(xlToLeft).Column
Set PrintRange = Range(Cells(3, 3), Cells(FinalRow, FinalColumn))
With ActiveSheet.PageSetup
.PrintArea = PrintRange
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With

I don't get any errors, but when I Print Preview, it still shows me the first two columns (which I'm trying to exclude). If I tell it to select Range(Cells(3, 3), Cells(FinalRow, FinalColumn)) it selects the area I'm trying to get, so I know that part is right. I don't understand why it doesn't work.

Thanks!

Melanie