Posted to microsoft.public.excel.programming

Jodie

external usenet poster

Posts: 72

Page set up for all worksheets

Hello,

I am trying to run the following macro for all sheets in a workbook:

Sub VBAMacro()
Cells.Select
Range("D1").Activate
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.PrintGridlines = True
.Orientation = xlLandscape
.PrintTitleRows = ""
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 5
End With
ActiveWorkbook.Save
End Sub

How can I make it work?
--
Thank you, Jodie

Reply With Quote

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Posting Rules
Smilies are On [IMG] code is On HTML code is Off Trackbacks are On Pingbacks are On Refbacks are On

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Summary page for 12 worksheets	ACM	Excel Discussion (Misc queries)	11	January 15th 08 12:06 PM
Printing several worksheets as on page	Coenie Brand	Excel Programming	2	June 29th 07 02:38 PM
Add page numbers to multiple worksheets without changing page setu	alatona	Excel Discussion (Misc queries)	2	March 16th 07 07:23 PM
Printing multiple page worksheets on 1 single page	Hope	Excel Discussion (Misc queries)	1	January 7th 07 03:56 AM
How do I use 2 worksheets in 1 page	merry_fay	Excel Worksheet Functions	2	June 1st 05 03:06 PM

All times are GMT +1. The time now is 12:03 AM.

About Us

"It's about Microsoft Excel"

Menu

About Us