Accessの宛名ラベルウィザードでレコードを縦に並べて印刷したい

質問

Accessの宛名ラベルウィザードでレコードを縦に並べて印刷したいのですがどうすればいいでしょうか？
横並びではなく縦並びにしたいのです。
例えば横４列×縦６列のラベルがあったとして（１ページに２４個のラベル）、全部で１０ページあったとしたら１列目に１ページから１０ページまでのレコードを順番に並べて次に２列目に並べて印刷できるようにしたいのです。
うまく伝えることができたかな…。
よろしくお願いします。

回答No.5

palmmy · ベストアンサー

すいません。
判定文を変更していただけますでしょうか？
(-1を右辺に＆等号をはずしてください。)

　If j * lngOffset + i > lngCount - 1 Then

お礼

おおおおお～！！　完璧です！！
ありがとうございます！！！

本当に助かりました！！！
(^^)v

回答No.4

palmmy

＞「ユーザ定義型は定義されていません」と出てしまいます。

・フォームのデザインを開き
・[表示]-[コード]でコードを表示し
・[ツール]-[参照設定]を確認し、
(1)Visual Bsic For Application
(2)Microsoft Access XX Object Library
(3)Microsoft DAO XX Object Library
(4)‥
となっているか確認してください。(XXはバージョンで違う)
DAOが３番目に無いとエラーが出ます。

＞テーブルとクエリとレポートしか使っていないのです。
それでも出来ますでしょうか？
出来ると思います。

・クエリにもテーブルに追加した[Number]フィールドを追加してください。
・Set MyTBL = MyDB.OpenRecordset("テーブル1", dbOpenDynaset)
のテーブル1をクエリーの名前に変更してください。
・レポートは[Number]順でソートしてください。

一部バグがありましたので修正しました。
Dim i As Integer
Dim j As Integer
Dim MyDB As Database
Dim MyTBL As Recordset
Dim lngCount As Long
Dim lngOffset As Long

Set MyDB = CurrentDb
Set MyTBL = MyDB.OpenRecordset("クエリ1", dbOpenDynaset)
i = 0
j = 0
MyTBL.MoveLast
lngCount = MyTBL.RecordCount
lngOffset = 4
MyTBL.MoveFirst
Do Until MyTBL.EOF
　MyTBL.Edit
　MyTBL![Number] = i + j * lngOffset
　MyTBL.Update
　j = j + 1
　If j * lngOffset + i - 1 >= lngCount Then
　　i = i + 1
　　j = 0
　End If
　MyTBL.MoveNext
Loop

お礼

おおお～～！！　できました！！
思い描いているように並びました！！
ありがとうございます！！！

明日さっそく仕事場でやってきます＾＾
助かりました！！　ありがとうございました＾＾

補足

今日さっそく仕事場でやってきました＾＾
ですが、最後のページの最後の行のあたりが少し変なのです。ソートがかかっていないのです。
最後の行と手前の１行だけですので前に比べると随分ラクになり助かりました＾＾
もし、何かアドバイスがありましたらお教え願えませんでしょうか？
たびたびすみません。

回答No.3

palmmy

＞しかし私はＶＢ知らないのです…（＞ロ＜；）

VBA使うしか手が無いと思います‥(+o+)

(1)元になるテーブルに[Number]というフィールドを追加する。(数値)
(2)フォームのデザインでボタンを配置する。
(3)ボタンのプロパティーで"クリック時"に#2のプログラムを貼り付ける。
(4)参照設定に"Microsoft DAO‥"を追加する。
という手順ですが、どうしましょう‥。

お礼

お返事ありがとうございます！

手順通りにやってみたのですが
MyDB As Database
のところでエラーが出てしまいます。
「ユーザ定義型は定義されていません」
と出てしまいます。

それと宛名ラベルを印刷する際は
（オブジェクトっていうのかな…）テーブルとクエリとレポートしか使っていないのです。
それでも出来ますでしょうか？
たびたびすみません…＞＜

回答No.2

palmmy

テーブルに１つダミーのフィールドを作り、印刷前にＶＢＡで番号を振って、印刷はその番号順にすればいかがでしょう。

◎４列でテーブル1にデータがある場合

Dim i As Integer
Dim j As Integer
Dim MyDB As Database
Dim MyTBL As Recordset
Dim lngCount As Long
Dim lngOffset As Long

Set MyDB = CurrentDb
Set MyTBL = MyDB.OpenRecordset("テーブル1", dbOpenDynaset)
i = 0
j = 0
MyTBL.MoveLast
lngCount = MyTBL.RecordCount
lngOffset = Int(lngCount / 4 + 0.5)
MyTBL.MoveFirst
Do Until MyTBL.EOF
　MyTBL.Edit
　MyTBL![Number] = i + j * lngOffset
　MyTBL.Update
　j = j + 1
　If j = 4 Then
　　i = i + 1
　　j = 0
　End If
Loop

お礼

お返事ありがとうございます。
しかし私はＶＢ知らないのです…（＞ロ＜；）

回答No.1

o23

こんばんは！ちょっとわかりにくいので補足してください。

例えば横3列×縦2列のラベルがあったとして（１ページに6個のラベル）、全部で2ページあったとしたら
---
1P
ABC
DEF

2P
GHI
JKL
----
1P
ACE
BDF

2P
GIK
HJL
----
1P
ACE
GIK

2P
BDF
HJL

とか、どうしたいのでしょう？

補足

わかりにくくてすみません。

１Ｐ目は

ＡＩＱＹ
ＢＪＲＺ
ＣＫＳ
ＤＬＴ

２Ｐ目は

ＥＭＵ
ＦＮＶ
ＧＯＷ
ＨＰＸ

というふうに印刷したいのです。