チェックが入っている項目のみを選択して差し込み印刷するコード

自分メモ

チェックが入っている項目のみを別シートのフォーマットに1部ずつ差し込み印刷します。

家にプリンターがないのでDebug.Print でイミディエイトウインドウに出力して動作テストしました。

Sub CreateBill()
  
  Dim i As Long
  Dim Seikyu As Worksheet
  Dim List As Worksheet
  Set Seikyu = Sheets("請求書")
  Set List = Sheets("Sheet4") 'リストがあるシート
  
  For i = 2 To 11  'リストの項目は2行目から11行目
  
    If List.Cells(i, 5) = True Then 'チェックが入っていたら
      
      Seikyu.Range("B5") = List.Cells(i, 3) '名前を請求書の宛名欄に転記
      'Seikyu.PrintOut 印刷
      Debug.Print Seikyu.Range("B5") '動作テスト用
      
    End If
  
  Next i
  
End Sub