Delphi 7 :: Rave Report :: Dynamic Colums

procedure TForm1.PrintTable(BaseReport: TBaseReport; Dataset: TADODataSet; LastColumn: Integer = 0; ColumnWidth: Integer=2);
var
  l_Index       : Integer;
  l_FirstCol    : Integer;
  l_LastCol     : Integer;
 
  l_ColWidth    : Double;
 
  l_EndOfPage   : Boolean;
 
begin
  //Check for active dataset
  if not(Dataset.Active) then
  begin
    try
      Dataset.Open;
    except
      on E: Exception do
      begin
        ShowMessage(E.Message);
        exit;
      end;
    end;
  end;
 
  //Create header
  BaseReport.NewLine;
  BaseReport.AdjustLine();
  BaseReport.GotoXY(2, BaseReport.YPos);
  BaseReport.SetFont('Arial',18);
  BaseReport.FontColor := clRed;
  BaseReport.Print('Dynamic Columns in Rave');
  BaseReport.NewLine;
  BaseReport.GotoXY(BaseReport.LeftWaste + 0.45, BaseReport.YPos);
  BaseReport.ClearTabs;
  BaseReport.SetFont('Arial', 8);
  BaseReport.Bold := True;
 
  //Set Variables
  l_EndOfPage := false;
  l_LastCol := LastColumn;
  l_FirstCol := l_LastCol;
 
  //Create Columns by checking the nuber of columns that can be on a single page
  while not(l_EndOfPage) and (l_LastCol < Dataset.FieldCount-1) do
  begin
 
    l_EndOfPage := ( BaseReport.XPos + BaseReport.TextWidth( Dataset.Fields[l_LastCol].FieldName ) ) > ( BaseReport.PageWidth - (BaseReport.RightWaste + 0.45 ) );
 
    if not( l_EndOfPage ) then
    begin
      l_ColWidth := BaseReport.TextWidth(Dataset.Fields[l_LastCol].FieldName);
 
      BaseReport.SetTab(BaseReport.XPos, pjLeft, IfThen(l_ColWidth > ColumnWidth, l_ColWidth, ColumnWidth), 0, 0, 0);
      BaseReport.GotoXY(BaseReport.XPos + IfThen(l_ColWidth > ColumnWidth, l_ColWidth, ColumnWidth) + 0.25, BaseReport.YPos);
      if( l_LastCol + 1 < Dataset.FieldCount ) then
      begin
        Inc(l_LastCol);
      end;
    end;
  end;
 
  //This is just to make sure that if the last column falls on a next page to print it.
  if l_LastCol = Dataset.FieldCount-1 then
  begin
    l_EndOfPage := ( BaseReport.XPos + BaseReport.TextWidth( Dataset.Fields[l_LastCol].FieldName ) ) > ( BaseReport.PageWidth - (BaseReport.RightWaste + 0.45 ) );
 
    if not( l_EndOfPage ) then
    begin
      l_ColWidth := BaseReport.TextWidth(Dataset.Fields[l_LastCol].FieldName);
 
      BaseReport.SetTab(BaseReport.XPos, pjLeft, IfThen(l_ColWidth > ColumnWidth, l_ColWidth, ColumnWidth), 0, 0, 0);
      BaseReport.GotoXY(BaseReport.XPos + IfThen(l_ColWidth > ColumnWidth, l_ColWidth, ColumnWidth) + 0.25, BaseReport.YPos);
      Inc(l_LastCol);
    end;
  end;
  
 
  //Print the Column Headers
  for l_Index := l_FirstCol to l_LastCol-1 do
  begin
    BaseReport.PrintTab(Dataset.Fields[l_Index].FieldName);
  end;
 
  BaseReport.Bold := False;
  BaseReport.NewLine;
 
  //Print the Column Data
  Dataset.first;
  while not Dataset.Eof do begin
    for l_Index := l_FirstCol to l_LastCol-1 do
    begin
      BaseReport.PrintTab(Dataset.Fields[l_Index].AsString);
    end;
 
    BaseReport.NewLine;
    Dataset.Next;
 
    if (BaseReport.LinesLeft < 3) and (not Dataset.Eof) then begin
      BaseReport.NewPage;
    end;
  end;
 
  //If there are more columns then print a new page
  if l_LastCol <= Dataset.FieldCount -1   then
  begin
    BaseReport.NewPage;
    PrintTable(RvSystem1.BaseReport, ADODataSet1, l_LastCol, ColumnWidth);
  end;
 
end;

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111: