Hi rebols, There doesn't seem to be much in the archives about printing to a real printer (in my case a HP LaserJet III). I found the following code from Andrew, but I can't seem to get it to work. Perhaps my problem is that my printer is on port lpr2:
I thought that I had this figured out once, but I can't seem to find the script that used it. I'm using Windows 2000, but also would like to do it running under Linux. For my particular need right now I want to print plain text directly to the printer. I would rather not have to make html or pdf files first. Louis At 09:19 AM 1/9/2002 +1300, you wrote: >Philippe wrote: > > I want to know if it's possible to user a printer from a rebol program ? > >Try something like this: > >REBOL [ > Name: 'Printer > Title: "Printer" > File: %"Printer.r" > Author: "Andrew Martin" > eMail: [EMAIL PROTECTED] > Date: 27/Sep/2001 > Example: [ > Printer "This goes to the printer!" > Printer/Page "This prints this line and feeds a page!" > ] > ] > >Printer: func [ > "Sends text to printer on //prn." > [catch] > Text [string!] "The text to be printed." > /Page "Append Carriage Return (CR) and Page Feed." > ][ > throw-on-error [ > secure [ > %//prn [allow write] > ] > write %//prn Text > if Page [write/binary %//prn "^(0D)^(page)"] > Text > ] > ] > >] > >It works OK on Windows PCs. For other computers, you might have to change >the %//PRN to something else. > >Andrew Martin >ICQ: 26227169 http://valley.150m.com/ >-><- > > > >-- >To unsubscribe from this list, please send an email to >[EMAIL PROTECTED] with "unsubscribe" in the >subject, without the quotes. -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
