No.2ベストアンサー
- 回答日時:
VBAを使えば可能ですね。
初心者ということですから、VBAは使ったことないでしょうか?
そんなに難しくないので・・・。
レポートをデザインビューで開き、「レポートヘッダー」を選択してください。
プロパティの「印刷時」イベントを選択し、右側の「…」ボタンを押してください。
一覧から「コードビルダ」を選択してください。
出てきた画面の一番上に(たぶん)
Option Compare Database
Option Explicit
とあると思いますので、その下に
Dim FVisible As Boolean
と書いてください。
で、その下にこういうのがあると思いますが、
Private Sub レポートヘッダー_Print(Cancel As Integer, PrintCount As Integer)
End Sub
こう書いてください。
Private Sub レポートヘッダー_Print(Cancel As Integer, PrintCount As Integer)
FVisible = True
End Sub
書いたら、レポートのデザインに戻ります。
操作したいフッターを選択し、プロパティから同様にコードビルダを選択します。
出てきた画面でこう書きます。
Private Sub グループフッター0_Print(Cancel As Integer, PrintCount As Integer)
Me.グループフッター0.Visible = FVisible
FVisible = False
End Sub
これでOKだと思います。
1つめの場合のみ、グループフッターの「可視」を「はい」にする、ということを
しています。
この回答への補足
丁寧な説明ありがとうございます。
このように操作したところ、3つめのグループでは印字されなかったのですが、2つめのグループには印字されました。
まだどこかおかしいところがあるのでしょうか??
No.4
- 回答日時:
#2、3 です。
すみません、少し方針を変更すればOKなことに気が付きました。(たぶん・・・。)
グループフッターを表示しているグループでは、ヘッダーは表示していますか?
もし表示していない場合は表示させてください。
ヘッダーの高さが 0 ではうまく動作しないので、「0.01cm」でも良いので 0 より
大きくしてください。
そのグループヘッダーの「印刷時」イベントに
Private Sub グループヘッダー0_Print(Cancel As Integer, PrintCount As Integer)
Me.グループフッター0.Visible = FVisible
FVisible = False
End Sub
と書いてください。
#2に書いたフッターのコードは削除してください。
要するに、コードは全部でこうなります。
Option Compare Database
Option Explicit
Dim FVisible As Boolean
Private Sub グループヘッダー0_Print(Cancel As Integer, PrintCount As Integer)
Me.グループフッター0.Visible = FVisible
FVisible = False
End Sub
Private Sub レポートヘッダー_Print(Cancel As Integer, PrintCount As Integer)
FVisible = True
End Sub
これでプレビューから印刷しても大丈夫・・・だと思います。
何度もありがとうございました。
やってみたのですが、今度は、表示されなくなりました。
Falseの部分をTrueに変えると、1つめ以外が表示されたので、間違いではないのでしょうけれど…。
とりあえず、プレビューから印刷しなければ問題ないので、これでなんとかなりそうです。
今回はコピペで対応しましたが、次回からはしっかり内容を理解してやってみようと思います。
ありがとうございました。
No.3
- 回答日時:
> #2の方の方法をやってみたのですが、プレビューではうまくなっているのに、
> 印刷するとフッターが入りません。
あー、そうか、ごめんなさい。
一度プレビューを表示してから印刷をする場合は、そうなってしまいますね。
もし、フッターを表示する場合の条件(例えばグループ名が「AAA」の場合、など)
が決まっているのであれば、#1の方の書いてらっしゃる方法の方が簡単で良さそう
です。
流用させていただいちゃいますが、
if グループ名="AAA" then
グループフッター1.visible=true
else
グループフッター1.visible=false
end if
ということです。
> このように操作したところ、3つめのグループでは印字されなかったのですが、
> 2つめのグループには印字されました。
うーん、もしよろしければ、VBAのコードを全部貼り付けしていただければ、何か
わかるかもしれません。
この回答への補足
ありがとうございます。
どうも、IF文を使うと、うまくいかないので、
#2さんの最初の方法でやることにします。
プレビューをせずに印刷をすれば大丈夫でした。
プレビューしてもうまく印刷する方法があればそれにこしたことはないのですが、
プレビューしてもうまく印刷する方法となると
もうちょっと違う命令文を入れることになるんですか?
お忙しいところもうしわけありません。
よろしくお願いします。
No.1
- 回答日時:
グループフッターで最初のグループの時に「可視(visible)」をTrueにしてそれ以外の時にFalseにすればできます。
Private Sub グループフッター1_Format(Cancel As Integer, FormatCount As Integer)
if グループID=1 then
グループフッター1.visible=true
else
グループフッター1.visible=false
endif
end sub
こんな感じです。
この回答への補足
回答ありがとうございます。
グループIDの部分になにを入れたらいいのかわからず、グループ名を入れてみたのですがうまくいかなかったです。
#2の方の方法をやってみたのですが、プレビューではうまくなっているのに、印刷するとフッターが入りません。
どこか変なことをしているのでしょうか…?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(パソコン・スマホ・電化製品) Webページ印刷時にヘッダー・フッターをつけたい 1 2022/04/25 21:35
- Word(ワード) 初心者です。ワードでメニュー表を作っています。 グラデーションをかけ、印刷したら縞模様みたいになって 2 2023/01/25 10:30
- その他(データベース) 20万行あるデータを動かしたい 2 2023/06/13 15:21
- ノートパソコン ページ番号の入れ方について 3 2023/02/16 17:11
- その他(恋愛相談) 気になってる女性へのアプローチ方法とアプローチして良い距離がわからない 大学3年生男です。同じサーク 3 2022/08/20 15:04
- サーバー Windowsサーバでグループを検索したい 1 2023/04/17 15:30
- 知人・隣人 何処から何処までが雑談で、何処から何処までがお悩み相談話なのか 長文です。 高校からの友人×2とメッ 3 2022/05/30 12:52
- Access(アクセス) accessデータを指定したExcel、そして指定したセルへエクスポートするaccess VBAコー 2 2023/05/17 17:02
- その他(教育・科学・学問) 高校のレポートについて (生物、化学、物理)レポートを作成しなきゃいけないのですが、高校生になって[ 1 2022/07/31 10:42
- アイドル・グラビアアイドル 推しについて、悩みがあります 2 2022/12/13 22:48
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelで隣り合った場所を別々に...
-
SBIとSBGって違うグループなん...
-
グループラインのアイコン写真...
-
Excelの関数かVBAでグループ分...
-
グループ内で一人だけ苦手な人...
-
タワマンとクワマンの違いを教...
-
高校生女子です。 私抜きでLINE...
-
ピボットテーブルで締日を設定...
-
カテゴリとグループの違いは?
-
エクセルVBA 行のグループ化を...
-
Wordでテキストボックス同士の...
-
数A
-
ディズニーで別行動したいんで...
-
数学教えてください! 正の整数...
-
グループ内でリーダー格の子に...
-
大学の教授
-
群数列の問題です。 次のように...
-
私はどうしたら良いでしょうか...
-
ACCESSのレポートでのグループ...
-
グループ化の+を開く時にパス...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelで隣り合った場所を別々に...
-
グループラインのアイコン写真...
-
ディズニーで別行動したいんで...
-
同期のグループがちょくちょく...
-
グループ内で一人だけ苦手な人...
-
エクセルVBA 行のグループ化を...
-
女子の7人グループって奇数なの...
-
3人女性グループで自分以外の2...
-
カテゴリとグループの違いは?
-
グループ化の+を開く時にパス...
-
ピボットテーブルで締日を設定...
-
学級委員になりました 愚痴気味...
-
徒遍路について
-
Excelの関数かVBAでグループ分...
-
業務スーパーは、マキヤグルー...
-
大学の最初の方にできたグルー...
-
私は、グループで遊ぶのが苦手...
-
私はどうしたら良いでしょうか...
-
高校生女子です。 私抜きでLINE...
-
高校時代最初にできたグループ...
おすすめ情報