FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
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. |
|
|
|