Drucken mit ShellExecute unter Win7

[Bummi]

Vielleicht kannst Du mit diesem Ansatz etwas anfangen

Delphi-Quellcode:

unit Unit5;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw, StdCtrls;

type
  TForm5 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure WebBrowser1DocumentComplete(ASender: TObject; const pDisp: IDispatch; var URL: OleVariant);
  private
    { Private-Deklarationen }
    Fcomplete:Boolean;
  public
    { Public-Deklarationen }
  end;

var
  Form5: TForm5;

implementation

{$R *.dfm}
procedure WebBrowserPrint(const AWebBrowser : TWebBrowser; PrinterDialog : Boolean = true);
var
  vaIn, vaOut: OleVariant;
begin
  if PrinterDialog then
    AWebBrowser.ControlInterface.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER, vaIn, vaOut)
  else
    AWebBrowser.ControlInterface.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER, vaIn, vaOut);
end;

procedure TForm5.Button1Click(Sender: TObject);
Const
 C_TIMEOUT=10000;
var
 wb:TWebBrowser;
 tc:Cardinal;
begin
   FComplete := false;
   wb:=TWebBrowser.Create(self);
   try
   wb.Left := -5000;
   wb.ParentWindow := self.Handle;

   wb.OnDocumentComplete := WebBrowser1DocumentComplete;
   wb.Navigate('C:\temp\Browser.html');
   tc := GetTickCount;
   while not FComplete and ((GetTickCount - tc) < C_TIMEOUT) do
      begin
         Application.ProcessMessages;
      end;
   finally
     wb.Free;
   end;

end;

procedure TForm5.WebBrowser1DocumentComplete(ASender: TObject; const pDisp: IDispatch; var URL: OleVariant);
begin
  TwebBrowser(ASender).OnDocumentComplete := nil;
   WebBrowserPrint(TwebBrowser(ASender));
   FComplete := true;
end;

end.

[nahpets]

Hallo,

schau doch mal bitte hier: http://www.ericphelps.com/batch/rundll/ und suche dort nach print HTML.

Dort steht eine Kommandozeile, mit der HTML-Seiten gedruckt werden können.
Eventuell kannst Du das ja in der Registry bei HTMLFile\shell\Print\command nutzen.

[citybreaker]

Danke Bummi für den Lösungsansatz, werde morgen ein bisschen damit rumspielen und ausprobieren.

Das mit dem Kommandozeile ist auch eine interessante Idee. Allerdings ist die genannte Datei "MSHTML.DLL"
nicht auf meinem PC vorhanden. Ich werde mal gucken, ob ich die irgendwo her bekomme. Die Frage ist
nur ob man die dann einfach mit weiter geben darf.

[mkinzler]

Diese gehört zum IE. Wäre wirklich komisch, wenn die bei dir fehlen würde

[citybreaker]

Hast recht, habe die Datei gefunden. War nur in nem anderen Ordner drinne (system32 und nicht system). War wohl etwas voreilig. :oops: