Printing to my Printer - Printable Version

Code: (Select All)

'NOTE: THIS ROUTINE DOESN'T WORK ... SUPPOSTED HAVE A WHITE BACKGROUND BUT GETTING AN ALL BLACK INK PAGE





'Printing on the Printer - an example using "_PrintImage" command

'Assumes a menu where an option to print to printer is the letter "p" or "P"



DIM img AS LONG

DIM Page AS LONG



PageScale = 10

PageHeight = 297 * PageScale

PageWidth = 210 * PageScale



Page& = _NEWIMAGE(PageWidth, PageHeight, 32)



a$ = "P"

Text$ = "The Rain in Spain falls mainly in the Plain."

PRINT

PRINT

PRINT Text$ 'This text is printing to the screen ok

IF a$ = "p" OR a$ = "P" THEN

    IF img& <> 0 THEN _FREEIMAGE (img&)

    _DEST Page& ' This is meant to capture the PRINTER data, making the size of the print the same size as the typical paper found in the printer and set the focus to the printer

    CLS , _RGB32(255, 255, 255) ' Insterestingly, this CLS does not Clear the computer screen but setting the RGB color to white seems to NEED Cls plus the comma, _RGB(255,255,255) on it's own generates an error

    '                             according to the _PRINTIMAGE wiki , this line sets a white background

    '.....I think things go wrong from here on down. .....

    _DEST 0 ' This is supposed to set the focus on the computer screen

    _PRINTSTRING (1, 1), Text$ 'This re-writes the phrase to the computer screen, so the phrase is written once at line 22 and again here

    img& = _COPYIMAGE(0) ' This is supposed to capture the computer screen where the phrase is written twice



    _PRINTIMAGE img& ' this command is supposed to send the img just captured to the printer

    _DELAY 5



END IF

Code: (Select All)

'NOTE: THIS ROUTINE DOESN'T WORK ... SUPPOSTED HAVE A WHITE BACKGROUND BUT GETTING AN ALL BLACK INK PAGE





'Printing on the Printer - an example using "_PrintImage" command

'Assumes a menu where an option to print to printer is the letter "p" or "P"



Dim img As Long

Dim Page As Long

Screen _NewImage(800, 600, 32)



PageScale = 2

PageHeight = 297 * PageScale

PageWidth = 210 * PageScale

Page& = _NewImage(PageWidth, PageHeight, 32) ' Page& ready to take an image



a$ = "P"

Text$ = "The Rain in Spain falls mainly in the Plain."

Color _RGB32(0, 0, 0), _RGB32(255, 255, 255)

Cls

Print

Print

Print Text$ 'This text is printing to the screen ok <<<< really? was it black on white back ground?





If a$ = "p" Or a$ = "P" Then ' print it

    ' screen image to page

    _PutImage , 0, Page&

    ' now check out page&

    Screen _NewImage(PageWidth, PageHeight, 32)

    _PutImage , Page&, 0



    _PrintString (10, 297 - 8), "Does this preview look OK? y/n"

    k$ = InKey$

    While k$ <> "y" And k$ <> "n"

        k$ = InKey$

    Wend

    If k$ = "y" Then

        PageScale = 10

        PageHeight = 297 * PageScale

        PageWidth = 210 * PageScale

        Page2& = _NewImage(PageWidth, PageHeight, 32) ' Page& ready to take an image

        _PutImage , Page&, Page2&

        _PrintImage Page2& ' this command is supposed to send the img just captured to the printer

    End If

End If