[ Milan Milosevic @ 21.06.2013. 18:40 ] @
Pozdrav ljudi Evo koda var FDevice: array [0..255] of Char; FDriver: array [0..255] of Char; FPort: array [0..255] of Char; DeviceMode: THandle; DevMode: PDeviceMode; begin Printer.GetPrinter(FDevice, FDriver, FPort, DeviceMode); DevMode := GlobalLock(DeviceMode); DevMode^.dmFields := DevMode.dmFields or DM_PAPERSIZE; DevMode^.dmPaperSize :=DMPAPER_A4; DevMode^.dmFormName := 'Podeseno A4'; Memo1.Lines.Add(DevMode^.dmFormName); Printer.SetPrinter(FDevice, FDriver, FPort, DeviceMode); GlobalUnlock(DeviceMode); end; Kod bi trebalo da podesava PaperSize na A4 , ovo radi ukoliko pre toga aktiviram PrinterSetupDialog, ali pre toga ne. Sto znaci da mi neki deo fali. Dakle, kada pozivam proceduru iznad i proverim printer.PageWidth ona se ne menja a ukoliko preko PrinterSetupDialog podesim PaperSize na neku vrednost kod mi prebacuje na A4, po defoltu je na letter. |