Alguna API para tomar datos de la impresora

[marcoszorrilla]

Yo uso esta función y le paso simplemente las medidas:

Código Delphi [-]
  
  
  procedure SetPaperSize (intAlto,intAncho : Integer);
  {aqui se define el tamaño del papel}
  var
     ADevice, ADriver, APort : array [0..255] of Char;
     ADeviceMode : THandle;
     DevMode : PDevMode;
  begin
     with Printer do
        begin
           GetPrinter (ADevice, ADriver, APort, ADeviceMode);
           SetPrinter (ADevice, ADriver, APort, 0);
           GetPrinter (ADevice, ADriver, APort, ADeviceMode);
           DevMode := GlobalLock(ADeviceMode);
           if not Assigned(DevMode) then
              ShowMessage('Ha entrado en -> if not Assigned(DevMode) ...')
           else
              begin
                 with DevMode^ do
                    begin
                       dmPaperSize:= DMPAPER_User;
                       dmPaperLength := intAlto;
                       dmPaperWidth:= intAncho;
                       dmFields := dmFields or DM_PAPERSIZE or 
 DM_PAPERLength or DM_PAPERWidth;
                    end;
                 GlobalUnLock(ADeviceMode);
                 SetPrinter(ADevice, ADriver, APort, ADeviceMode);
             end;
        end;
  end;

Las medidas deben pasarsen en 0,1 mm, es decir por ejemplo un tamaño de 21cm debiera pasarse como 2100.

Un Saludo.

[Marina]

Marcos, gracias por tu interés. Ya he visto esa función tuya en otro hilo. Pero no me sirve para lo que yo necesito. Paso a explicarte en detalle el problema que tengo.
En mi aplicación todos los reportes están con ReportBuilder. En las propiedades de cada reporte tengo asignada la impresora predeterminada (default) y tamaño de papel Fanfold 8.5 x 12, que es el que usa la mayoría de mis clientes. Ocurre que tengo varios clientes que usan impresoras chorro de tinta, por lo tanto la impresora predeterminada es una Canon S450 (por ejemplo), y usan papel A4. El ReportBuilder automáticamente manda el tamaño de papel Fanfold sin importar la impresora de que se trate, y si quiero cambiar a A4 hay que entrar en propiedades de la impresora (al momento de imprimir) - papel y elegir A4; esto por cada informe a emitir, y los clientes no lo quieren hacer. Si no lo hacen, pueden ocurrir varias cosas dependiendo del Windows y la impresora de que se trate, por ejemplo que en el informe se coma algunos renglones o que genere páginas indefinidamente y no imprima nada.
Lo que yo quiero hacer es lo siguiente: una vez que se seleccionó la impresora con la que va a imprimir quiero tomar el tamaño de papel que tiene asignado esa impresora cuando se la instaló en el windows, con eso cambiar las propiedades de mi reporte y así que la impresión salga bien.
Te cuento que he estado viendo el código fuente del reportbuilder y se me ha hecho tal maraña en la cabeza que no se para donde disparar.
Espero haber sido lo suficientemente clara.

Un saludo
Marina

[roman]

¿ReportBuilder no te permite especificar el tamaño del papel mediante su ancho y altura? Porque de ser así con lo que Federico te dijo desde un principio debería ser suficiente.

// Saludos

[Marina]

El ReportBuilder sí me permite configurar el tamaño del papel, por eso es que tengo el problema.

Marina

[Gydba]

Hola a todos,

Viendo la pregunta original del hilo: No te sirve la API DeviceCapabilities?

Saludos!

[Marina]

No la conozco. Podrías darme algún ejemplo o una guía?

Marina

[marcoszorrilla]

A ver si esto te sirve:

Código Delphi [-]
 
 function GetPageWidth: Integer;
 begin
   Result := GetDeviceCaps(Printer.Handle, PHYSICALWIDTH)
 end;
 
 function GetPageHeight: Integer;
 begin
   Result := GetDeviceCaps(Printer.Handle, PHYSICALHEIGHT)
 end;
 
 function GetPageOffsetLeft: Integer;
 begin
   Result := GetDeviceCaps(Printer.Handle, PHYSICALOFFSETX)
 end;
 
 function GetPageOffsetRight: Integer;
 begin
   Result := GetPageWidth - GetPageOffsetLeft - GetDeviceCaps(Printer.Handle, HORZRES)
 end;
 
 function GetPageOffsetTop: Integer;
 begin
   Result := GetDeviceCaps(Printer.Handle, PHYSICALOFFSETY)
 end;
 
 function GetPageOffsetBottom: Integer;
 begin
   Result := GetPageHeight - GetPageOffsetTop - GetDeviceCaps(Printer.Handle, VERTRES)
 end;
 
 function GetPixelsPerInchX: Integer;
 begin
   Result := GetDeviceCaps(Printer.Handle, LOGPIXELSX)
 end;
 
 function GetPixelsPerInchY: Integer;
 begin
   Result := GetDeviceCaps(Printer.Handle, LOGPIXELSY)
 end;
 
 procedure TConfImpresora.Button1Click(Sender: TObject);
 begin
 AnchoPagina.text:=inTtostr(GetPageWidth);
 AltoPagina.text:=inTtostr(GetPageHeight);
 MargenIz.text:=inTtostr(GetPageOffsetLeft);
 MargenDe.text:=inTtostr(GetPageOffsetRight);
 MargenTop.text:=inTtostr(GetPageOffsetTop);
 MargenBottom.text:=inTtostr(GetPageOffsetBottom);
 PiXelsPinchX.text:=inTtostr(GetPixelsPerInchX);
 PiXelsPinchY.text:=inTtostr(GetPixelsPerInchY);
 end;

Un Saludo.