Распечатать Canvas uses Printers; procedure PrintText(Text: string); begin with Printer do begin BeginDoc; Canvas.TextOut(5, 50, Text); EndDoc; end; end; Copyright © "DELPHI WORLD" E-mail: delphiworld@mail.ru http://www.delphiworld.narod.ru Источник получения информации: http://www.delphiworld.narod.ru
uses Printers; procedure PrintText(Text: string); begin with Printer do begin BeginDoc; Canvas.TextOut(5, 50, Text); EndDoc; end; end;