Printing to my Printer

[OldMoses]

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.