名前
題名
▼ Mr.XRAYさん > > WebBrowserのページの印刷は、自力ですね。 > > どこかのBBSにサンプルがあったような... > こんな感じでしょうか。 > > //============================================================================= > // とあるページをTWebBrowserに表示 > //============================================================================ > procedure TForm1.FormShow(Sender: TObject); > var > AURL : String; > begin > AURL:='http://mrxray.on.coocan.jp/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;
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link