[fpc-pascal] USB Printers

[Tom York]

Disregard my prior post, it is Delphi specific.  I did find this one.

(http://www.freepascal.org/cgi-bin/viewcvs.cgi/trunk/components/printers/samples/rawmode/unitmain.pas?root=lazarus&rev=10129&view=markup)

procedure WritePrinter;
var
  sTemp: String;
  Written: Integer;
begin
  Written := 0;
  sTemp := 'Test String';
  Printer.Title := Caption;
  Printer.RawMode := True;
  Printer.BeginDoc;
  Printer.Write(sTemp[1], Length(sTemp), Written);
  Printer.EndDoc;
end;