Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : ADVANCED.ZIP
Filename : PRINTDI2.PRG

**************************************************** PRINTDIR.PRG
*
* Print directory for Membership System.
* Called from modified REPORTS.PRG.

*------- Initialize LineCount and Title variables.
LineCount = 4
PageCount = 1
Title = "Membership Directory"

*------- Start at top of database.
GO TOP

*------- Set printer on and print title.
IF Printer = "Y"
*----------------- Allow for printer abort.
CLEAR
@ 23,1 SAY "Press any key to abort print job"
CLEAR TYPEAHEAD
ON KEY DO PrinStop
SET CONSOLE OFF
SET PRINT ON
ENDIF
*------- Print title.
? Title + SPACE(35) + DTOC(DATE()) + " Page " + STR(PageCount,2)
? ULine
?
?

*------- Loop through each record in database.
DO WHILE .NOT. EOF()
? TRIM(LName)+" " + FName
? Company
? Address+SPACE(10)+Phone
FullCsz = TRIM(City) + ", "+State+" "+Zip
FullCSZ = FullCSZ + SPACE(40-LEN(FullCSZ))+DTOC(Exp_Date)
? FullCSZ
?
LineCount = LineCount + 5

*--- If report being printer, handle pagination.
IF Printer = "Y" .AND. LineCount >= 50
EJECT
PageCount = PageCount + 1
? Title + SPACE(35) + DTOC(DATE()) + " Page " + STR(PageCount,2)
? ULine
?
?
LineCount = 0
ENDIF
SKIP
ENDDO (while not eof)

*------- Done; Return to main menu.
SET CONSOLE ON
ON KEY
CLEAR TYPEAHEAD
SET PRINT OFF
RETURN