Alguna API para tomar datos de la impresora

[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.