Codigo Printer no me funciona
 

Hola a todos, Sigo con problemas. les voy a contar mi situacion:

Quiero imprimir en 8.5" x 5.5", el Quickreport lo configure a esa medida. En Impresoras del Windows Xp cree el formulario con esta medida. Al dar vista preliminar, me lo muestra bien, pero al imprimir, me imprime solo la mitad de la hoja carta y salta de pagina.

Le coloque el siguiente codigo y no funciona, Por favor alguien que me ayude.

with Printer do begin
getPrinter(ADevice,ADriver,APort,DeviceHandle);
if DeviceHandle <> 0 then begin
DevMode := GlobalLock(DeviceHandle);
//GlobalUnlock(DeviceHandle);
end;
with DevMode^ do begin
dmFields := dmFields or DM_PAPERWIDTH;
//dmPaperSize := DMPAPER_LETTER;
//dmPaperWidth := 1500;
dmPaperWidth := 500;
dmPaperLength := 500;
dmPaperSize := DMPAPER_USER;
dmFields := dmFields or DM_PAPERSIZE or DM_PAPERLENGTH or DM_PAPERWIDTH;
end;
globalUnlock(DeviceHandle);
printer.SetPrinter(ADevice, ADriver, APort, DeviceHandle);
end;

repDesprendible:=TrepDesprendible.Create(Self);
repDesprendible.Print;
repDesprendible.Free;


Si este codigo funciona, que valores debo colocar en dmPaperWidth y dmPaperLength para 8.5" x 5.5"??


Mil Gracias.