Hallo, ich habe folgendes Problem, ich steuere die Eigenschaften eines Druckauftrages per DocumentProperties. Das klappt eigentlich auch, mit einer Ausnahme. Die Option "dmDuplex" kann ich setzen wie ich will, es wird immer die Einstellung von Windows geholt. Hier der Code dazu:
function TPrnt.DeviceMode(paDeviceMode: TDeviceMode): Boolean;
var
sdevice, sdriver, sport: array[0..255] of char;
Device, Driver, Port: pchar;
hPrinter : THandle;
Dm : TDeviceMode;
pDm1 : PDeviceMode;
hDm1 : THandle;
Status : LongInt;
Size : LongInt;
begin
device := @sdevice;
driver := @sdriver;
port := @sport;
GetPrinter(Device, Driver, Port, Dm);
Result := OpenPrinter(Device, hPrinter, nil);
if (Result) then
begin
size := _DocumentProperties(0, hPrinter, Device, nil, nil, 0);
hDm1 := GlobalAlloc(GMEM_MOVEABLE or GMEM_ZEROINIT, size);
pDm1 := GlobalLock(hDm1);
_DocumentProperties
(
0,
hPrinter,
Device,
pDm1, pdm1,
DM_OUT_BUFFER
);
with pdm1^ do
begin
dmfields := padevicemode.dmfields;
if (dm_papersize and dmfields) <> 0 then
dmpapersize := padevicemode.dmpapersize;
if (dm_duplex and dmfields) <> 0 then
dmduplex := padevicemode.dmduplex;
end;
Status := _DocumentProperties
(
0,
hPrinter,
Device,
pDm1, pDm1,
DM_OUT_BUFFER or DM_IN_BUFFER
);
Result := (Status > 0);
GlobalUnlock(hDm1);
Printer.SetPrinter
(
Device,
Driver,
Port,
hDm1
);
end;
end; //__TPrnt_DeviceMode
Werde ich da vom Druckertreiber geärgert, oder mach ich was falsch ?
(Habs bislang auf einem Brother 1870N ausprobiert)
Werde morgen ein paar Tests mit anderen Treibern starten.