Impresora predeterminada?

[danytorres]

Cadetil, probe lo que me dices pero cuando saco el reporte me sigue sacando la impresora que originalmente estaba como predeterminada. que hago.

[__cadetill]

Veamos

Nosotros tenemos varias impresoras y, según el listado, éste ha de salir por una o por la otra. ¿Cómo lo hacemos? Pues bien, tenemos un archivo INI más o menos con esta estructura:

[IMPRESORAS]
ETIQUETAS=SP40
LISTADO_STOCKS=Lexmark Optra W810
A3=SuperLexmark
.....

Me imagino que lo entiendes, pero sino, lo que ponemos es un nombre de variable (etiquets, listado_stocks, a3,...) y el nombre de la impresora por el cual lo queremos imprimir (el que ves en la pantalla de impresoras instaladas en el sistema).
Luego, me creé la siguiente función con la que recupero la impresora deseada

...
const
  PrintersIni = 'c:\ImpJulia\Printers.ini';
.....

function TBaseListado.GetImpresora(Impresora: string) : integer;
var
  Ini : TIniFile;
  Imp : string;
  i : integer;
begin
  if FileExists(PrintersIni) then
  begin
    Ini := TIniFile.Create(PrintersIni);
    Imp := Ini.ReadString('IMPRESORAS', Impresora, '');
    Ini.Free;
  end;

  if Imp = '' then
    Result := -1
  else
  begin
    // buscamos la impresora en las instaladas y devolvemos su índice
    for i := 0 to Printer.Printers.Count - 1 do
      if Pos(Imp, Printer.Printers[i]) <> 0 then Break;
    Result := i;
  end;
end;

Y luego, desde algún lugar y, antes de hacer el Print o Preview del listado se hace la asignación al QuickReport

var
  Indice: integer;
begin
  .....
  Indice := GetImpresora('A3');
  if Indice <> -1 then
    Report.PrinterSettings.PrinterIndex := Indice;
  .....
  QuickReport1.Print; // o QuickReport1.Preview;

La función tiene un pequeño "bug" que no he tenido ni tiempo ni ganas de arreglar. Y es que si la impresora está definida pero no está configurada, petaría. Este pequeño detalle ya te lo dejo a ti (si lo quieres solucionar)

Bueno, espero que ahora sí puedas hacer lo que quieres

[danytorres]

Gracias por responder cadetil, el codigo funciona muy bien en Qreport pero en Rave 5 no cuando ejecuto un repote de rave la impresora que me sale es la que esta originalmente predeterminada por win?

[__cadetill]

cierto, que era para Rave

Pues no he trabajado nunca con Rave. Mira a ver si hay alguna manera de indicarle el índice de una impresora (estilo QR). La verdad, no te sabría decir

[danytorres]

Gracias de todas maneras cadetil.

El detalle esta que no quiero utilizar Qreport quiero seguir con Rave 5 agradesco a quien me pueda dar una mano