Ticket por ethernet

[[basti]]

Empezado por dfarias

El problema esta en que genero ticket para varias impresoras simultaneamente por eso no solo tomo la predeterminada. Alguien tiene algun ejemplo de quickreport generdado totalmente por codigo?

Perdón, me he explicado mal, me refería a que AssignPrn utiliza la impresora que tienes seleccionada en el objeto Printer, no la impresora por defecto de Windows.

Código Delphi [-]
procedure CambiarImpresora(nombre: string);
var
  i : integer;
  pr : TPrinter;
begin
  pr := TPrinter.Create;
  for i := 0 to pr.Printers.Count - 1 do
  begin
    if  nombre = pr.Printers[i] then
      printer.PrinterIndex := i;
  end;

end;

procedure Imprimir;
var
  f : TextFile;
begin
  CambiarImpresora('Impresora Tickets en red');
  AssignPrn(f);
  rewrite(f);
  writeln(f, 'Imprimiendo en Impresora de tickets en red');
  CloseFile(f);
end;