Predeterminar Impresora Qreport

[Coco_jac]

Hola Marcos gracias por responder, creo que me exprese mal de nuevo disculpa, mi pregunta es como puedo asignar por codigo a mi QReport una impresora, ya que la impresora la misma. Es decir que mi aplicacion busque siempre la misma impresora, asignada a mi QReport.

Gracias y espero nuevamente tus comentarios

[marcoszorrilla]

Esta es la idea:

Código Delphi [-]
DmConta.QrCaja.DisableControls;
Application.CreateForm(TfrlstConta, frLstConta);
frLstConta.ListaConta.PrinterSettings.PrinterIndex:=GetImpresora(DmAni2.ConfLptListados.value);
frLstconta.ListaConta.Prepare;

Un Saludo.

[marcoszorrilla]

Se me olvidó poner la función que me he construido para obtener la impresora:

Código Delphi [-]
Function GetImpresora(Impre:String):Integer;
Var
nCont:Integer;
lSearch:Boolean;
cNewLIne:String;
begin
lSearch:=False;
cNewLine:=Chr(10)+Chr(13);

  For nCont:=0 to Printer.Printers.Count - 1 do
  //buscamos la impresora en la lista del sistema
  begin

    if Pos(impre, Printer.Printers[nCont]) <> 0 then
    begin
    lSearch:=True;
    Result:=nCont;
    Break;
    end;

  end;

  if lSearch = False then
  begin
  Result:=-1;
  ShowMessage('Impresora no encontrada:'+cNewLine+Impre+cNewLine+'Se utilizará la predefinida.');
  end;
          
end;

Un Saludo.

[Coco_jac]

Hola Marcos, Gracias por tu ayuda. Como podria obtener el index de la impresora es decir pasarle el nombre de la impresora y me devuelva el index de esa impresora.
Gracias

[Coco_jac]

Gracias por la ayuda, se me paso este post je je je. Gracias

[marcoszorrilla]

Si te fijas es lo que hace la función GetImpresora, le pasas el nombre y te devuelve el índice.

Un Saludo.