Microsoft Access2003での印刷

質問

使用するAccess ( 2003 )

下記のようなCSVがあります。
　　　　　　　Field_A　,Field_B　,Field_C　,Field_D
1レコード目: A　　　　,B　　　　,　　　　　,
2レコード目: A　　　　,　　　　　,C　　　　,
3レコード目: A　　　　,　　　　　,C　　　　,
4レコード目: A　　　　,　　　　　,　　　　　,D
5レコード目: A　　　　,　　　　　,　　　　　,D
6レコード目: A　　　　,　　　　　,　　　　　,D
7レコード目: A　　　　,　　　　　,　　　　　,D

Field_A は必ず埋まっていて、Field_Bは最初の1レコード目だけ。
Field_CとField_Dはレコードは可変で、Cが終了したらDになります。

この構成は他所から貰ってるだけなので、こちらでは変更したりできません。

この状態でMicrosoft Access を用いて下記のような印刷フォームを作成することは、可能でしょうか？
Access 自体は使用した事はありますが、複雑なフォームを作成した事はありません。
色々事例を調べてセクションという機能がある事は分かりました。

-------------------------------------
|
| A
|
| B
|
| C
| C
| 行が続くかぎり
|
|　 D
| D
| 行が続くかぎり
|
|
|
| 締めの文言
-------------------------------------
　改頁したらAは必ず出力して続きから
-------------------------------------
|
| A
|
| D
| 行が続くかぎり
|
|
|
| 締めの文言
-------------------------------------

質問したい事
１、Accessで、このような事は可能でしょうか？
２、可能な場合、セクションを上手く活用するのでしょうか、
　　それとも、何か異なる機能を使用するのでしょうか
　　比較的簡単に実現できる方を教えて頂きたいです。

３、Accessでは難しい場合、なにか印刷できるようなソフトをご存知でしょうか？
　　excelやwordの差込印刷では、無理かと思いました。

回答No.1

山田 太郎（@f_a_007） · ベストアンサー

強いて、Accessのレポート機能等を利用する必要はないと感じました。

01:先頭行の列1を出力する。
02:先頭行の列2を出力する。
03:次の行を読み込む。
04:列3が存在すれば列3を出力する。
05:列3が存在しない時は列4を出力する。
06:改頁する手前まで04、05を繰り返す。
07:締めの文言を出力する。
08:04～07を繰り返す。

以上のようなプログラムを書けませんか？仮に書けないとしたら、作表ソフトの出番かと思いますよ。要は、単なる作表作業ですから・・・。

１、Sheet1に呼び込む。
２、Sheet2の先頭で[締めの文言]を定義する。
３、先頭行の列1を出力する。
４、先頭行の列2を出力する。
５、03～07に相当する関数を定義する。
６、以下、ツツーッ。

こういうアプローチもあろうかと思いますよ。

お礼

ご回答、並びに実際の例まで挙げていただきありがとうございます。
プログラミングはできないのですが、挙げて頂いたのを見ながら、Accessを作成していこうと思います。
本当にありがとうございました。

回答No.9

山田 太郎（@f_a_007）

＜補足＞「締めの文言」の出力

Option Compare Database
Option Explicit
Dim isWriteFooter As Boolean

Private Sub グループフッター0_Format(Cancel As Integer, FormatCount As Integer)
　　isWriteFooter = True
End Sub

Private Sub ページフッターセクション_Format(Cancel As Integer, FormatCount As Integer)
　　Cancel = iisWriteFooter
　　isWriteFooter = False
End Sub

添付図のように「締めの文言」を最後のページの行末に表示する場合は、少し工夫される必要があります。

回答No.8

山田 太郎（@f_a_007）

※グループ化しなければレコード順に出力されます。
※一度切りの出力であれば、それでもＯＫかと思います。

回答No.7

山田 太郎（@f_a_007）

【補足】列[ID]の付加が必要か？

添付図は、Col2 ではなく列[ID]（非表示）で並び替えています。

回答No.6

山田 太郎（@f_a_007）

補足:レポート画像

回答No.5

山田 太郎（@f_a_007）

【訂正】実際にテストしたら・・・

先のやり方は出力順の制御に問題があって、結局は、つぎのようなクエリを作るのが一番でした。この場合、トップ行の複数化は無用です。

SELECT
　T1.Field1 AS Col1,
　T1.Field2 & T1.Field3 & T1.Field4 AS Col2
FROM T1;

これですと、リスト順に出力されるようです。

回答No.4

hatena1989

「締めの文言」は各ページの下部に表示するのですね。
見落としてました。

前回の回答でレポートフッターに「締めの文言」を配置としましたが、
ページフッターに「締めの文言」を配置する、に訂正します。

回答No.3

hatena1989

> 改頁したらAは必ず出力して続きから

という仕様があるので、Accessのレポートだと比較的に簡単にできます。

CSVファイルを、インポートまたはリンクします。
これをレポートのレコードソースとします。

ページヘッダーに、Field_A を配置します。
これですべてのページのヘッダー部に「Ａ」が表示されます。

詳細セクションに、Field_B　,Field_C　,Field_D を重ねて配置します。
背景スタイルを「透明」にしておくか、印刷時縮小を「はい」にしておきます。

レポートフッターに「締めの文言」を配置します。

以上です。

お礼

ご回答ありがとうございます。
重ねて配置という技？などは私では到底思いつきもしません。回答頂いたのを見ながらチャレンジしてみようと思います。ありがとうございました。

回答No.2

山田 太郎（@f_a_007）

補足:仮に Access を利用する場合は・・・。

1レコード目: A　　　　,B　　　　,　　　　　,
1レコード目: A　　　　,B　　　　,　　　　　,
2レコード目: A　　　　,　　　　　,C　　　　,
3レコード目: A　　　　,　　　　　,C　　　　,
4レコード目: A　　　　,　　　　　,　　　　　,D
5レコード目: A　　　　,　　　　　,　　　　　,D
6レコード目: A　　　　,　　　　　,　　　　　,D
7レコード目: A　　　　,　　　　　,　　　　　,D

上のように１レコード目を２行にすると、ほぼ何もしなくても目的を達成できるかと思います。

１、１レコード目を２行に。
２、テーブル[XXXX]に呼び込む。
３、ウィザードでレポート[XXXX]を生成する。
４、４つのフィールドを重ねる。
５、詳細部で１行目のAのみ Visibled=True にする。
６、詳細部で１行目以外のAを Visibled=False にする。
７、レポートの下部に[締めの文言]を付加する。

このような感じかと思います。