Hola vicvil.
Te pongo un ejemplo en el que tenes que seleccionar la impresora desde un combo (para descartar cualquier error de tipeo) y luego imprime una línea de texto mediante un
TButton:
Código Delphi
[-]
...
uses Printers;
procedure TForm1.FormCreate(Sender: TObject);
begin
ComboBox1.Items.Assign(Printer.Printers);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
prn: TextFile;
begin
if ComboBox1.ItemIndex <> -1 then
try
Printer.PrinterIndex := Printer.Printers.IndexOf(ComboBox1.Text);
AssignPrn(prn);
Rewrite(prn);
Writeln(prn,'***** PRUEBA DE IMPRESION DE TEXTO *****');
CloseFile(prn);
except
on E : Exception do
ShowMessage(E.Message);
end;
end;
...
Saludos.