Este artigo ilustra o método de implementação do programa de impressão Delphi com exemplos. Este exemplo pode detectar todas as impressoras instaladas no sistema e enumerar essas impressoras. O código da função principal é muito simples e fácil de ler e entender.
Os principais códigos de função são os seguintes:
unidade Unit1;interfacea Windows, Mensagens, SysUtils, Variantes, Classes, Gráficos, Controles, Formulários, Diálogos, StdCtrls,Impressoras, XPMan;tipo TForm1 = class(TForm) Button1: TButton1: TGroupBox; ; procedimento Button1Click(Remetente: procedimento TObject); Button2Click(Sender: TObject); private { Declarações privadas } public { Declarações públicas } end;var Form1: TForm1;implementação{$R *.dfm}procedimento TForm1.Button1Click(Sender: TObject);begin Memo1.Clear; .Assign(Printer.Printers); if trim(memo1.Text) = '' então comece showmessage('Nenhuma impressora instalada!'); end;end;procedure TForm1.Button2Click(Sender: TObject);begin Close;end;end.