Unit Print

Designer: Craig Ward, 100554.2072@compuserve.com Date: 17/1/96 Version: 1.1 Function: Print Utility DLL. Calls: There are several calls available. These are as follows: ShowPrintDlg(pAlias, pTable, pQuery, pHeader, pSub, pHelp: pChar); - shows the print dialog HidePrintDlg(pAlias, pTable, pQuery, pHeader, pSub, pHelp: pChar); - does not show the dilalog, and initiates the print routine Notes: The edit boxes are not visible at run-time. These are used to set the fonts for the header and sub-header. The size of the array to store field names is 50, so only tables with 50 or less fields will work in conjunction with this DLL, unless you increase these values. Extra: The printing routines are taken from Xavier Pacheco and Steve Teixeira's "Delphi Developer's Guide", which is available from SAMS Publishing. Great book, with some really useful examples. All criticisms, help and general advice is greatly welcomed.

Classes

TPrintDlg -

Functions

HidePrintDlg - initialise
ShowPrintDlg - size of field array} {exported procedures

*exported routines

Types

Constants

iArraySize

Variables

bClipping
iWidth
PrintDlg


Functions


procedure HidePrintDlg(pAlias, pTable, pQuery, pHeader, pSub, pHelp: pChar);

initialise

procedure ShowPrintDlg(pAlias, pTable, pQuery, pHeader, pSub, pHelp: pChar);

size of field array} {exported procedures

*exported routines


Types


Constants

iArraySize = 49

width used for columns

Variables

bClipping : boolean

iWidth : integer

bool to determine if Clipping message has been displayed

PrintDlg : TPrintDlg

stores table name