This article illustrates the implementation method of Delphi printing program with examples. This example can detect all printers installed in the system and enumerate these printers. The main function code is very simple and easy for everyone to read and understand.
The main function codes are as follows:
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,Printers, XPMan;type TForm1 = class(TForm) Button1: TButton; GroupBox1: TGroupBox; Memo1: TMemo; Button2: TButton ; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);begin Memo1.Clear; memo1.Lines .Assign(Printer.Printers); if trim(memo1.Text) = '' then begin showmessage('No printer installed!'); end;end;procedure TForm1.Button2Click(Sender: TObject);begin Close;end;end.