セルで入力した値を部数印刷

isakat

17年前

セルに入力した数字分だけを部数印刷してみます。
簡単なマクロですがやってみましょう。（初マクロカテゴリなので簡単なところから・・・）

Sub 印刷マクロ()
Dim maisuu As Integer
Dim sheet_name As String
Dim x As Integer
maisuu = Cells(1, 2)
sheet_name = Cells(2, 2)
For x = 1 To maisuu
Sheets(sheet_name).Select
ActiveWindow.SelectedSheets.PrintOut
Next
End Sub

もうそのまんまです。
セルB1【Cells(1,2)】の値を変数【maisuu】に代入させ、
セルB2【Cells(2,2)】の値を変数【sheet_name】に代入させています。
あとはFor文で部数分印刷を繰り返してやれば完了です。
おまけ
指定したセルだけを印刷したい場合は

Range("A1:F35").Select
Selection.PrintOut

A1からF35を範囲選択し、そこのみを印刷します。