在网上看了一篇文章，文章讲的很好，但不知从何下手，请高手赐教：使用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更强得多。
