Foros Club Delphi - Seleccionar Bandeja en Fastreport

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Impresión (https://www.clubdelphi.com/foros/forumdisplay.php?f=4)

- - Seleccionar Bandeja en Fastreport (https://www.clubdelphi.com/foros/showthread.php?t=74261)

Seleccionar Bandeja en Fastreport

buenas,
estoy intentando seleccionar diferentes bandejas de impresión con fastreport
el tema es que en su dia lo probé en una impresora determinada y funcionaba :confused:, no creo que dependa de la impresora, las constantes (dmbin_auto,dmbin_manual) etc, son códigos creo que universales,
, si alguien puede ayudarme, se lo agradeceria...
ejecuto este código:

Cita:

with TfrxReportPage(fr.Pages[0]) do
begin
Bin := bandejafr; // DMBIN_AUTO;
BinOtherPages := bandejafr; // DMBIN_AUTO;
end;

function Bandejafr: Integer;
begin
result:=DMBIN_AUTO;
case CBBandejas.ItemIndex of
0: result:=DMBIN_AUTO;
1: result:=DMBIN_UPPER;
2: result:=DMBIN_MIDDLE;
3: result:=DMBIN_LOWER;
4: result:=DMBIN_TRACTOR;
5: result:=DMBIN_MANUAL;
6: result:=DMBIN_ENVELOPE;
7: result:=DMBIN_ENVMANUAL;
8: result:=DMBIN_SMALLFMT;
9: result:=DMBIN_LARGEFMT;
10: result:=DMBIN_LARGECAPACITY;
11: result:=DMBIN_CASSETTE;
12: result:=DMBIN_FIRST;
13: result:=DMBIN_LAST;
end;
end;

saludos....

Hola.

Siento no poder ayudarte porque no uso fastreport pero una cosa que podrías hacer si no encuentras la solución es crear dos impresoras en el windows, una con una bandeja y otra con la otra para desviar la impresión a una u otra según te interese.

Saludos

Cita:

Empezado por newtron (Mensaje 403017)

Gracias por contestar,,
al final lo pude solucionar,, pongo aquí el código por si a alguien le puede servir:

Cita:

frxPrinters.PrinterIndex := frxPrinters.IndexOf(fr.PrintOptions.Printer);
TfrxReportPage(frxReport1.Pages[1]).Bin := Fconfig_impresora.bandejafr;
TfrxReportPage(frxReport1.Pages[1]).BinOtherPages :=
TfrxReportPage(frxReport1.Pages[1]).Bin;

la función bandejafr esta reflejada en un post anterior.

saludos...