【结】DATAGRID 打印预览时增加副标题和页尾**

yt_zy

procedure TMAINFORM.OnSheetCreated(Sender: TObject; ASheet: TSheet);
var
  lCell: TSheetCell;
begin
//  ASheet.RowHeights[0]:=0;
  ASheet.Areas[0].Top:=ASheet.Areas[0].Top-2;
  ASheet.Areas[0].Bottom:=ASheet.Areas[0].Bottom+1;
  ASheet.Areas[0].PageFooterRows:=ASheet.Areas[0].PageFooterRows+1;
  //正标题
{  ASheet.CellTypes[ASheet.Areas[0].Left, 1] := TCellType.ctExpression;
  lCell := ASheet.Cells[ASheet.Areas[0].Left, 1];
  ASheet.RowHeights[1]:=30;
  lCell.Font.Size := 14;
  lCell.Width := ASheet.Areas[0].Right;
  TExprCell(lCell).HorzAlign := THorzAlign.haCenter;
  TExprCell(lCell).Expression.Text:=MakeExpressionText(0);

  //副标题
  //左
  ASheet.CellTypes[ASheet.Areas[0].Left, 2] := TCellType.ctExpression;
  lCell := ASheet.Cells[ASheet.Areas[0].Left, 2];
  lCell.Font.Size := 10;
  lCell.Width := 3;
  TExprCell(lCell).HorzAlign := THorzAlign.haleft;
  TExprCell(lCell).Expression.Text:=MakeExpressionText(1);
  //右
  ASheet.CellTypes[ASheet.Areas[0].Right-3, 2] := TCellType.ctExpression;
  lCell := ASheet.Cells[ASheet.Areas[0].Right-3, 2];
  lCell.Font.Size := 10;
  lCell.Width := 3;
  TExprCell(lCell).HorzAlign := THorzAlign.haRight;
  TExprCell(lCell).Expression.Text:=MakeExpressionText(2);

  //页尾1
  //左
  ASheet.CellTypes[ASheet.Areas[0].Left,ASheet.Areas[0].Bottom-1] := TCellType.ctExpression;
  lCell := ASheet.Cells[ASheet.Areas[0].Left,ASheet.Areas[0].Bottom-1];
  lCell.Font.Size := 10;
  lCell.Width := 3;
  TExprCell(lCell).HorzAlign := THorzAlign.haLeft;
  TExprCell(lCell).Expression.Text:=MakeExpressionText(3);
  //右
  ASheet.CellTypes[ASheet.Areas[0].Right-3,ASheet.Areas[0].Bottom-1] := TCellType.ctExpression;
  lCell:=ASheet.Cells[ASheet.Areas[0].Right-3,ASheet.Areas[0].Bottom-1];
  lCell.Font.Size := 10;
  lCell.Width := 3;
  TExprCell(lCell).HorzAlign := THorzAlign.haRight;
  TExprCell(lCell).Expression.Text:=MakeExpressionText(4);
  }
end;

目前只是先增加行，但是这样的预览就不对了。。。可以看下下面的图片。。。

yt_zy

预览前的图片

jiahaiming

似乎是区域头没有定义

yt_zy

应该怎么定义？如何写代码啊？帮下忙吧，下午比较忙，耽误回复了。。。

jiahaiming

哦，楼主加一句：
ASheet.Areas[0].PageHeaderRows := ASheet.Areas[0].PageHeaderRows+2;

yt_zy

上午要开会，我中午测试下再回复，谢谢

yt_zy

我测试了下
procedure TMAINFORM.OnSheetCreated(Sender: TObject; ASheet: TSheet);
var
  lCell: TSheetCell;
begin
   ASheet.Areas[0].Top := ASheet.Areas[0].top-1;
   ASheet.Areas[0].PageHeaderRows:=ASheet.Areas[0].PageHeaderRows+2;
end;
这样预览时，只能显示1条数据（当前数据），无法显示其数据。。。

atiger

那你检查一下，打印的设置，是否只输出当前记录呢？

jiahaiming

我作了demo，是可以的，楼主参考一下。

lili7912

例子程序princtgrid.rar程序导入到本机，测试没有问题，如何写左、中、右附标题，请给一下程序代码。