Ja habe mir das ganze eben mal angesehen, habe nur leider das gleiche Problem mit der
Jedi JCL wie mit meiner oben aufgeführten Funktion. Programm intern wird der Schacht richtig ausgewählt und kann auch richtig ausgelesen werden, aber der
Standart WINDOWS Schacht wird nicht gesetzt.
Hier das Codebeispiel wie ich die JCLPrintSet verwende und versuche damit einen Druckerschacht zu setzen.
Code:
procedure TfrmMain.Button6Click(Sender: TObject);
begin
MyPrinter := TJCLPrintSet.Create;
MyPrinter.DefaultSource:= StrToInt(Edit1.text);
Myprinter.SaveToDefaults;
MyPrinter.destroy;
end;
Kann mir irgendwer einen Tip geben welchen grundsätzlichen Fehler ich zu machen scheine.
Grüße ALMEX