(09)打印StringGrid

0]拖一个frxCrossObject1

 1]双击frxReport1

 2]点击 交叉表对象，系统自动 弹出 交叉报表编辑器

 3]取消所有 自动列

 4]关闭 编辑器，回来填充 数据

procedure TForm13.frxReport1BeforePrint(Sender: TfrxReportComponent);
var
  Cross: TfrxCrossView;
  i, j: Integer;
begin
  if ( Sender is TfrxCrossView) and (Sender.Name='Cross1' )then // 'Cross1' 对应
  begin
    Cross := TfrxCrossView(Sender);
    for i := 1 to 16 do
      for j := 1 to 16 do
        Cross.AddValue([i], [j], [   (i - 1)*( j - 1)   ]);
  end;
end;

'Cross1' 对应

最终效果