TWebBrowser: Drucken ohne Dialog auf Wunschdrucker

[MacGuyver]

N'abend,

es ist schon faszinierend, wieviele Einträge eine Lösung schreiben, die nicht funktioniert - zu mindest nicht bei mir.

Delphi-Quellcode:

  if PrinterSetupDialog.Execute(WebBrowser.Handle) then
  begin
    Reg := TRegistry.Create;
    try
      if Reg.OpenKey('Software\Microsoft\Internet Explorer\PageSetup', True) then
      begin
        Reg.WriteString('printer', Printer.Printers[Printer.PrinterIndex]);
      end;

    finally
      Reg.Free;
    end;
  end;

Damit soll man den Drucker ändern können, klappt bei mir aber nicht. Hat da jemand etwas, was funktioniert?