Alguna API para tomar datos de la impresora
 

Hola a todos!

Alguien conoce alguna API para tomar datos de la impresora seleccionada?, específicamente necesito desde delphi 6 y trabajando con ReportBuilder, tomar el tamaño de papel que tiene configurado la impresora que selecciono para imprimir.

Muchas gracias a quien pueda ayudarme en algo, aunque sea con algún link donde buscar información.

Marina

Mas que bajar a las WinApi, te recomendaría ver si no te satisface las propiedades del objeto Printer.

Saludos!

Ya estuve viendo el objeto Printer y no encontré nada que me devuelva el tamaño del papel que tiene configurado la impresora

Marina

¿PageHeight y PageWidth?.... ¿O quieres el "Nombre" del papel relacionado con el tamaño?

En realidad necesito el nombre y es medio largo de explicar por qué

Marina

A ver si hay suerte.
Un Saludo.

Gracias por el detalle, pero alguna explicación de como usar esto?

Marina

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.

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

¿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

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

Marina

Hola a todos,

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

Saludos!

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

Marina

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.