Drucker: Optionen Ausgabefach / Heften setzen

[dingdoi]

Moin,

ich hatte ganz vergessen, meine inzwischen gefundene Lösung hier zu posten.

Im Registry-Pfad "HKEY_CURRENT_USER\Printers\DevModePerUser\*DRUCKE RNAME*" werden die Druckeinstellungen des jeweiligen Druckers gespeichert. Um die Einstellungen zu verändern, sind diese Schritte sinnvoll:

1. Auslesen des Wertes
2. Ändern >einer< Einstellung über den Dialog "Druckeinstellungen"
3. Erneutes Auslesen des Wertes und Ermittlung der veränderten Bytes

Hinweis: Es gibt im angegebenen Registry-Pfad nur einen Eintrag, wenn der Dialog "Druckeinstellungen" für den jeweiligen Drucker mindestens 1mal aufgerufen und mit OK bestätigt wurde.


Die folgenden Prozeduren setzen ein vorhandenes StringGrid mit dem Namen "sg1" voraus.

Delphi-Quellcode:

// Einstellungen auslesen
procedure TForm1.Button3Click(Sender: TObject);
var
  r: TRegistry;
  i, iDataSize: Integer;
  tDM: TByteArray;
  PrinterName: string;
begin  
  PrinterName := 'TESTDRUCKER'; // ANPASSEN !!!

  r := TRegistry.Create;
  r.rootkey:=HKEY_CURRENT_USER;
  r.OpenKey('Printers\DevModePerUser', false);
  iDataSize := r.GetDataSize(PrinterName);
  r.ReadBinaryData(PrinterName, tDM, iDataSize);
  r.CloseKey;
  r.Free;

  for i := 0 to iDataSize - 1 do
  begin
    sg1.Row := i;
    sg1.Rows[i].Strings[0] := IntToStr(i);
    sg1.Rows[i].Strings[1] := IntToSTr(tDM[i]);
  end;
end;

// Einstellung setzen
procedure TForm1.Button4Click(Sender: TObject);
var
  r: TRegistry;
  i, j, iDataSize: Integer;
  tDM: TByteArray;
  change: boolean;
  PrinterName: string;
begin

  PrinterName := 'TESTDRUCKER'; // ANPASSEN !!!

  r := TRegistry.Create;
  r.rootkey:=HKEY_CURRENT_USER;
  r.OpenKey('Printers\DevModePerUser', false);
  iDataSize := r.GetDataSize(PrinterName);
  r.ReadBinaryData(PrinterName, tDM, iDataSize);


  tDM[1234] := 56; // ANPASSEN !!!


  r.WriteBinaryData(PrinterName, tDM, iDataSize);
  r.CloseKey;
  r.Free;
end;

Grüße,
Jan