Ukážka konverzie PRINT
Je to jednoduché, doplnením jedného riadku DCPRINT.CH a prefixov DC* vznikne pravá Windows tlačová zostava, ktorú môžete vytlačiť na ľubovoľnej lokálnej i sieťovej tlačiarni a samozrejme predtým si ju prezrieť aj na obrazovke.
Pozrime sa na typický príklad, a to PRINT. Najskôr je ukážka Clipper-ovského kódu a potom Xbase++ kódu s využitým knižnice eXpress++.
Clipper alebo Xbase++ v textovom režime
// BOF TEST.PRG
Function Main()
Local nRow := 1
Use TEST Alias TEST Exclusive
Set Device To PRINT
Do While TEST->( ! Eof() )
@ nRow, 2 SAY TEST->MENO
TEST->( dbSkip() )
nRow ++
EndDo
Set Device To SCREEN
Use
*
// EOF TEST.PRG
Xbase++ s eXpress++ v grafickom režime
// BOF TEST.PRG
#include "DCPRINT.CH" // toto je čarovná formulka !!!
Function Main()
Local nRow := 1, oPrinter
Use TEST Alias TEST Exclusive
DCPRINT ON To oPrinter PREVIEW
Do While TEST->( ! Eof() )
@ nRow, 2 DCPRINT SAY TEST->MENO
TEST->( dbSkip() )
nRow ++
EndDo
DCPRINT OFF
Use
*
// EOF TEST.PRG
Štruktúra tlačovej zostavy sa nezmenila, iba syntax niekoľkých príkazov si vyžiadal drobnú zmenu ako napr.
| Z | Na |
| --------------------------- | ----------------------------------- |
| SET DEVICE TO PRINT | DCPRINT ON [ TO <oPrinter> ] |
| SET PRINT ON | DCPRINT ON [ TO <oPrinter> ] |
| @ <nRow>,<nCol> SAY <cText> | @ <nRow>,<nCol> DCPRINT SAY <cText> |
| EJECT | DCPRINT EJECT |
| SET DEVICE TO SCREEN | DCPRINT OFF |
| ?/?? <cText> | DCPRINT ?/?? <cText> |
Niektoré z ďalších príkazov, ktoré môžu byť pridané do tlačovej zostavy na vylepšenie Vášho výstupu, ako napr.
DCPRINT FONT <cFontName>
@ <nSrow>,<nSCol>,<nERow>,<nECol> DCPRINT BOX <OPTIONS>
@ <nSrow>,<nSCol>,<nERow>,<nECol> DCPRINT BITMAP <cBitMap>
Nákupný košík
