通用打印模块DBGridEh

最新推荐文章于 2019-01-26 12:21:00 发布

dduamn7534

最新推荐文章于 2019-01-26 12:21:00 发布

阅读量79

点赞数

原文链接：http://www.cnblogs.com/piaoliuxia/archive/2008/09/07/1937310.html

版权

{*******************************************************}
{                                                       }
{       通用打印模块                                    }
{                                                       }
{       版权所有 (C) 2008 咏南工作室（陈新光）          }
{                                                       }
{*******************************************************}

unit uPrint;

interface

uses
DBGridEh,PrnDbgeh,SysUtils,Graphics,Forms,Printers,windows;

procedure Prnt(AGrid:TDBGridEh;AOwner:Tform;APageHeader:string='';
ALineType:TPageColontitleLineType=pcltnon);

implementation

//==============================================================================
// linetype取值{pcltDoubleLine;pcltsingleline;pcltnon}
// AOwner:TForm TPrintDBGridEh.Create(AOwner); 负责TPrintDBGridEh类对象FREE
// TPrinterOrientation = (poPortrait, poLandscape); 纸张竖、横
//==============================================================================

procedure Prnt(AGrid:TDBGridEh;AOwner:TForm;APageHeader:string='';
ALineType:TPageColontitleLineType=pcltnon);
var
prn:TPrintDBGridEh;
begin
if AGrid.DataSource.DataSet.IsEmpty then exit;
prn:=TPrintDBGridEh.Create(AOwner);
with prn.PageHeader do
begin
    Font.Name:='宋体';
    Font.Size:=12;
    Font.Style:=[fsbold];
    LineType:=ALineType;
    CenterText.Text:=APageHeader;
end;
prn.DBGridEh:=AGrid;
prn.Preview;
end;