【搞定】[问题]DataGrid显示的和打印不一样?

fengyong

开发过程发现ataGrid显示的和打印不一样?

搜索 论坛 发现:
2004年就有此问题,不知道现在怎么解决??


具体问题参见:
http://bbs.justep.com/forum.php? ... 9%C4%D8%A3%BF%2A%2A

atiger

没有，因为DataGrid属性的自动适应行高，特别影响性能，我们一般不推荐用户使用，

另外，你可以看看用表格文档来实现打印，然后可以通过设置 数据集 区域属性 的 "打印"页面的“自动大小”来属性。具体可以参考用户手册的 6.14.6 的相关说明

fengyong

但是表格文档不如DataGrid功能强大.

atiger

嗯，确实是这样，目前看来在打印的把列的宽度调整好了。

jiahaiminghr

可以通过代码处理：
unit SJWG1;

interface

uses
  Business.System, Business.Model, Business.Forms, Business.Data;

type
  TSJWG1 = class(TFormDoc)
    InfoBroker: TInfoBroker;
    DataSetBrokerBZSJJ1: TDataSetBroker;
    DataGrid: TDataGrid;
    procedure FormDocCreate(Sender: TObject);
  private
    procedure OnSheetCreated(Sender: TObject; ASheet: TSheet);
  public
    {public declarations}
  end;

implementation

procedure TSJWG1.OnSheetCreated(Sender: TObject; ASheet: TSheet);
begin
  TDataSheetArea(ASheet.Areas[0]).AutoSize := TAreaAutoSizeType.astRow;
end;

procedure TSJWG1.FormDocCreate(Sender: TObject);
begin
  TDataGridExporter(DataGrid.Exporter).OnSheetCreated := OnSheetCreated;
end;

end.

这是一个表单文档（数据网格）

fengyong

问题: 可否在显示时不自动行高,在打印时自动行高?

jiahaiminghr

5楼的做法就是直接设置打印自动行高。

不需要设置datagrid的显示自动行高

jiahaiminghr

由于长时间没有反馈，先结贴了，
有问题请开新贴！