access97のラベル印刷

解決済

質問者：teacher-satoko
質問日時：2004/09/06 15:33
回答数：4件

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

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

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

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (4件)

ベストアンサー優先
最新から表示
回答順に表示

No.2ベストアンサー

回答者： Gin_F
回答日時：2004/09/06 16:07

[AC97] 宛名ラベルで同じレコードを連続して複数印刷する方法

http://support.microsoft.com/default.aspx?scid=k …

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

参考URL：http://support.microsoft.com/default.aspx?scid=k …

- 0
- 件

通報する

この回答へのお礼

ありがとうございます！

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

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

通報する

お礼日時：2004/09/06 17:03

No.4

回答者： musimusi29
回答日時：2004/09/06 16:29

＃３です。

ごめんなさい、勘違いしてました。

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

この回答への補足

ありがとうございます！

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

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

補足日時：2004/09/06 16:55

通報する

- 0
- 件

通報する

この回答へのお礼

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

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

通報する

お礼日時：2004/09/07 15:35

No.3

回答者： musimusi29
回答日時：2004/09/06 16:12

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],[宛名],[枚数])
レポート開くです。
ラベルは既存の宛名ラベル使ってます。