Установить размеры бумаги
Материал из DRKB
var
Device, Driver, Port: array[0..80] of Char;
DevMode: THandle;
pDevmode: PDeviceMode;
begin
// Get printer device name etc.
Printer.GetPrinter(Device, Driver, Port, DevMode);
// force reload of DEVMODE
Printer.SetPrinter(Device, Driver, Port, 0) ;
// get DEVMODE handle
Printer.GetPrinter(Device, Driver, Port, DevMode);
if Devmode <> 0 then
begin
// lock it to get pointer to DEVMODE record
pDevMode := GlobalLock(Devmode);
If pDevmode <> Nil Then
try
with pDevmode^ do
begin
// modify paper size
dmPapersize := DMPAPER_B5;
// tell printer driver that dmPapersize field contains
// data it needs to inspect.
dmFields := dmFields or DM_PAPERSIZE;
end;
finally
// unlock devmode handle.
GlobalUnlock(Devmode);
end;
end;
end;
ID: 03257