QuickReport - Seleccionar bandeja

[jlmelida]

Hola:
Yo siempre he creido que los desarrolladores de quickreport gastaron toda su materia gris en programar y no les quedó nada para documentarlo. En otras palabras: Es uno de los mejores generadores de reports pero sin duda, es el peor explicado de todos.

Como para casi todo con quickreport, te van ha hacer falta los fuentes ( o sea la versión profesional).

Si cargas QrPrntr verás como esta definida la clase TPrinterSettings, que es la que te permite definir las caracteríticas últimas de la impresion: tipo de papel, orientación y por supuesto la bandeja.


El procedure GBin es el encargado de seleccionar la badeja de la impresora:

Código Delphi [-]
 
 
 
procedure GBin; { Paper bin }
var
aBin : integer;
I : TQRBin;
 
begin
   FOutputBin := First; // default
 
   if Supported(dm_defaultsource) then
   begin
 
      aBin := DevMode^.dmDefaultSource;
 
      for I := First to Last do
 
      if cQRBinTranslate[i] = aBin then
      begin
       
         FOutputBin := I;
         exit;
      end;
 
   end;
end;

Como ves, este procedimiento encargado de seleccionar la bandeja de la impresora, es bastante oscuro.

Deberemos hacer un pequeño programa que nos diga los numeros ( fijate que aBin es un integer) de las bandejas de nuestra impresora, para poder seleccionarlas por programa. Lo dejo para otra entrega.

Saludos