page break problem

[Guest]

I am having page breaks occur leaving me with half a page of content and some
pages with full content. I am unable to force a manual page break to bring
the content of the 2nd page back up to the 1st page. I thing this is occuring
because the column content is long so the content will break from the
previous row and go to the next page instead of the content filling out the
1st page then continuing on to the next page. How can I remove the page
breaks to allow all pages to have full content? I am totally unable to do
anything with the page break features to fix this problem. any assistance
will be appreciated.

 

[Ardus Petus]

Sub ClearPBs()
'
' Suppress all pagebreaks
With ActiveSheet
Do While .HPageBreaks.Count > 0
.HPageBreaks(1).Delete
Loop
Do While .VPageBreaks.Count > 0
.VPageBreaks(1).Delete
Loop
End With

End Sub

HTH

 

[Dave Peterson]

Manually, you can select all the cells (ctrl-a a few times)
then Insert|reset all page breaks.

I recorded a macro when I did this and got this line:

ActiveSheet.ResetAllPageBreaks