喫茶XRAY [Mr.XRAY掲示板]

> WebBrowserのページの印刷は、自力ですね。
> どこかのBBSにサンプルがあったような...
こんな感じでしょうか。

//=============================================================================
//  とあるページをTWebBrowserに表示
//============================================================================
procedure TForm1.FormShow(Sender: TObject);
var
     AURL : String;
begin
     AURL:='http://homepage2.nifty.com/Mr_XRAY/index.htm';
     WebBrowser1.Navigate(AURL);
end;
//=============================================================================
//  TWebBrowserのページを印刷 ExecWBメソッドを使用する
// ・印刷を示すOLECMDID_PRINT
// ・プロンプトを出さないことを示すOLECMDEXECOPT_DONTPROMPTUSER
//   IEデフォルトの印刷・#95;イアログを用いる場合はOLECMDEXECOPT_DODEFAULT
// ・戻り値はいらないので次の最後の2つは無意味な変数
//============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
     Tmp:OleVariant;
begin
     WebBrowser1.ExecWB(OLECMDID_PRINT,
                        OLECMDEXECOPT_DONTPROMPTUSER ,
                        Tmp,
                        Tmp);
end;