[ エクセル操作フォームEx ] [ 改ページプレビュー表示 ]

Delphi Programming / Object Pascal

[掲載 2009年05月25日] [更新 2013年12月15日]　エクセル操作フォームEx

エクセル操作フォームEx 参考コード類改ページプレビュー表示
動作確認等	Windows 7 U64(SP1) + Delphi XE Pro + Excel 2010

改ページプレビュー表示

表示を改ページプレビューにすると，実際にデータが存在する領域が確認でき，印刷プレビューに近い状態で入力できます．ただし，表示データが多くなると動作が重くなります．

	図1 改ページプレビュー表示1 複数頁の場合図の場合，右下にもデータがある
	図2 改ページプレビュー表示2 右下のデータを削除すると，実際に有効な範囲だけ表示される用紙サイズや印刷の方向を変えてもこの表示は変化しない

リスト1
改ページプレビュー表示にする

procedure TplExcelFormEx1.Button1Click(Sender: TObject);
begin
  xlfExcelApp.ActiveWindow.View := xlPageBreakPreview;
  btnZoomNormalClick(nil);
end;

[標準] の表示形式に戻すには次のコードを実行します．エクセル操作フォームの [標準] ボタンは，表示サイズを [標準] にするだけで，[標準] の表示には戻りません．

procedure TplExcelFormEx1.Button2Click(Sender: TObject);
begin
  xlfExcelApp.ActiveWindow.View := xlNormalView;
end;