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;



_______________________________________________
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal

Reply via email to