🚀 go-pugleaf

hswong wrote:

> Can you give some coding example? Thank you.

Of TRawPrint? This is from the source:

MyPrinter := TRawPrint.Create(nil);
MyPrinter.DeviceName := 'HP LaserJet Series II';
MyPrinter.JobName := 'MyJob';
if MyPrinter.OpenDevice then
begin
  MyPrinter.WriteString('This is page 1');
  MyPrinter.NewPage;
  MyPrinter.WriteString('This is page 2');
  MyPrinter.CloseDevice;
end;
MyPrinter.Free;

To print stuff on your Zebra printer you'll have to WriteString() the text 
below: (The example shows a IATA Cargo label)

^FX IATA 606 Label for Zebra printer with 8 dots/mm ^FS
^XA
^FX Set units to dots, origin to 24,24 dots ^FS
^MUD^LH32,24
^FO0,16^A0,24^FR^FDAIRLINE^FS
^FO0,48^GB760,120,120^FS
^FO0,72^A0,80^FB760,,,C^FR^FD@__AIRLINE__@^FS
^FO80,200^BY5^BCN,173,N,N,N^FD>;@__AWBNO__@^FS
^FO0,392^AE,28^FB760,,,C^FD@__AWBNO__@^FS
^FO0,440^GB760,8,8^FS
^FO0,456^A0,24^FDAIR WAYBILL NO.^FS
^FO0,480^A0,96^FB760,,,C^FD@__AWBNOFMT__@^FS
^FO0,560^GB760,8,8^FS
^FO384,560^GB8,120,8^FS
^FO0,576^A0,24^FDDESTINATION^FS
^FO400,576^A0,24^FDTOTAL NO. OF PIECES^FS
^FO0,600^A0,96^FD@__DEST__@^FS
^FO400,600^A0,96^FB356,,,R^FD@__TOTAL__@^FS
^FO0,680^GB760,8,8^FS
^FO320,680^GB8,120,8^FS
^FO0,696^A0,24^FDTHIS PIECE NO.^FS
^FO336,696^A0,24^FD@__UOM__@^FS
^FO0,720^A0,96^FB300,,,R^FD@__PIECE__@^FS
^FO336,720^A0,96^FB420,,,R^FD@__WEIGHT__@^FS
^FO0,800^GB760,8,8^FS
^FO0,816^A0,24^FDCONSIGNEE ADDRESS^FS
^FO24,848^A0,32^FD@__ADDRESS1__@^FS
^FO24,888^A0,32^FD@__ADDRESS2__@^FS
^FO24,928^A0,32^FD@__ADDRESS3__@^FS
^FO24,968^A0,32^FD@__ADDRESS4__@^FS
^FO24,1008^A0,32^FD@__ADDRESS5__@^FS



-- 
Ben