page break formatting help

1st a non-code trick;
on page setup select fit to pages and select one page wide, then erase any value from pages long. Excel will then determine how many pages it will need on its own.

Or,

Use the code:

Activesheet.PageSetup.FitToPagesWide = 1
Activesheet.PageSetup.FitToPagesTall = False

If your sheet has hard coded pagebreaks or not this will give you automatic pages. JSW

I understand how to get it do print out in several pages. My problem is that it cuts off records in the middle during a page break. For instance let's say the first page breaks after row 30. My record may start on Row 28 with a customer name, Row 29 has Address 1, Row 30 Address 2, then row 31 has city and state, but is on the next page. Right now I manually move the page breaks to the end of each record (which has a border on it), how can I do this automatically?
thx
Gene

Convert your data to a Pivot Table and format with Layout-select: Insert page break after each item.
This will add each record to its own page.

Or,

add a blank row to the top of each record block then off to the right of your sheet in a column add a flag for each data row. Then build a print macro which counts the number of rows you want on a page. Then "xlup" to the next blank row and put a page break. Continue for each page, then print the document, then delete all page breaks. A macro like this is the only way I know of to keep odd numbered rows of data together when printing. JSW

Sounds like the time time consuming thing would be to just continue to manually adjust the page breaks before printing. I am trying to avoid having to do the manual page breaks.
Gene