複数シートを使用している場合はファイル保存時のシート選択状況により
印刷状況が変わってしまい不便です。
私の場合はブック全体を印字したいのでブック全体を印字する方法でも
構いません。
--
毎度お世話になります、テクニカル電子の末廣です。
お疲れさまです、末廣@開発です。
----+----+----+----+----+----+----+----+----+----+----+----+----+----
テクニカル電子株式会社 開発部 末廣 一巳
〒815-0081 福岡市南区那の川1-14-1 テクニカル電子本社ビル2F
TEL 092-525-2171(直通)
FAX 092-525-3397(直通)
E-Mail Sue...@technical-e.co.jp
Nifty ZVA0...@nifty.com
URL http://www.technical-e.co.jp
ファイルの関連付けを変更すれば、ダイアログ表示は可能です。
ただ、フォルダオプションから変更すると、不具合が出る可能性が
高いので、レジストリを編集するのが確実です。
# 編集する前に、バックアップをお忘れなく。
編集するキーは、(WinMe + Excel2000の場合ですが)
HKEY_CLASSES_ROOT\Excel.Sheet.8\shell\Print\ddeexec\ifexec で、
名前:既定 の値を、
[open("%1")][print()][quit()]
↓
[open("%1")][print?()][quit()]
に変更します。
ブック全体を印刷するコンテキストメニュー項目を追加する方法です。
以下の内容のテキストファイルを作成し、拡張子「.reg」で保存します。
REGEDIT4
[HKEY_CLASSES_ROOT\Excel.Sheet.8\shell\PrintBook]
@="全シート印刷(&A)"
[HKEY_CLASSES_ROOT\Excel.Sheet.8\shell\PrintBook\command]
@="\"C:\\Program Files\\Microsoft Office\\Office\\excel.exe\" /e"
[HKEY_CLASSES_ROOT\Excel.Sheet.8\shell\PrintBook\ddeexec]
@="[open(\"%1\")][print(,,,,,,,,,,,3)][close(0)]"
[HKEY_CLASSES_ROOT\Excel.Sheet.8\shell\PrintBook\ddeexec\topic]
@="system"
[HKEY_CLASSES_ROOT\Excel.Sheet.8\shell\PrintBook\ddeexec\application]
@="Excel"
[HKEY_CLASSES_ROOT\Excel.Sheet.8\shell\PrintBook\ddeexec\ifexec]
@="[open(\"%1\")][print(,,,,,,,,,,,3)][close(0)][quit()]"
保存したファイルをダブルクリックするか、右クリック→結合でレジストリに
追加します。
Excel ファイルのコンテキストメニューに、「全シート印刷(&A)」が追加
され、これを選択すると該当ファイルの全シート(の印刷範囲)が印刷さ
れます。
# 動作確認:Win98+Excel97 SR-2、WinMe+Excel2000 SP-2
# レジストリを変更しますので、バックアップをお忘れなく。
# DDE コマンドの引数等は、Excel4.0 マクロ関数のそれと一致している
# と思われます。
--
Miyahn?犬年うまれ
HQF0...@nifty.ne.jp
"Miyahn" <HQF0...@nifty.ne.jp> wrote in message
news:OFAKmczUBHA.1696@tkmsftngp03...