■

Sub PrintWithUserInput()
Dim PrintCount As Long

' 印刷部数を入力させるメッセージを表示
PrintCount = InputBox("印刷する部数を入力してください", "印刷部数", 1)

' 入力された値で印刷を実行
If PrintCount > 0 Then
' プリンタの設定
Application.Dialogs(xlDialogPrinterSetup).Show
' 指定された部数だけ印刷
For i = 1 To PrintCount
ActiveSheet.PrintOut
Next i
Else
MsgBox "無効な部数が入力されました。"
End If
End Sub