Class TPrintDlg (unit Print) |
Inherits from
TForm
procedure BitBtn1Click(Sender: TObject);
setup
procedure BitBtn2Click(Sender: TObject);
*buttons*********************************************************************} {print
procedure BitBtn3Click(Sender: TObject);
close
procedure BitBtn4Click(Sender: TObject);
help
procedure BitBtn5Click(Sender: TObject);
conditions
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
*form's preferences
procedure CustInitialise;
*custom routines*************************************************************} {initialise
procedure printColumnNames;
print field names as column headings
procedure printFooter;
print footer
procedure printHeader;
print header
procedure printLine(items: TStringList);
print record from table
procedure printSubHeader;
print header
procedure printTab;
pixels in 1/10 of an inch used for line spacing print table
procedure SetColumns;
set field array
procedure SetQuery;
set query
Bevel1 : TBevel;
Bevel2 : TBevel;
BitBtn1 : TBitBtn;
BitBtn2 : TBitBtn;
BitBtn3 : TBitBtn;
BitBtn4 : TBitBtn;
BitBtn5 : TBitBtn;
editCol : TEdit;
editData : TEdit;
editHead : TEdit;
editSub : TEdit;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
lblPages : TLabel;
lblRecords : TLabel;
lblTable : TLabel;
PrintDialog1 : TPrintDialog;
PrinterSetupDialog1 : TPrinterSetupDialog;
queryPrint : TQuery;
FSQL : string;
Public declarations
FTable : string;
stores initial query for TQuery
AmountPrinted : integer;
stores the line height
FAlias : string;
stores total number of pages
FColumns : array[0..49] of string;
stores sub-heading
FHeader : string;
stores alias name
FOrientation : TPrinterOrientation;
array to store field names
FPrinting : boolean;
Private declarations
FStrings : TStrings;
store printer orientation on load
FSubHeader : string;
stores heading
FTotPages : integer;
stores bool - if true then PrintTab proc will print
LineHeight : Integer;
stores Pixels per inch
PixelsInInchx : integer;
TenthsOfInchPixelsY : integer;
stores amount, in pixels, printed on a page
procedure BitBtn1Click(Sender: TObject);
setup
procedure BitBtn2Click(Sender: TObject);
*buttons*********************************************************************} {print
procedure BitBtn3Click(Sender: TObject);
close
procedure BitBtn4Click(Sender: TObject);
help
procedure BitBtn5Click(Sender: TObject);
conditions
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
*form's preferences
procedure CustInitialise;
*custom routines*************************************************************} {initialise
procedure printColumnNames;
print field names as column headings
procedure printFooter;
print footer
procedure printHeader;
print header
procedure printLine(items: TStringList);
print record from table
procedure printSubHeader;
print header
procedure printTab;
pixels in 1/10 of an inch used for line spacing
print table
procedure SetColumns;
set field array
procedure SetQuery;
set query
Bevel1 : TBevel;
Bevel2 : TBevel;
BitBtn1 : TBitBtn;
BitBtn2 : TBitBtn;
BitBtn3 : TBitBtn;
BitBtn4 : TBitBtn;
BitBtn5 : TBitBtn;
editCol : TEdit;
editData : TEdit;
editHead : TEdit;
editSub : TEdit;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
lblPages : TLabel;
lblRecords : TLabel;
lblTable : TLabel;
PrintDialog1 : TPrintDialog;
PrinterSetupDialog1 : TPrinterSetupDialog;
queryPrint : TQuery;
FSQL : string;
Public declarations
FTable : string;
stores initial query for TQuery
AmountPrinted : integer;
stores the line height
FAlias : string;
stores total number of pages
FColumns : array[0..49] of string;
stores sub-heading
FHeader : string;
stores alias name
FOrientation : TPrinterOrientation;
array to store field names
FPrinting : boolean;
Private declarations
FStrings : TStrings;
store printer orientation on load
FSubHeader : string;
stores heading
FTotPages : integer;
stores bool - if true then PrintTab proc will print
LineHeight : Integer;
stores Pixels per inch
PixelsInInchx : integer;
TenthsOfInchPixelsY : integer;
stores amount, in pixels, printed on a page