VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[管理用]
| 投稿日 | ： 2005/06/10(Fri) 00:46 |
| 投稿者 | ： コラボ |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^4: Excelのプレビュ動作 |
ご教授有り難うございます。
> 任意のSheetを表示したいならシート名を指定するだけでは。
> xlBook.Windows(1).Visible = False
> xlApp.Visible = True
> xlBook.Worksheets("Sheet2").PrintPreview
>
> 又は、宣言時に Set xlSheet2 = xlBook.Worksheets(2)
> xlSheet2.PrintPreview
これで全く問題ないのです。
> 結局何をしたいのでしょうか？
> なぜ、そのような事が必要なのでしょうか？
見栄えが良くなったら少し
スケベ心が湧き、以下のような事ができないかな？と思ったのです。
BookはSheet1〜5の５枚構成
Sheet1はデータ入力用
Sheet2〜4は計算用
Sheet5が計算結果
Sheet5だけを表示していたのですが、検算用にSheet4も表示したい。
そのときExcelのプレビュ画面の次頁、前頁ボタンでSheet4,5を切り替えるため
ExcelでSheet4,5を選択状態（Shiftを押しながらタブを指定するやり方）にして
保存し、BookをPrintPreviewにしてみたのです。
> > SheetをBook、BookをAppとして試行錯誤しているのですが
> 意味がよく理解できませんが
Sheet単位のプレビュが、ご教授いただいた方法でできたので、
Book単位でも可能なような気がして試していた次第です。
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）