You can easily add a new Item PageBreaks to the Mathematica Menu. First make a backup copy of
C:\Program Files\Wolfram Research\Mathematica\8.0\SystemFiles\FrontEnd\TextResources\Windows\MenuSetup.tr
Then edit the original file and add the following block of code, e.g. between the blocks of Window and Help:
Menu["&PageBreaks",
{
Item["ShowPageBreaks ON ", ShowPageBreaks->True, Scope->NotebookDefault],
Item["ShowPageBreaks OFF", ShowPageBreaks->False, Scope->NotebookDefault],
the original fileDelimiter,
Item["PageBreak Above Cell ", PageBreakAbove->True, Scope->SelectionCell],
Item["NO PageBreak Above ", PageBreakAbove->False, Scope->SelectionCell],
Item["AUTO PageBreak Above ", PageBreakAbove->Automatic, Scope->SelectionCell],
Delimiter,
Item["PageBreak Below Cell ", PageBreakBelow->True, Scope->SelectionCell],
Item["NO PageBreak Below ", PageBreakBelow->False, Scope->SelectionCell],
Item["AUTO PageBreak Below ", PageBreakBelow->Automatic, Scope->SelectionCell],
Delimiter,
Item["PageBreak Within Cell", PageBreakWithin->True, Scope->SelectionCell],
Item["NO PageBreak Within", PageBreakWithin->False, Scope->SelectionCell],
Item["AUTO PageBreak Within", PageBreakWithin->Automatic,Scope->SelectionCell],
Delimiter,
Item["GroupPageBreak Within", GroupPageBreakWithin->True,Scope->SelectionCell],
Item["NO GroupPBr. Within", GroupPageBreakWithin->False,Scope->SelectionCell],
Item["AUTO GroupPBr. Within", GroupPageBreakWithin->Automatic,Scope->SelectionCell],
}],
With these additional menu items, you can easily control the placement of page breaks.
Bingo!