Alguna API para tomar datos de la impresora

Marina · #1 21-09-2004

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

delphi.com.ar · #2 21-09-2004

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

Saludos!

Marina · #3 21-09-2004

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

Marina

delphi.com.ar · #4 21-09-2004

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

Marina · #5 21-09-2004

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

Marina

marcoszorrilla · #6 21-09-2004

A ver si hay suerte.

Cita:

Possible papersizes:

DMPAPER_LETTER = 1; { Letter 8 12 x 11 in }
DMPAPER_FIRST = DMPAPER_LETTER;
DMPAPER_LETTERSMALL = 2; { Letter Small 8 12 x 11 in }
DMPAPER_TABLOID = 3; { Tabloid 11 x 17 in }
DMPAPER_LEDGER = 4; { Ledger 17 x 11 in }
DMPAPER_LEGAL = 5; { Legal 8 12 x 14 in }
DMPAPER_STATEMENT = 6; { Statement 5 12 x 8 12 in }
DMPAPER_EXECUTIVE = 7; { Executive 7 14 x 10 12 in }
DMPAPER_A3 = 8; { A3 297 x 420 mm }
DMPAPER_A4 = 9; { A4 210 x 297 mm }
DMPAPER_A4SMALL = 10; { A4 Small 210 x 297 mm }
DMPAPER_A5 = 11; { A5 148 x 210 mm }
DMPAPER_B4 = 12; { B4 (JIS) 250 x 354 }
DMPAPER_B5 = 13; { B5 (JIS) 182 x 257 mm }
DMPAPER_FOLIO = 14; { Folio 8 12 x 13 in }
DMPAPER_QUARTO = 15; { Quarto 215 x 275 mm }
DMPAPER_10X14 = 16; { 10x14 in }
DMPAPER_11X17 = 17; { 11x17 in }
DMPAPER_NOTE = 18; { Note 8 12 x 11 in }
DMPAPER_ENV_9 = 19; { Envelope #9 3 78 x 8 78 }
DMPAPER_ENV_10 = 20; { Envelope #10 4 18 x 9 12 }
DMPAPER_ENV_11 = 21; { Envelope #11 4 12 x 10 38 }
DMPAPER_ENV_12 = 22; { Envelope #12 4 \276 x 11 }
DMPAPER_ENV_14 = 23; { Envelope #14 5 x 11 12 }
DMPAPER_CSHEET = 24; { C size sheet }
DMPAPER_DSHEET = 25; { D size sheet }
DMPAPER_ESHEET = 26; { E size sheet }
DMPAPER_ENV_DL = 27; { Envelope DL 110 x 220mm }
DMPAPER_ENV_C5 = 28; { Envelope C5 162 x 229 mm }
DMPAPER_ENV_C3 = 29; { Envelope C3 324 x 458 mm }
DMPAPER_ENV_C4 = 30; { Envelope C4 229 x 324 mm }
DMPAPER_ENV_C6 = 31; { Envelope C6 114 x 162 mm }
DMPAPER_ENV_C65 = 32; { Envelope C65 114 x 229 mm }
DMPAPER_ENV_B4 = 33; { Envelope B4 250 x 353 mm }
DMPAPER_ENV_B5 = 34; { Envelope B5 176 x 250 mm }
DMPAPER_ENV_B6 = 35; { Envelope B6 176 x 125 mm }
DMPAPER_ENV_ITALY = 36; { Envelope 110 x 230 mm }
DMPAPER_ENV_MONARCH = 37; { Envelope Monarch 3.875 x 7.5 in }
DMPAPER_ENV_PERSONAL = 38; { 6 34 Envelope 3 58 x 6 12 in }
DMPAPER_FANFOLD_US = 39; { US Std Fanfold 14 78 x 11 in }
DMPAPER_FANFOLD_STD_GERMAN = 40; { German Std Fanfold 8 12 x 12 in }
DMPAPER_FANFOLD_LGL_GERMAN = 41; { German Legal Fanfold 8 12 x 13 in }
DMPAPER_ISO_B4 = 42; { B4 (ISO) 250 x 353 mm }
DMPAPER_JAPANESE_POSTCARD = 43; { Japanese Postcard 100 x 148 mm }
DMPAPER_9X11 = 44; { 9 x 11 in }
DMPAPER_10X11 = 45; { 10 x 11 in }
DMPAPER_15X11 = 46; { 15 x 11 in }
DMPAPER_ENV_INVITE = 47; { Envelope Invite 220 x 220 mm }
DMPAPER_RESERVED_48 = 48; { RESERVED--DO NOT USE }
DMPAPER_RESERVED_49 = 49; { RESERVED--DO NOT USE }
DMPAPER_LETTER_EXTRA = 50; { Letter Extra 9 \275 x 12 in }
DMPAPER_LEGAL_EXTRA = 51; { Legal Extra 9 \275 x 15 in }
DMPAPER_TABLOID_EXTRA = 52; { Tabloid Extra 11.69 x 18 in }
DMPAPER_A4_EXTRA = 53; { A4 Extra 9.27 x 12.69 in }
DMPAPER_LETTER_TRANSVERSE = 54; { Letter Transverse 8 \275 x 11 in }
DMPAPER_A4_TRANSVERSE = 55; { A4 Transverse 210 x 297 mm }
DMPAPER_LETTER_EXTRA_TRANSVERSE = 56; { Letter Extra Transverse 9\275 x 12 in }
DMPAPER_A_PLUS = 57; { SuperASuperAA4 227 x 356 mm }
DMPAPER_B_PLUS = 58; { SuperBSuperBA3 305 x 487 mm }
DMPAPER_LETTER_PLUS = 59; { Letter Plus 8.5 x 12.69 in }
DMPAPER_A4_PLUS = 60; { A4 Plus 210 x 330 mm }
DMPAPER_A5_TRANSVERSE = 61; { A5 Transverse 148 x 210 mm }
DMPAPER_B5_TRANSVERSE = 62; { B5 (JIS) Transverse 182 x 257 mm }
DMPAPER_A3_EXTRA = 63; { A3 Extra 322 x 445 mm }
DMPAPER_A5_EXTRA = $40; { A5 Extra 174 x 235 mm }
DMPAPER_B5_EXTRA = 65; { B5 (ISO) Extra 201 x 276 mm }
DMPAPER_A2 = 66; { A2 420 x 594 mm }
DMPAPER_A3_TRANSVERSE = 67; { A3 Transverse 297 x 420 mm }
DMPAPER_A3_EXTRA_TRANSVERSE = 68; { A3 Extra Transverse 322 x 445 mm }

Un Saludo.

Marina · #7 22-09-2004

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

Marina

marcoszorrilla · #8 22-09-2004

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 · #9 23-09-2004

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 · #10 23-09-2004

¿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 · #11 23-09-2004

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

Marina

Gydba · #12 23-09-2004

Hola a todos,

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

Saludos!

Marina · #13 23-09-2004

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

Marina

marcoszorrilla · #14 23-09-2004

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.