[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『フッターに特定のセルを表示させたい』(TOTAL)
いつもお世話になっております。
フッターに特定のセルを表示させたいのですが
色々自分でも調べて試してみたのですが、表示させることができません。
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.RightFooter = Range("A1").Value
End Sub
↑
これは間違っていますでしょうか?
どなたかご教示頂ければ助かります。
何卒よろしくお願い致します。
< 使用 Excel:Excel2013、使用 OS:Windows7 >
ActiveSheet.PageSetup.RightFooter = ActiveSheet.Range("A1").Value
とすれば出来ませんか?
(ウッシ) 2015/04/14(火) 15:49
ウッシ様の指示通り試してみましたが
出来ませんでした。。
どこかで変な設定をしてしまってるからでしょうか?
(TOTAL) 2015/04/14(火) 15:53
Private Sub Workbook_BeforePrint(Cancel As Boolean)
'シート名は変更して下さい。 If ActiveSheet.Name = "特定のシート名" Then ActiveSheet.PageSetup.RightFooter = _ ActiveSheet.Range("A1").Value End If End Sub
としてもダメですか?
(ウッシ) 2015/04/14(火) 15:58
試してみましたが、どうしても表示されません。
ページ設定のフッターの編集で直接編集をすると文字は表示されるのですが。。
この方法では表示させたいものを表示させる事ができないので
なんとかして特定のセルを表示させたいのですが。。
すみません。
(TOTAL) 2015/04/14(火) 16:42
そのコードは、ThisWorkBook のモジュールにセットしてますか?
(ウッシ) 2015/04/14(火) 16:55
リボンからファイルプレビュー(全画面表示)を配置して確認してみてください。
Excel2013では違うかもしれませんので
(デイト) 2015/04/14(火) 16:58
Excel2010でも、印刷プレビューでは表示されくても印刷すれば出ますよ。
(ウッシ) 2015/04/14(火) 17:06
いつもありがとうございます。
ThisWorkBookにセットしております。
印刷しても印字されません。
本当に困りました。。
初歩的な質問ばかりですみません。
(TOTAL) 2015/04/14(火) 20:34
マクロ中にブレークポイントを設けるか、途中にNsgBoxを入れて印刷して、そもそもマクロが呼び出されているのかを確認してはどうか? (ねむねむ) 2015/04/14(火) 21:23
もしコードが実行されているとしたら、ちょっと分からないですね・・・
新規ブックで、必要ならばシート名を変更しセルA1にフッターにセットしたい値をいれて
同じコードをThisWorkBookにセットして試してみて下さい。
多分、印字されると思いますけど、該当のブックの状況に何か違いは無いですか?
(ウッシ) 2015/04/15(水) 09:34
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.