В этой статье на примерах показан метод реализации программы печати Delphi. В этом примере можно обнаружить все принтеры, установленные в системе, и перечислить эти принтеры. Код основной функции очень прост и удобен для чтения и понимания.
Основные коды функций следующие:
модуль Unit1; интерфейсы используют Windows, сообщения, SysUtils, варианты, классы, графику, элементы управления, формы, диалоги, StdCtrls, принтеры, XPMan; тип TForm1 = класс (TForm) Button1: TButton; GroupBox1: TGroupBox1: TMemo Button2: TButton; ; процедура Button1Click (Отправитель: процедура TObject); Button2Click(Sender: TObject); Private { Частные объявления } public { Публичные объявления } end;var Form1: TForm1;реализация {$R *.dfm}процедура TForm1.Button1Click(Sender: TObject);begin Memo1.Clear memo1.Lines; .Assign(Printer.Printers); если обрезка(memo1.Text) = '', то начните showmessage('Принтер не установлен!'); end;end;процедура TForm1.Button2Click(Sender: TObject);begin Close;end;end.