Cet article illustre la méthode d'implémentation du programme d'impression Delphi avec des exemples. Cet exemple peut détecter toutes les imprimantes installées dans le système et énumérer ces imprimantes. Le code de fonction principal est très simple et facile à lire et à comprendre pour tout le monde.
Les principaux codes de fonction sont les suivants :
unité Unit1 ; interface utilise Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Printers, XPMan ; tapez TForm1 = class(TForm) Button1 : TButton1 : TGroupBox Memo1 : TMemo Button2 ; ; procédure Button1Click(Expéditeur : procédure TObject); Button2Click(Expéditeur : TObject); private { Déclarations privées } public { Déclarations publiques } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);begin Memo1.Clear; .Assign(Printer.Printers); si trim(memo1.Text) = '' alors commencez showmessage('Aucune imprimante installée !'); end;end;procedure TForm1.Button2Click(Expéditeur : TObject);begin Close;end;end.