Insert Page Breaks?

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Susan - 13 Jan 2006 17:20 GMT

I have a speadsheet which prints everything on one page. When viewing the
spreadsheet there is gray transparent "Page 1" visible on page while
editing. I want to insert horizontal page breaks in the document where the
room number changes (is sorted by room number and are only 3), but I cannot
figure out how to insert the Page Break. I have tried "Insert Page Break",
"Remove Page Break", "Reset All Page Breaks" but I am not having any luck.
What am I doing wrong?

Thanks for any suggestions and help.

Susan

Reply to this Message

Lydon Bergin - 13 Jan 2006 17:52 GMT

> I have tried "Insert Page Break",

As long as you select the entire row (ex. click on the gray "5" row heading
to highligh the entire row) and then to go Insert > Page Break, it should
put a page break right above the selected row.

Lydon D. Bergin
MCP, MOS

Reply to this Message

David McRitchie - 13 Jan 2006 18:56 GMT

You can change the
View, Page Break Preview to
View, Normal
and change the percentage to 100% if you have it
set to less than 50%

To remove the page break lines that were added with
printing, or print preview, or options, you can use
tool, options, view (tab), remove checkmark on Page breaks
Removal may speed up usage, particularly in macros.
---
HTH,
David McRitchie, Microsoft MVP - Excel [site changed Nov. 2001]
My Excel Pages: http://www.mvps.org/dmcritchie/excel/excel.htm
Search Page: http://www.mvps.org/dmcritchie/excel/search.htm

> > I have tried "Insert Page Break",
>
[quoted text clipped - 4 lines]
> Lydon D. Bergin
> MCP, MOS

Reply to this Message

Gord Dibben - 13 Jan 2006 20:04 GMT

Susan

To insert a pagebreak at each change of room number use this macro.

First clear all pagebreaks then run macro.

Sub Insert_Pbreak()
Dim OldVal As String
Dim rng As Range
OldVal = Range("A1")
For Each rng In Range("A1:A300") '<< change range
If rng.text <> OldVal Then
rng.PageBreak = xlPageBreakManual
OldVal = rng.text
End If
Next rng
End Sub

Gord Dibben MS Excel MVP

>I have a speadsheet which prints everything on one page. When viewing the
>spreadsheet there is gray transparent "Page 1" visible on page while
[quoted text clipped - 7 lines]
>
>Susan

Reply to this Message