Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Impresión (https://www.clubdelphi.com/foros/forumdisplay.php?f=4)
-   -   Incluir codigo para tamaño de papel (https://www.clubdelphi.com/foros/showthread.php?t=11370)

JOMABRI 11-06-2004 21:25:51

Incluir codigo para tamaño de papel
 
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 21:29:21

Cita:

Empezado por JOMABRI
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 21: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.


La franja horaria es GMT +2. Ahora son las 10:51:04.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi