Tracy

I played around this afternoon. My app for an International Courier Company demands that an Airway Bill can be printed for an individual consignment entry as and when needed (about 40% of the time). There are 15 operatore on data entry and 2 Lexmark dot matrix printers. Printing blanks would a nuisance and a waste of paper (6 part sets).

So I went back to basics. Note that there is no eject at the end of the print routine as the SET PRINTER TO takes care of that. Also I am setting the printer directly to the printer port (although the printer is actually on a newtwork pc). It worked beautifully. Hope it helps you.

Colin

select globalnew
************ "Lexmark Forms Printer 2480"
set printer to lpt1
SET PRINTER on
SET CONSOLE off


SET PRINTER FONT 'Courier New',18
? space(35)
?? docket_no
SET PRINTER FONT 'Courier New',10
? ""
? ""
? ""
? ""
? upper(left(acclient,30))
?? SPACE(2)
?? upper(accountno)
?? space(3)
?? upper(left(company,48))
? ""
? upper(left(acad1,45))
?? space(5)
?? upper(left(address1,48))

? upper(left(acad2,45))
?? space(5)
?? upper(left(address2,48))

? upper(left(acad3,45))
?? space(5)
?? upper(left(address3,48))

? upper(left(acad4,45))
?? space(5)
?? upper(left(address4,48))


? "Tel:"
?? upper(left(actel,30))
? "Contact:"
?? upper(left(accontact,30))
?? space(7)
?? upper(left(country,30))

? ""
? space(27)
?? upper(left(acjobno,10))
?? SPACE(15)
?? upper(tel)
? SPACE(50)+UPPER(LEFT(contact,30))
? ""
? ""
? ""
? ""

? Upper(left(commodity,30))
? UPPER(LEFT(notes,30))
? ""

? SPACE(45)
?? pieces picture "99999" function "Z"
? ALLTRIM(UPPER(special))
? ""
?? space(45)
?? weight picture "99999.99" function "Z"
?
?
?
?? space(50)
?? upper(left(valuecust,10))


SET PRINTER off
SET PRINTER to

SET CONSOLE on