[[20150414153948]] 『フッターに特定のセルを表示させたい』(TOTAL) ページの最後に飛ぶ

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

 

『フッターに特定のセルを表示させたい』(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


普通にファイル印刷プレビューではWorkbook_BeforePrintはExcel2010では動きません。

リボンからファイルプレビュー(全画面表示)を配置して確認してみてください。

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.