Galahad
08-06-2011, 14:20:59
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:
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....
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:
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....