Microsoft Access 掲示板

マクロ駆使してできないこともないんでしょうけど、VBA覚えるよりよっぽど難しい気がします

Private Sub csv出力()
  Dim FileNumber As Long
  Dim db As Database
  Dim rs As Recordset
  
  FileNumber = FreeFile
  Open "C:\データ\印刷.csv" For Output As #FileNumber
  Set db = CurrentDb
  Set rs = db.OpenRecordset("T発行一覧")
  
  Dim 枚数 As Long
  Dim 出力カウント As Long
  出力カウント = 0
  
  With rs
    '//レコード分繰り返しスタート
    Do Until .EOF

      '//枚数分の繰り返しスタート
      For 枚数 = 1 To !枚数
        '//改行無しで出力
        Print #FileNumber, !品番 & "," & !カラー & "," & !サイズ & ",";  
        
        '//出力数計算して改行出力
        出力カウント = 出力カウント + 1
        If 出力カウント = 30 Then
          '//改行だけ出力
          Print #FileNumber,

          出力カウント = 0 '//カウントリセット
        End If

      Next '//↑ここまで枚数分出力の繰り返し処理

      .MoveNext

    Loop '//↑ここまでレコード分繰り返し処理

    .Close
  End With
  Close #FileNumber
End Sub

そのすべてをつなげて30ずつで改行する仕組み

そのまんま記述するだけですね