Scalabium Software |
|
Knowledge for your independence'. | |
Home Delphi and C++Builder tips |
#20: How can I set a printer settings? |
|
The next part of the tip for printer settings. procedure SetPrinterSettings(FPrinter: TPrinter); var FDevice: PChar; FDriver: PChar; FPort: PChar; DeviceMode: THandle; DevMode: PDeviceMode; begin {to get a current printer settings} FPrinter.GetPrinter(FDevice, FDriver, FPort, DeviceMode); {lock a printer device} DevMode := GlobalLock(DeviceMode); {set a paper size as A4-Transverse} if ((DevMode^.dmFields and DM_PAPERSIZE) = DM_PAPERSIZE) then begin DevMode^.dmFields := DevMode^.dmFields or DM_PAPERSIZE; DevMode^.dmPaperSize := DMPAPER_A4_TRANSVERSE; end; {set a paper source as Tractor bin} if ((DevMode^.dmFields and DM_DEFAULTSOURCE) = DM_DEFAULTSOURCE) then begin DevMode^.dmFields := DevMode^.dmFields or DM_DEFAULTSOURCE; DevMode^.dmDefaultSource := DMBIN_TRACTOR; end; {set a Landscape orientation} if ((DevMode^.dmFields and DM_ORIENTATION) = DM_ORIENTATION) then begin DevMode^.dmFields := DevMode^.dmFields or DM_ORIENTATION; DevMode^.dmOrientation := DMORIENT_LANDSCAPE; end; {set a printer settings} FPrinter.SetPrinter(FDevice, FDriver, FPort, DeviceMode); {unlock a device} GlobalUnlock(DeviceMode); end;
|
|
Copyright© 1998-2024, Scalabium
Software. All rights reserved. |