「改ページプレビュー」ボタンを無効にする方法
「改ページプレビュー」ボタンを無効にする方法
はじめまして。
Ａｃｃｅｓｓ側からＶＢＡで、Ｅｘｃｅｌのファイルのシートを
印刷プレビュー画面として表示させることにしています。
（バージョンはＯｆｆｉｃｅ２００２です。）
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub cmd01_Click()
Dim xls As Object 'Excel.Application
Dim wkb As Object 'Excel.Workbook
Set xls = CreateObject("Excel.Application")
Set wkb = xls.Workbooks.Open(FileName:="C:\TEST01.xls", ReadOnly:=True)
xls.Visible = True
xls.UserControl = True
wkb.PrintPreview EnableChanges:=True
xls.Workbooks.Close
Set wkb = Nothing
Set xls = Nothing
End Sub
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
印刷プレビュー画面の表示までは一応できているのですが、その際、
画面に表示されているボタン、特にその中でも
「改ページプレビュー」ボタンを無効にする方法がわかりません。
いろいろと調べても指定方法はわからず、ネットで検索しても、このボタンの
制御方法に言及しているサイトは１つか２つぐらいなので、もしかしたら
このボタンのＶＢＡでの制御方法は公開されていないのかと思ってしまうほどです。
Ｅｘｃｅｌ２００７では、印刷プレビュー画面において「改ページプレビュー」ボタン
は最初から表示されず無くなっていますので、一般には意識されていないのかも知れま
せん。
唯一見つかったサイトでのコーディングでは、コールバック関数形式も使って
説明されていましたが、それを試してみてもどうしてもこのボタンを無効にする事が
できませんでした。
「設定」ボタンと「余白」ボタンは無効にできますが、その方法では他のボタンの
制御には適用できないようなコーディングになっているので、行き詰まっています。
どなたか、Ｅｘｃｅｌの印刷プレビュー画面（２００７より前）における
「改ページプレビュー」ボタンを、ＶＢＡによって無効にする方法があれば、
教えていただけないでしょうか。
どうかよろしくお願い致します。
