Access2007 VBA レポートのページヘッダー／フッター、レポートヘッダー／フッターを削除できない

Question

Access2007 VBA に於いてフォーム上のボタンクリック時イベントプロシジャからレポートを作成し、

そのとき、レポートのページヘッダーを削除したレポートを作成する方法を教えてください。

下記のようなプロシジャではできませんでした。

因みにレポートのデザインビューに於いては右クリックメニューでページヘッダー／フッター(A)を

選択すれば簡単にページヘッダーを削除できるのですが

Private Sub コマンド1_Click()

Dim r As Report

Set r = Application.CreateReport

r.Section(acPageHeader).Visible = False

DoCmd.Close acReport, r.Name, acSaveYes

End Sub

Answer 1

こんばんは、MukkuMukuです。

    Dim rpt As Access.Report

    Set rpt = Application.CreateReport

    DoCmd.RunCommand acCmdPageHdrFtr

    DoCmd.RunCommand acCmdReportHdrFtr '1

    DoCmd.RunCommand acCmdReportHdrFtr '2

    DoCmd.Close acReport, rpt.Name, acSaveYes

だと、詳細セクションだけになりますね。ややこし。

Answer 2

MukkuMukuさんありがとうございました。

ページヘッダー／フッターがデザインビューから消えたのを確認しました。

Answer 3

ずっち さん早速の回答ありがとうございました

たしかに　 r.Section(acPageHeader).Visible = False 　によって、ご指摘の通り「 不可視 」になっていました。

私の説明が不十分だったことをお詫びします。

私が実現したいのは、デザインビューに於いて、右クリックメニューのページヘッダー／フッター(A)を選択してページヘッダーを削除できるのと同じことをVBA イベントプロシジャから行うことです。

ページヘッダー／フッターを「 不可視 」ではなくデザインビューから完全に消し去ることです。

Excelのようにマクロの記録機能があればわかるのですが

Answer 4

こんにちは、ずっちです。

同じように作りましたが、ちゃんと不可視になってますよ？

ためしにVBAで生成されたレポートの各セクションに色をつけてわかりやすくしてみました。

で、レポートビュー。

赤（ページヘッダ）が表示されてませんね？

「セクションが消える」のではなく、「セクションを不可視にしてる」んです。

たぶんそこで勘違いされたのかなと。

本当に設定がうまくいってないのならごめんなさい。