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

＞「ユーザ定義型は定義されていません」と出てしまいます。 ・フォームのデザインを開き ・[表示]-[コード]でコードを表示し ・[ツール]-[参照設定]を確認し、 (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

＞しかし私はＶＢ知らないのです…（＞ロ＜；） VBA使うしか手が無いと思います‥(+o+) (1)元になるテーブルに[Number]というフィールドを追加する。(数値) (2)フォームのデザインでボタンを配置する。 (3)ボタンのプロパティーで"クリック時"に#2のプログラムを貼り付ける。 (4)参照設定に"Microsoft DAO‥"を追加する。 という手順ですが、どうしましょう‥。

テーブルに１つダミーのフィールドを作り、印刷前にＶＢＡで番号を振って、印刷はその番号順にすればいかがでしょう。 ◎４列でテーブル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

こんばんは！ちょっとわかりにくいので補足してください。 例えば横3列×縦2列のラベルがあったとして（１ページに6個のラベル）、全部で2ページあったとしたら --- 1P ABC DEF 2P GHI JKL ---- 1P ACE BDF 2P GIK HJL ---- 1P ACE GIK 2P BDF HJL とか、どうしたいのでしょう？