TExcelApplicationでPrintPreview (ID:27039)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

>やはりWebBrowserを利用した場合はプレビュー出来ないのでしょうか

既にいろいろ実験しているとは思いますが、例えば以下の様なテストをして
みて下さい。

新規のプロジェクトにTWebBrowserとTButtonを各々一つ配置します。
usesに SHDocVwを追加します。

----  テスト1 ------

procedure TForm1.FormShow(Sender: TObject);
var
     AURL : String;
begin
     AURL:='http://homepage2.nifty.com/Mr_XRAY/index.htm';
     WebBrowser1.Navigate(AURL);
end;
//  印刷プレビュー
procedure TForm1.Button1Click(Sender: TObject);
var
     Tmp:OleVariant;
begin
     WebBrowser1.ExecWB(OLECMDID_PRINTPREVIEW,OLECMDEXECOPT_DODEFAULT,Tmp,Tmp);
end;

----  テスト2 ------

procedure TForm1.FormShow(Sender: TObject);
var
     AURL : String;
begin
     AURL:='エクセルのブックのフルパス';
     WebBrowser1.Navigate(AURL);
end;
//  印刷プレビュー
procedure TForm1.Button1Click(Sender: TObject);
var
     Tmp:OleVariant;
begin
     WebBrowser1.ExecWB(OLECMDID_PRINTPREVIEW,OLECMDEXECOPT_DODEFAULT,Tmp,Tmp);
end;

違いは実行した結果の通りです。

エクセルをDelphi(VBAや他の言語でも同じ)からから操作する方法には
(1)操作用のフォームを用意して、そこに操作コード実行のボタン類を配置
(2)OleContainerを配置して、その上に表示
(3)WebBrowser1を配置して、そこに表示

等がありますが、それぞれ一長一短があるのでないかと思います。
エンドユーザに対して、どのようなインターフェイスを提供し、操作をどの程度
制限し、何を自動化するのか。全く自由で汎用的な目的であれば、エクセルその
ものを直接操作すればいいわけですから、その点は考える必要があるかも知れません。
業務アプリであればなおさらでしょう。
なお、テスト2の結果については、Microsoftのサイト(URLは失念!!)に記述があります。
(確か、これは仕様ですと書いてあったと記憶しています)

>http://homepage2.nifty.com/Mr_XRAY/Delphi/plExcel/T_ExcelDialog.htm
>では、印刷ダイアログにプレビューのボタンが出ているのですが
>何かミソがあるのでしょうか？

何故でしょう。正解者は自分で座布団2枚用意して下さいね(笑)。
もっとも、たとえ[印刷プレビュー]ボタンが表示されたとしてもプレビューしませんけど。

←解決時は質問者本人がここをチェックしてください。

戻る