OpenEuphoria

Re: drawLine() - was: Post Office barcodes

• Posted by Irv Mullins <irv at ELLIJAY.COM> Jan 31, 2000
• 496 views

----- Original Message -----
From: Judith Evans <camping at FLASH.NET>
To: <EUPHORIA at LISTSERV.MUOHIO.EDU>
Sent: Monday, January 31, 2000 12:51 PM
Subject: drawLine() (was: Post Office barcodes)

> ---------------- start of code
> include win32lib.ew
> without warning
>
> integer ok
> sequence printerstuff
>
> --acquire the printer
> printerstuff=getPrinter()
> if length(printerstuff) = 0 then
>     -- user bailed out of print dialog
>     return  -- or whatever is suitable in your program
> end if
>
> --set the pen color to whatever you want e.g. Red
> setPencolor(Printer,Red)
>
> --for my barcodes I also set the Pen width
> --setPenWidth(Printer,5)    -- 5 Pixels
>
> --start the printer document and a page
> ok=startDoc("play")
> ok=startPage()
> --draw a line at x1,y1 to x2,y2
> drawLine(Printer,xcoordPixels,ycoordPixels,x2coordPixels,y2coordPixels)
> --when all lines drawn then
> ok=endPage()
> ok=endDoc()
> releasePrinter()
> --------------------end of code ------------------

Many thanks, this works fine!
Now to spiff up some of those printed reports....

Irv