Impresora

[serhasae]

Prueba este codigo y dime que tal, me lo paso un amigo lo que pasa es que no tengo tinta en mi impresora para probarlo.

var
pcrDevice : array[0..255] of char;
pcrDriver : array[0..255] of char;
pcrPort : array[0..255] of char;
lDMode : THandle;
varPDMode : PDEVMODE;
begin
Printer.PrinterIndex := Printer.PrinterIndex;
Printer.GetPrinter(pcrDevice, pcrDriver, pcrPort, lDMode);
if (lDMode <> 0) then
begin
varPDMode := GlobalLock(lDMode);
if (varPDMode <> nil) then
begin
varPDMode^.dmFields := (varPDMode^.dmFields or DM_PAPERSIZE or DM_PAPERWIDTH or DM_PAPERLENGTH);
varPDMode^.dmPaperSize := DMPAPER_USER;
varPDMode^.dmPaperWidth := 100;
varPDMode^.dmPaperLength := 100;
varPDMode^.dmFields := (varPDMode^.dmFields or DMBIN_MANUAL); varPDMode^.dmDefaultSource := DMBIN_MANUAL; GlobalUnlock(lDMode); end;
end;
end;

[_Willa]

Estoy haciendo una clase de impresion atraves del canvas,
y no encuentro cual es la forma de cambiar el "ppp" "puntos por pulgada"
e visto que una impresora puede tener 600 o 300 por ejem. hp6620,
permite seleccionar este dato "calidad de impresión" ... si se selecciona
modo normal desde las propiedades imprime en 600, y si se selecciona
"calidad borrador" imprimi en 300, pero como hacer esto mismo por codigo...

He estado mirando PDEVMODE y no he encontrado cual de todos es...

Alguna Idea?

Gracias.
_Willa