Este artículo ilustra el método de implementación del programa de impresión Delphi con ejemplos. Este ejemplo puede detectar todas las impresoras instaladas en el sistema y enumerarlas. El código de función principal es muy simple y fácil de leer y comprender para todos.
Los códigos de función principales son los siguientes:
unidad Unidad1; interfaz utiliza Windows, Mensajes, SysUtils, Variantes, Clases, Gráficos, Controles, Formularios, Cuadros de diálogo, StdCtrls, Impresoras, XPMan; escriba TForm1 = clase (TForm) Botón1: TButton; ; procedimiento Button1Click(Remitente: TObject); Button2Click(Remitente: TObject); privado {Declaraciones privadas} público {Declaraciones públicas} fin;var Form1: TForm1;implementación{$R *.dfm}procedimiento TForm1.Button1Click(Remitente: TObject);begin Memo1.Clear; .Assign(Printer.Printers); si trim(memo1.Text) = '' entonces comienza showmessage('¡No hay impresora instalada!'); end;end;procedimiento TForm1.Button2Click(Remitente: TObject);begin Close;end;end.