columns exceeding one page

[swiss2007]

Everyone,
I created a cross tab report that has
Rows: Supplied Date(for each month)
shipping type for ex:Overnight,2 day,3day
Columns: location for ex:Chester,Bridgetown,Johnson City etc.
Summaries: Sum of Ordered Amount

sometimes the report has fewer locations and sometimes many locations.The page numbering fits in 1 horizontal page if there are few locations but however when there are man locations the report extends horizontally.
I was searching for a sol online and ended up with the following.

I created a group on the following(in my case the max columns that can fit in one page is 8)
Formula 1:{@Group}
Whilereadingrecords;
NumberVar column_cnt;
Local NumberVar group;
Local NumberVar rem;
group := Int (column_cnt / 8);
rem := Remainder (column_cnt,8);
If (rem > 0.0) then
group := group + 1;
group;

There is one more formula which is
Formula 2: {@ColumnHeader}
Whilereadingrecords;
stringVar old_header;
numberVar column_count;
If ({Supplyloc.location} <> old_Header) then
(column_count := column_count + 1;
old_Header := {Supplyloc.location});

and I used the above formula as columnheader
Now,even if there are more than 8 columns,the page number doesn't go to next horizontal page but the data is totally distorted.Is there a way to do this.I appreciate your help.
Advance Thanks

 

[IanWaterman]

The only way I have solved this in passt is to create grouping formula which will split your column data into two groups.

YOu will then need to place Crosstab into Group header, down side of this is you will not get a report grand total for each column.

Ian