Wednesday, April 20, 2016

Excel-VBAで、差し込み印刷

Excel-VBAで、差し込み印刷を行うことができるようになりました。

「保育料一覧表」を元データにし、各園児宛の「諸費納入明細」を一括してプリントアウトできた！うれしいな〜。

Option Explicit

Sub 諸費納入明細の印刷()
Dim r As Range

If MsgBox("印刷欄に 1 があるデータを印刷しますか？", _
vbQuestion + vbYesNo, "連続印刷") <> vbYes Then Exit Sub

With Worksheets("list_hoikuryo")

For Each r In .Range("B7", .Range("B" & .Rows.Count).End(xlUp))

   If r.Value = 1 Then

      '差込先のセル = 差込元のセルのかたちで指定（※）
      Worksheets("merge_letter").Range("B3").Value = r.Offset(0, 2).Value
      Worksheets("merge_letter").Range("D18").Value = r.Offset(0, 3).Value

     Worksheets("merge_letter").Range("D23").Value = r.Offset(0, 4).Value
      Worksheets("merge_letter").Range("D24").Value = r.Offset(0, 5).Value
      Worksheets("merge_letter").Range("D25").Value = r.Offset(0, 6).Value
      Worksheets("merge_letter").Range("D26").Value = r.Offset(0, 7).Value
     Worksheets("merge_letter").Range("D27").Value = r.Offset(0, 8).Value
    Worksheets("merge_letter").Range("D28").Value = r.Offset(0, 9).Value

  '印刷する
   Worksheets("merge_letter").PrintOut

   End If
Next r

End With

End Sub