OpenEuphoria

Re: Post Office barcodes

• Posted by Judith Evans <camping at FLASH.NET> Jan 31, 2000
• 517 views

Irv,

I presume you mean on the printer. If not just skip some code and use Screen
where I used Printer in drawLine.

---------------- 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
--when all lines drawn then
ok=endPage()
ok=endDoc()
releasePrinter()
--------------------end of code ------------------


On Mon, 31 Jan 2000 08:41:33 -0500, Irv Mullins <irv at ELLIJAY.COM> wrote:
>
>I tried drawLine() without success. Could you share some code that
>demonstrates
>how to use it?
>
>Thanks,
>Irv