Print and PrintPreview don't update

[FRANCISCO SOUSA-PORTUGAL]

I have two calendars, one in Sheet1 and another in the Sheet2, when I pass the value of the Sheet1 for the Sheet2, When I make a print or print preview of the Calendar2 on Sheet 2 is not updated, but on Sheet2 the Calendar2 have the same value of the Calendar1.

Sheets("Sheet2").Select

Sheets("Sheet2").Range("A1").Activate

Worksheets("Sheet2").PageSetup.PrintArea = "A1:N48"

Calendar2 = Calendar1.Value

ActiveWindow.ActiveSheet.PrintPreview

Sorry for my english

Regards
FS