access97のラベル印刷

質問

同じような質問を見つけられず困ってしまい、新たに質問させていただきます。

access97で
「１個のレポートでラベル１シート（12枚）」を印刷する方法を教えてください！！
データーは11あり、１データーにつき１シートずつ、１１枚のラベルをシートで印刷したいです。

本日の17時までにあげたいので、とても急いでいます。ご存知の方、お知恵を貸してください！！
どうぞよろしくお願いします。

回答No.2

Gin_F · ベストアンサー

[AC97] 宛名ラベルで 同じレコードを連続して複数印刷する方法
http://support.microsoft.com/default.aspx?scid=kb;ja;404902&Product=accJPN

こちらが参考になると思います。

参考URL：

http://support.microsoft.com/default.aspx?scid=kb;ja;404902&Product=accJPN

お礼

ありがとうございます！

早速URLを拝見しました。・・・が・・・少し、飲み込むのに時間がかかりそうな内容なため、いったんプリントアウトして、丁寧にやってみますね。

親切な回答、どうもありがとうございました！！

回答No.4

musimusi29

＃３です。ごめんなさい、勘違いしてました。

１シートで１枚ずつ違うのを印刷されたいんですよね？うちの場合は、面倒ですがフォームで１２個フィールド作って、印刷したい項目をマスターから引っ張ってきて（リストから選択）、それを印刷かけてます。レポートは、ウィザードで作りました。

お礼

どうもありがとうございました。

丁寧にプロパティを埋めてみたら、できました！
この作業で、またお勉強する気が出てきました。
今後もがんばります！ありがとうございました。

補足

ありがとうございます！

作成したいのは
「１シートに１人分を12枚」です。
これを11人分作成予定です。
時間になってしまいましたが、納期が延びたので、みなさんのご意見を参考に、再度悩んでみますね！

丁寧な回答、ありがとうございます。

回答No.3

musimusi29

Access95で住所印刷のタックシールの印刷方法です。
参考になれば。

各レコードのフォームで、印刷枚数を入力するフィールドを作り、印刷したい枚数（１シートなら１２枚）を入力して印刷実行します。

中身は、まず以下のモジュールを書きます。

Function FUNC1(TOKUISAKI, YUBIN, JYUSYO1, JYUSYO2, ATTNA, MAISU)
Dim MYDB As Database, MYTABLE As Recordset
Set MYDB = CurrentDb()
Set MYTABLE = MYDB.OpenRecordset("得意先")
For REP = MAISU To 1 Step -1
MYTABLE.AddNew
MYTABLE("得意先") = TOKUISAKI
MYTABLE("〒") = YUBIN
MYTABLE("住所1") = JYUSYO1
MYTABLE("住所2") = JYUSYO2
MYTABLE("宛名") = ATTNA
MYTABLE.Update
Next REP
MYTABLE.Close
End Function

Function FUNC2()
Dim DB As Database, TB As Recordset
Set DB = CurrentDb()
Set TB = DB.OpenRecordset("得意先")
Do Until TB.EOF
TB.Delete
TB.MoveNext
Loop
End Function

マクロで、

プロシージャの実行　アクションに　=FUNC2()
プロシージャの実行 アクションに =FUNC1([得意先],[〒],[住所1],[住所2],[宛名],[枚数])
レポート開くです。
ラベルは既存の宛名ラベル使ってます。

補足

ありがとうございます。

とりあえずプリントアウトして、ゆっくり丁寧に見てみます。
詳しくは　Ans＃04・・・ですね。

重ね重ねありがとうございます。

回答No.1

snoopy64

１レコードを１２回繰り返すような設定は見つかりませんでした。
で、代案ですが、

案１．データを別テーブルに追加するクエリを１２回実行して、
　　　その１３２件を印刷する。

案２．詳細グループを１ページの大きさに広げ、そこに１２ラベル分の
　　　レイアウトを作る。

いかがでしょうか。

頑張ってくださいヽ(^。^)ノ

お礼

ありがとうございます！

実は「案１」は実行後だったのですが、その場限りの操作になってしまうなーと思い、質問したところでした。
「案２」はこれからやってみます。（私の実力で出来るかしら・・・どきどきどき・・・）

助かりました。
どうもありがとうございました！！