Hi Bo,
Here are the changes I made to get it (sort of) working here.
.
.
.
print "Define WritePrinter"
writeprinter: make routine! [
"Write Printer"
hprinter [int]
lpdata [char*]
dwcount [int]
dwbyteswritten [char*] ;[int] This is another return value
return: [int]
] winspool "WritePrinter"
.
.
.
byteswritten: null-buff 4
; I had to add the form-feed here to make it flush on my laserjet.
; I'm not sure why the end-page stuff isn't doing it like I think it should.
; I could make it write to a file just fine without the form-feed.
testdata: {The quick brown fox jumped over the lazy dogs.^L}
print "Call WritePrinter"
either zero? writeprinter hprinter testdata length? testdata byteswritten [
print "FAIL!"
end-page-printer
end-doc-printer
close-printer
][print "Success"]
byteswritten: to-integer to-binary head reverse byteswritten
.
.
.
--Gregg
--
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with "unsubscribe" in the
subject, without the quotes.
