Class TPrintDlg (unit Print)

Inherits from

TForm

Constructors



Functions

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

Properties

Events

Variables

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


Constructors


Functions


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


Properties


Events


Variables


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