【结贴】请问DataGrid.Exporter设置页眉页脚的代码是什么？**

rzport_lcl

如题请问DataGrid.Exporter设置页眉页脚的代码是什么？
这个找了半天没找到，帮助上也没找到

rzport_lcl

能提供涉及到打印设置里常用的功能的设置的代码吗，自己一个个找太难了。
帮助不太好用，谢谢了先

shangxy

http://bbs.justep.com/forum.php? ... 2%EB%2A%D2%B3%C3%BC

rzport_lcl

头大啊   您先帮忙实现一个吧 DataGrid.Exporter.HFSheet.?   可以设置页脚为 ‘第？页，共？页’这样的格式    东西太多不好找啊  谢谢了先

shangxy

具体做到哪里了呢？要不你先尝试做做，我看看明天有时间给你做个例子看看

rzport_lcl

哦  那个DataGrid.Exporter.PageInfo里面设置宽度高度 横向打印等都找到了
就差这个页脚的设置了  就给说下这个页脚设置的代码就成

shangxy

做了一个在页眉显示第几页的例子，主要是接管TDataGridExporter(DataGrid.Exporter).OnSheetCreated 方法。

rzport_zhzhx

where?

shangxy

sorry，忙晕了，在这里：
procedure TSJWG1.Button1Click(Sender: TObject);
var
  lPageInfo: TDataGridPageInfo;
begin
  lPageInfo := TDataGridPageInfo(DataGrid.Exporter.PageInfo);
  lPageInfo.SpaceTitleRowCount := 2; // 指定输出标题后，空出2行，默认空一行
  TDataGridExporter(DataGrid.Exporter).OnSheetCreated := OnSheetCreated;
  DataGrid.Exporter.Preview(nil);
end;

procedure TSJWG1.OnSheetCreated(Sender: TObject; ASheet: TSheet);
var
  lCell: TSheetCell;
begin
  // ASheet 从 0, 0 开始，通过ASheet.Areas 可以对数据集区域进行访问
  // 表头部分
  // 区域开始列, 默认有一个数据集区域，通过 TDataSheetArea(ASheet.Areas[0]) 访问
  ASheet.CellTypes[ASheet.Areas[0].Right - 1, 2] := TCellType.ctExpression;
  TExprCell(ASheet.Cells[ASheet.Areas[0].Right - 1, 2]).Expression.Text := '''第''+CAST(PageNumber() AS VARCHAR)+''页''';
  TExprCell(ASheet.Cells[ASheet.Areas[0].Right - 1, 2]).HorzAlign := Justep.Forms.jsGraphics.THorzAlign.haRight;
end;

rzport_zhzhx

先谢谢了 我先研究一下