Verschil printbereik instellen 2003 en 2007

[wiki]

Ik werk in excel 2003
met de volgende code stel ik het printbereik in
op 1 pagina:

 With Dest.Sheets(1)
        .PageSetup.PrintArea = "$A$1:$I$36"
    With Dest.Sheets(1).PageSetup
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
    End With

Dit werkt prima.

Het bestand wordt gebruikt met excel 2007 en dan werkt het niet en wordt het bereik geprint op 2 pagina's. Heeft iemand een ander stukje code dat ook werkt voor 2007?

gr Wim

 

[wiki]

Heeft iemand een andere code die wel werkt in versie 2007 of weet iemand de reden dat dit niet lukt?

gr wim