PDA

Ver la Versión Completa : Incluir codigo para tamaño de papel


JOMABRI
11-06-2004, 22:25:51
saludos,

Para imprimir con papel personalizado, encontré en este foro el siguiente código: La pregunta es: Donde lo incluyo, en que evento?? Mil Gracias.
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;

roman
11-06-2004, 22:29:21
La pregunta es: Donde lo incluyo

¿Justo antes de imprimir?

Es decir, el código selecciona el tamaño de papel independientemente del momento en que lo hagas de manera que basta que se ejecute antes de que mandes la impresión.

¿De qué manera vas a mandar la impresión?

// Saludos

JOMABRI
11-06-2004, 22:34:10
estoy trabajando con QuickReport, entonces escribiria ese codigo antes de este:

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

Que tamaño debo especificar para 8.5" x 5.5" ???


Gracias.