Hallo zusammen,
ich habe das Problem, dass ich meine Druckertreiber nicht auf andere Werte umstellen kann. Ich drucke aus Delphi mit List&Label ein Formular, welches doppelseitig bedruckt werden soll. Stelle ich nun den Druckertreiber direkt um, so ist alles klar, doch er druckt auch alles andere doppelseitig. Da ich im Hintergrund drucke, kann der User hier nicht eingreifen. Ich habe schon versucht die DUPLEX Einstellung direkt im L&L Formular zu machen, doch ignoriert dies der Drucker. Auch aus Delphi heraus kann ich den Drucker nicht dazu bewegen. Er läßt überhaupt keine Veränderung aus Delphi zu. Der Drucker selbst befindet sich im Netz, ist also nicht direkt angeschlossen. Die Abfrage auf DUPLEX oder nicht funktioniert hingen aus Delphi fehlerfrei.
Hier mein Abfragecode
Delphi-Quellcode:
function TfrmVorbereitung.PrinterSupportsDuplex:Boolean;
var
Device,Driver,Port : array[0..255]of Char;
hDevMode :THandle
;
begin
Printer.GetPrinter(Device, Driver, Port, hDevMode);
Result:= WinSpool.DeviceCapabilities(Device, Port, DC_DUPLEX, nil, nil) <> 0;
end;
Mein Code für die Änderung
Delphi-Quellcode:
procedure TfrmVorbereitung.SetPrinterSettings;
var
Device,Driver,Port :
array[0..80]
of Char;
DevMode : THandle;
pDevmode : PDeviceMode;
begin
//--- Get printer device mode 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
dmDuplex := DMDUP_VERTICAL;
dmFields := dmFields
or DM_DUPLEX;
end;
finally
//--- unlock devmode handle ----------------------------------------------------------------------------
GlobalUnlock(DevMode);
end;
end;
{ If }
end;
und der Aufruf im Program
Delphi-Quellcode:
if PrinterSupportsDuplex then
SetPrinterSettings;
Hat einer vieleicht eine Lösung in der Schublade? Ich wäre für jeden Hinweis dankbar.