1. Re: drawLine() - was: Post Office barcodes
----- 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
