Alguna API para tomar datos de la impresora

[Marina]

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]

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

Saludos!

[Marina]

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]

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

[Marina]

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

Marina

[marcoszorrilla]

A ver si hay suerte.

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]

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

Marina

[marcoszorrilla]

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




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:


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.