使用Expressprinting打印DbGridEh

 在多年的程序开发中一直使用dbgridEh这个轻量级的表格组件，但对它本身所提供的打印功能却不太满意，这之前程序中的报表打印一直在用Fastreport。
     近来一个新的程序中，客户要求对表格的内容进行直接打印(即所见所得)。本来想直接修改dbgrideh中的打印代码，以满足要求，但看过一遍代码之后就放弃这想法了：dbgrideh的打印代码实在不敢恭维，如果实在要修改，后期的维护工作不敢保证。虽然Fastreport也能动态打印dbgrideh，但毕竟也是用程序生成模板，灵活性有所欠缺。后来想到了Devexpress中的Expressprinting组件，这是一个很专业的打印组件，只是它本身没有提供dbgrideh的link，之前也不知如何写新的link，也就没有使用过。
     Expressprinting本身提供了stringGrid的link，stringgrid继承自Tcustomgrid，而Dbgrideh也是继承自TcustomGrid，如果要为dbgrideh写一个link，与stringgrid的link应该有异曲同工之处。打开TStddxGridReportLink的代码，果不然，它的父类TCustomdxGridReportLink就是专门针对TcustomGrid的打印而写的。阅读TCustomdxGridReportLink的代码，发现它是针对像StringGrid这样的静态表格而写的，而DbgridEh是基于dataset的动态表格，在处理上还是稍有不同。TCustomdxGridReportLink的上级是TAbstractdxGridReportLink，从名称可以就可以知道这是专门为表格而写的一个link(devexpress 的spreadsheet的打印link也是基于TAbstractdxGridReportLink)。于是决定DbgridEh也继承自TAbstractdxGridReportLink，要继承的方法：

    function GetColCount: Integer; override;
    function GetFixedColCount: Integer; override;
    function GetFixedRowCount: Integer; override;
    function GetRowCount: Integer; override;
    function GetCellFont(ACol, ARow: Integer): TFont;override;
    function GetCellText(ACol, ARow: Integer): string; override;
   
    function GetSourceColWidth(ACol: Integer): Integer; override;
    function GetSourceRowHeight(ARow: Integer): Integer; override;

    function IsDrawBorder: Boolean; override;
    function IsDrawFixedHorzLines: Boolean; override;
    function IsDrawFixedVertLines: Boolean; override;
    function IsDrawHorzLines: Boolean; override;
    function IsDrawVertLines: Boolean; override;
    procedure ConstructReport(AReportCells: TdxReportCells); override;

public
    property DBGrid: TDBGridEH read GetDBGrid;//需要打印的DBGrideh组件

     GetCellText是取单元格内容的过程，TCustomdxGridReportLink是通过col,row坐标值来取某一单元格内容，在Dbgrideh是没办法这样取某一行、某一字段的值，经过查阅delphi的帮助，Dataset的RecNO是可以用row来定位的，GetCellText的实现如下：
function TDbGridEhReportLink.GetCellText(ACol, ARow: Integer): string;
begin
   if IsFixedCell(ACol, ARow) then
   begin
       result:=DBGrid.Columns[ACol].Title.Caption;
   end else
   begin
         DBGrid.DataSource.DataSet.RecNo:=ARow;
         Result:=DBGrid.DataSource.DataSet.fieldbyname(DBGrid.Columns[ACol].FieldName).AsString;
   end;
end;
GetRowCount是取表格所有的行，相对于DbGrideh而言，应该是记录集的Recordcount，再加上标题行，实现如下：
function TDbGridEhReportLink.GetRowCount: Integer;
begin
     Result:=DBGrid.DataSource.DataSet.RecordCount+1;
end;

GetFixedRowCount是取表格的固定行数，Dbgrideh的固定行，就是标题行了：
function TDbGridEhReportLink.GetFixedRowCount: Integer;
begin
    Result:=1;
end;

ConstructReport是Expressprintint组件一个很重要的过程，从字面就应该知道它的作用了。具体怎么构造一个表格的打印，TAbstractdxGridReportLink已经帮我们实现了，我们只需在ConstructReport过程中写下面这几行代码，Dbgrideh的打印程序就算完成了。

if DBGrid=nil then Exit;
try
      Font:=DBGrid.Font;
      FixedFont:=DBGrid.TitleFont;
      DBGrid.DataSource.DataSet.DisableControls;
     inherited;
finally
     DBGrid.DataSource.DataSet.EnableControls;
end
   
      用Expressprinting来打印DBGridEh，相对于修改Dbgrideh本身的打印代码，从工作量上来看，是够省事了吧？而且，从扩展性上来看，Expressprinting更强得多。