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.