| Class TPrintDlg (unit Print) |
TForm
| Constructors |
| Functions |
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure CustInitialise;
procedure printColumnNames;
procedure printFooter;
procedure printHeader;
procedure printLine(items: TStringList);
procedure printSubHeader;
procedure printTab;print table
procedure SetColumns;
procedure SetQuery;| 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;
FTable : string;
AmountPrinted : integer;
FAlias : string;
FColumns : array[0..49] of string;
FHeader : string;
FOrientation : TPrinterOrientation;
FPrinting : boolean;
FStrings : TStrings;
FSubHeader : string;
FTotPages : integer;
LineHeight : Integer;
PixelsInInchx : integer;
TenthsOfInchPixelsY : integer;| 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