07-14-2022, 02:39 PM
I recently had occasion to print multiple pages of text from a harvest truck load database. The setup was fairly straightforward.
DO
pn% = pn% + 1
REDIM _PRESERVE pg(pn%) AS LONG
pg(pn%) = _NEWIMAGE(640, 900, 32)
_DEST pg(pn%)
COLOR &HFF000000, _RGB32(255)
CLS
'then do the line by line stuff with a for-next loop to control row LOCATE and then setting an alldone% flag when finished
'other code with in the for-next loop to control when a page breaks
LOOP UNTIL alldone%
The 640 x 900 yields a precise 80 column by 56 row relationship.
DO
pn% = pn% + 1
REDIM _PRESERVE pg(pn%) AS LONG
pg(pn%) = _NEWIMAGE(640, 900, 32)
_DEST pg(pn%)
COLOR &HFF000000, _RGB32(255)
CLS
'then do the line by line stuff with a for-next loop to control row LOCATE and then setting an alldone% flag when finished
'other code with in the for-next loop to control when a page breaks
LOOP UNTIL alldone%
The 640 x 900 yields a precise 80 column by 56 row relationship.
DO: LOOP: DO: LOOP
sha_na_na_na_na_na_na_na_na_na:
sha_na_na_na_na_na_na_na_na_na: