Question : Advance Crosstab Report with dynamic columns and new or second pages.

I have and advance crosstab report with aggregate function which was answered earlier. The logic works great. see following:
Dim IntColCount As Integer     'variable for storing count of the columns returned by source
IntColCount = rs.FieldCount    ‘captures the total number of columns created by the source query
Dim intI As Integer    'for enumerating the array variables

    'columns 1 thru  11 are fixed (static) headers and titles that are defined in the report the normal way;the remaining columns are dynamically placed in the control source via the following code.
   
‘Loop for row detail and row footers for each dynamic column
          'Places correct controlsource for the rows (detail line, group totals, and grand total)
For intI = 12 To intColCount               'first detail column placed in column 12
        Me("Col" & (intI - 1)).Visible = True
        Me("Col" & (intI - 1)).ControlSource = "=Round(SUM([" & rs.Fields(intI - 1).Name & "]),0)"
        Me("grpTot" & (intI - 1)).Visible = True
        Me("grpTot" & (intI - 1)).ControlSource = "=Round(SUM(nz([" & rs.Fields(intI - 1).Name & "])),0)"
        Me("RptTot" & (intI - 1)).Visible = True
        Me("RptTot" & (intI - 1)).ControlSource = "=Round(SUM(nz([" & rs.Fields(intI - 1).Name & "])),0)"
  Next intI

‘Placement of row totals in a row total column immediately following the array loop
        ‘By default, the total column is placed to the left of the detail columns.  If you want it
        ‘ dynamically placed on the  right of the last detail column, you need to create that
        ‘ column as a row header expression in the field row of your query and then  reference
        ‘ it by name as shown

        Me("Col" & (intI - 1)).Visible = True
        Me("Col" & (intI - 1)).ControlSource = "=Round(SUM([" & rs.Fields("Total").Name & "]),0)"
        Me("grpTot" & (intI - 1)).Visible = True
        Me("grpTot" & (intI - 1)).ControlSource = "=Round(SUM([" & rs.Fields("Total").Name & "]),0)"
        Me("Tot" & (intI - 1)).Visible = True
        Me("Tot" & (intI - 1)).ControlSource =  "=Round(SUM([" & rs.Fields("Total").Name & "]),0)"
        Me("RptTot" & (intI - 1)).Visible = True
        Me("RptTot" & (intI - 1)).ControlSource = "=Round(SUM([" & rs.Fields("Total").Name & "]),0)"

The client wants this report to be portrait, period. now the dynamic columns could be up to 14, with now only 8 fitting on a page. The column headings have dates, and the date range could expand of course. They want the report to carry over into a second page with the column headings reflecting the extended dates. The row aggregates must follow over, as well as the group and report totals.

Some thoughts I have had to approach this, is to create a duplicate report, but change the column headings to be the extended ones, ie Col9, Col10, Col11, Col12 etc. with all text boxes populated the same as the first report, just controlling intColCount or the loop to grab the extended columns, and then call it if the conditions were present to do so. BUT they need the row aggregate, and it must print or collate correctly. If there is a way to keep the header, and left column detail with extended columns on second page with a forced page break? You guys are great! Hoping an expert can give me some ideas around this. THANKS (oh another thought, what about layered subreports, turning visibility on and off, but can that be toggled according to which page is printing?)

Answer : Advance Crosstab Report with dynamic columns and new or second pages.

Hi Coleen,
In answer to your questions:  There is more than one way to accomplish what you want. Here is the way I think would be best for you, given that you will never have more than 14 dynamic columns.
1. Lay it out as one report in the usual mannerwith header and footer sections, except that instead of limiting yourself to one logical page, lay it out over as many “logical” pages (8.5  “ including margins) as you need to accommodate the size textboxes, in between space, etc. you desire. You would control the visibility of each textbox (not page) thru intColCount as stated.
2. Keep in mind that the textboxes referred to above include bound as well as dynamic.  Each logical page must contain any bound (static) textboxes that you want repeated from the first logical page.
3. You will control how the pages print physically via the column setup options under Page Setup on your command menu…..File/page setup/column setup. you have to tweek the column size, but  a good start would be 1 col @ 16", coresponding to a logical report with two logical 8.5 " pages less 1" for 2 margins @ .5.