[[20200619135746]]　『差し込み印刷風』（ｃｈ）　ページの最後に飛ぶ

『差し込み印刷風』（ｃｈ）

Excelで差し込み印刷のようなものができないか調べていたら
見つけました

https://tripbowl.com/excel-vba/merge-printing/

直し方がおかしいのか印刷されません
印刷するにはどうするのでしょうか？

sheetデータのB8に行数、12行目からデータがあります
sheet用紙のA1にsheetデータのB列
sheet用紙のA2にsheetデータのC列
sheet用紙のA3にsheetデータのC列
sheet用紙のA4にsheetデータのD列
を差し込んで印刷します

Private Sub CommandButton1_Click()

msg = MsgBox("印刷しますか？", Buttons:=vbYesNo + vbExclamation)

  If msg = vbYes Then
    For i = 12 To 16
    'For i = 12 To Sheets("データ").Range("B8").Value
      Sheets("用紙").Range("A1").Value = Cells(i, 2).Value
      Sheets("用紙").Range("A2").Value = Cells(i, 3).Value
      Sheets("用紙").Range("A3").Value = Cells(i, 4).Value
      Sheets("用紙").Range("A4").Value = Cells(i, 1).Value

      Worksheets("用紙").PrintOut FROM:=1, To:=1, COPIES:=1, COLLATE _
       :=True
    Next i
  End If

End Sub

＜使用 Excel：Excel2019、使用 OS：Windows10 ＞

ボタンが「データ」シートに貼ってあるなら、このまま動きそうに見えます。
違うシートにボタンを貼ったのであれば、以下とか。

    Sheets("用紙").Range("A1").Value = Sheets("データ").Cells(i, 2).Value
（???） 2020/06/19(金) 14:25

コメント返信：

[ 一覧(最新更新順) ]

[[20200619135746]] 『差し込み印刷風』（ｃｈ） ページの最後に飛ぶ

[[20200619135746]]　『差し込み印刷風』（ｃｈ）　ページの最後に飛ぶ