印刷機能作成

ページ設定・印刷・印刷プレビューの機能を追加しました。追加したと言ってもIEコンポーネントの機能を呼び出しただけなので大したことはやっていないです。

具体的にはIOleCommandTarget(TWebBrowserのDocument)のExecを実行しているだけ。

機能	Execの引数
ページ設定	IDM_PAGESETUP
印刷	IDM_PRINT
印刷プレビュー	IDM_PRINTPREVIEW

ソースのイメージはこんな感じ。

var
  ComTarget: IOleCommandTarget;
  pIn, pOut: OleVariant;
begin
  ComTarget := WebBrowser1.Document As IOleCommandTarget;
  if ComTarget <> Nil then begin
    pIn := NULL;
    pOut := NULL;
    ComTarget.Exec(@CMDSETID_Forms3, IDM_PAGESETUP, 0, pIn, pOut);
  end;
end;