About Us

redroyx[_2_]

It worked.

Thanks Dave.

Roy

"Dave Peterson" wrote:

Sometimes looping through the worksheets works ok.

Dim wks As Worksheet
For Each wks In _
Worksheets(Array("E1", "E2", "E3", "E4", "E5", "E6", "E7", "E8"))
With wks
.ResetAllPageBreaks
.PageSetup.PrintArea = "$G$13:$BE$242"
Application.Goto .Range("G93")
.HPageBreaks.Add Befo=ActiveCell
Application.Goto .Range("X13")
.VPageBreaks.Add Befo=ActiveCell
With .PageSetup
.PrintTitleRows = "$1:$12"
.PrintTitleColumns = "$A:$F"
End With
End With
Next wks

Roy wrote:

Bob:

Sorry, I am looking around for ideas to solve a problem and this thread
seems to be related. Is there any way to code the following issue?

I have different worksheets in an XL 2002 file that I want to print in
tandem with a macro. I need to reset all possible page breaks and then set
the same print area for all of them. I can select all worksheets change the
page setup properties for Page, Margins and Headers/Footers, but I can't get
access to the options in the Sheet tab related to area and titles. Similarly
I can't get to do anything about the Page Breaks. Can you help me? This is
part of my code and I don't know what I am doing wrong.

Worksheets(Array("E1", "E2", "E3", "E4", "E5", "E6", "E7", "E8")).Select
SelectedSheets.ResetAllPageBreaks
SelectedSheets.PageSetup.PrintArea = "$G$13:$BE$242"
Range("G93").Select
SelectedSheets.HPageBreaks.Add Befo=ActiveCell
Range("X13").Select
SelectedSheets.VPageBreaks.Add Befo=ActiveCell
With SelectedSheets.PageSetup
.PrintTitleRows = "$1:$12"
.PrintTitleColumns = "$A:$F"
End with

You would really make my week if you have any suggestions.

Thanks
Roy

"Bob Kilmer" wrote:

Suggestion: Record a macro while setting the print area, then examine and
adapt the code. You'll get something like this:

ActiveSheet.PageSetup.PrintArea = "$B$1:$B$36"

To be specific about which workbook and worksheet you are setting the print
area for, you might use

Workbooks("Book1.xls").Worksheets("Sheet1").PageSe tup.PrintArea =
"$B$1:$B$36"

where you replace Book1.xls and Sheet1 with your own workbook and sheet
names.

"$B$1:$B$36" can be replaced with any statement that returns a range
address; e.g., Range(Cells(1,1),Cells(2,2)).Address

Regards,
Bob

"wmcray " wrote in message
...
Hello,

I have an Excel worksheet which has three pages of data and the rest of
the pages are blank.

Upon printing, a lot of blank pages will be printed.

Could anyone please instruct me how to write an Excel macro to control
the page or print setting so that blank pages will not be printed?

Thank you!!

Jason

---
Message posted from http://www.ExcelForum.com/

--

Dave Peterson

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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Printing Macro for Excel 97	dhstein	Excel Discussion (Misc queries)	0	April 27th 09 05:26 PM
Printing Problem In Excel Due to Macro?	[email protected]	Excel Discussion (Misc queries)	4	March 20th 07 04:05 PM
Printing Problems in Excel due to a Macro in Word?!	[email protected]	Excel Discussion (Misc queries)	0	March 15th 07 04:13 PM
Printing numbers in Excel. Macro needed.	EddySon	Excel Programming	2	February 17th 04 08:39 PM
Text printing from VBA Excel macro	ben	Excel Programming	1	November 30th 03 12:15 AM

Menu

About Us