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; |
Cita:
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 |
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