[[20160206222643]] 『印刷プレビューのコマンドがグレーアウトしない方』(ハロークラブ) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『印刷プレビューのコマンドがグレーアウトしない方法はありますか?』(ハロークラブ)

・・・・・・・・・・
ActiveSheet.PrintPreview
までにすると、問題なく印刷プレビュー表示されますが、
以下の *印刷とExcel終了* を書き足すと、

     ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
     IgnorePrintAreas:=False
     Application.Quit
     ThisWorkbook.Close SaveChanges:=False
     ThisWorkbook.Close False
印刷プレビューのコマンドはグレーアウトしてしまいます。
スクロールと右上の[×]は有効です。

理論的には、グレーアウトは正常なのかもしれませんが、
印刷プレビューがグレーアウトしない方法ありますか?
要するに、[次のページ]と[印刷プレビューを閉じる]が使えたらいいのにと思ったものですから。
どなたか、よろしくご指導ください。
初心者です。
OSはWindows10でも同じ現象です。

< 使用 Excel:Excel2010、使用 OS:WindowsXP >


 > ActiveSheet.PrintPreview 
 > までにすると、問題なく印刷プレビュー表示されますが、 
 > 以下の *印刷とExcel終了* を書き足すと、 
 >      ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
 >      IgnorePrintAreas:=False
 ということは、

 ActiveSheet.PrintPreview            '(1)
 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
      IgnorePrintAreas:=False        '(2)
 となっているということですね。

 私の理解では、(1)が表示するプレビュー画面を閉じない限り、
 (2)には進まないはずで、
 また、(2)では印刷するのみですから、
 「印刷プレビューのコマンドはグレーアウトしてしまいます。」
 の意味が不明です。

 グレーアウトされているという印刷プレビューのコマンドとは、
 ・どのタイミングでの話ですか?
 ・コマンドとは?
 ・それはどこに表示されているものですか?
 それらを示していただくと回答がつきやすいでしょう。

 ■
 問題は、その後に行った Application.Quitなどとの関連で発生しているのであれば、
 そうしたことを止めればすむことではないですか?
 印刷中にどうして急いでアプリケーションを閉じる必要があるんでしょうか。
 君子危うきに近寄らず、です。

(γ) 2016/02/07(日) 11:13


(γ)さん、ご指導ありがとうございます。
ActiveSheet.PrintPreview '(1)
この時点で、グレーアウトになります。そして、おっしゃるとおり、
印刷プレビューを閉じないと次の印刷には進みません。
従って、右上の[×]でとじるしか方法がありません。

説明不足&言葉ちがい、ごめんなさい。
目的は、印刷プレビュー確認したら、印刷を一部して、上書きしないでExcel終了したいのです。
もちろん、ファイルはマクロ有効テンプレートにしてあります。

余談ですが、ちょっと気になるのが、MicrosoftのHelpに回避方法らしきものがあるのですが、
理解できず、この学校で解決できたら・・・と思いました。
拙い説明お許しください。
(ハロークラブ) 2016/02/08(月) 17:18


 > ActiveSheet.PrintPreview '(1) 
 > この時点で、グレーアウトになります。
 分かりました。
 クイックアクセスツールバーにあるプレビューボタンのことですね。

 プレビュー画面が表示されている段階では、
 更にプレビューボタンを押す必要はないので、
 グレーアウトされているのは至極まっとうな話だと思います。
 >印刷プレビューのコマンドがグレーアウトしない方法はありますか?
 という質問は意味を成さないと思いました。

 なお提示されたコードで、
 選択されたシートの印刷ができると思います。

 不明なら、もう一度、されたいことを明確に示してもらうと、
 皆さんからも回答がいただけると思います。

 ちなみに、
 > Helpに回避方法らしきものがあるのですが
 とのこと。
 "何を"回避する方法なんでしょうか。
 それも併せて示されるとよろしいかと思います。

(γ) 2016/02/08(月) 22:51


>クイックアクセスツールバーにあるプレビューボタンのことですね。
その通りです。ご理解ありがとうございます。

最初に書いたのですが、要するに、[次のページ]と[印刷プレビューを閉じる]が使えたらいいのにと思ったものですから。
 余談ですが、また事務所内Excel初級ばかりなので、グレーアウト画面を見た瞬間、操作ミス?かと不安になるようです。このファイルは手書き用の月間予定表記入用紙なのですが、カレンダー機能と行事表示があり改良重ね早や3年数人で共用してます。

Microsoftにこんなのがあります。
 https://support.microsoft.com/ja-jp/kb/960659#/ja-jp/kb/960659

Microsoft Office Excel 2007 および Microsoft Excel 2010 で PrintPreview メソッドを実行 した場合、印刷プレビュー画面のリボン上のコマンド がグレーアウトする場合があります。 この現象は、以下>の条件をすべて満たす場合に発生します。 •ワークブックを開いた際に実行されるイベントや自動実行マクロ (Workbook_Open イベント  または >Auto_Open イベント) などから PrintPreview を実行した。

私の場合、Private Sub workbook_open() で始まるので、該当するかな?と思うのですが・・・

今回の変更がどの程度の評価なのか不安なのですが、可能ならば転用したい他のファイルがあるので、
是非ともご指導よろしくお願いします。

(ハロークラブ) 2016/02/09(火) 01:39


大変お騒がせしました。
以下の方法で、解決しました。

Excel2010以降セキュリティが厳しくなったようで、
Microsoft Support 方法2 : セキュリティ情報バーによるマクロの警告が表示されないように構成する

http://kokodane.com/2010/excel2010macro_03.htm
マクロのセキュリティ〜Excel2010マクロ編
指定フォルダ内のマクロを有効にする|信頼できる場所の追加

以上、Excel2010の設定を変更したところ、クイックアクセスツールバーの印刷プレビューは
正常に表示されました。
[次のページ]と[印刷プレビューを閉じる]が使えます。
と言うことは、このファイルを使うパソコンごとに設定する必要があるということでしょうか?!

(γ)さん、ありがとうございます。

(ハロークラブ) 2016/02/09(火) 03:10


 こちらの理解力の問題もあるかもしれないが、
 もう少し正確に書いて欲しかった。

 "印刷プレビューのコマンド"
 じゃなくて、
 "印刷プレビューのリボンにあるすべてのコマンド"
 と書いてもらえば紛れが無かった。

 >クイックアクセスツールバーにあるプレビューボタンのこと
 ではまったくないでしょう。

 そして、最初からサイトの記事を説明してほしかった。
 こんなバグの話、なかなか想像もつかないので、
 ヒントもなしに事象と対応策を言い当てられる人は稀だろう。
 他のかたから長いこと何のコメントもつかなかったのはそのせいでしょう。

 ■
 で、くだんのサイトの「方法1」は以下のような話じゃないかな。
 Private Sub Workbook_Open()
     Application.OnTime Now(), "test"
 End Sub
 として、標準モジュールにやりたいことを書いた"test"プロシージャを置いておきます。

 それにしても、自動実行で(そのこと自体が初耳だが)、なおかつ
 印刷実行後はすぐにExcelを閉じるとは、忙しいことですね。
 印刷以外は何もできないですよ。(もちろん手段はあるけれども)

(γ) 2016/02/09(火) 06:33


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.