Dbgrideh general printing

{*************************************** ****************}
{}
{General printing module}
{}
{Copyright (c) 2008 yongnan Studio (Chen XinGuang )}
{}
{*************************************** ****************}

Unit uprint;

Interface

Uses
Dbgrideh, prndbgeh, sysutils, graphics, forms, printers, windows;

Procedure prnt (agrid: tdbgrideh; aowner: tform; apageheader: String = '';
Alinetype: tpagecolontitlelinetype = pcltnon );

Implementation

// ================================================ ==========================================================
// The value of Linetype is {pcltdoubleline; pcltsingleline; pcltnon}
// Aowner: tform tprintdbgrideh. Create (aowner); responsible for tprintdbgrideh Class Object free
// Tprinterorientation = (poportrait, polandscape); vertical and horizontal paper
// ================================================ ==========================================================

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;

End.