formatting page with VBA
 

I've hunted around for a solution to the page formatting problem within VBA
(very slow). Thought I'd found one but keep getting an error. can you see
anything obviously wrong with this?

Sheets("Statistics").Select
With Worksheets("statistics").PageSetup
.fitToPageWide = 1
.FitToPagesTall = False
.Orientation = xlLandscape
End With

it says theres an error with .fittopageswide = 1

formatting page with VBA
 

You have an "s" missing from:

..fitToPagesWide = 1

--
HTH

Sandy
In Perth, the ancient capital of Scotland
and the crowning place of kings


Replace @mailinator.com with @tiscali.co.uk


"JBW" wrote in message
...
I've hunted around for a solution to the page formatting problem within
VBA
(very slow). Thought I'd found one but keep getting an error. can you see
anything obviously wrong with this?

Sheets("Statistics").Select
With Worksheets("statistics").PageSetup
.fitToPageWide = 1
.FitToPagesTall = False
.Orientation = xlLandscape
End With

it says theres an error with .fittopageswide = 1

formatting page with VBA
 

Probably the best way to learn is to turn on the macro recorder, go through
the motions, and then turn off the recorder and view your code to see what
you just did in VBA syntax.

Hope that helps,
Ryan---

--
RyGuy


"Sandy Mann" wrote:

You have an "s" missing from:

..fitToPagesWide = 1

--
HTH

Sandy
In Perth, the ancient capital of Scotland
and the crowning place of kings


Replace @mailinator.com with @tiscali.co.uk


"JBW" wrote in message
...
I've hunted around for a solution to the page formatting problem within
VBA
(very slow). Thought I'd found one but keep getting an error. can you see
anything obviously wrong with this?

Sheets("Statistics").Select
With Worksheets("statistics").PageSetup
.fitToPageWide = 1
.FitToPagesTall = False
.Orientation = xlLandscape
End With

it says theres an error with .fittopageswide = 1