VBA ユーザーフォームの印刷について

ユーザーフォームの印刷で、このようなコードがあります。
Sub ABC ()

UserForm1.PrintForm
Unload UserForm1

End Sub
これで、印刷部数を指定するコードありますか？
分かる方、教えてください。

No.1 回答者： GooUserラック 回答日時： 2019/12/15 10:09

リファレンスを見る限り何も無さそうです。

https://docs.microsoft.com/ja-jp/office/vba/lang …

No.2 ベストアンサー 回答者： Qchan1962 回答日時： 2019/12/15 14:45

Forで回すとか？そんな事ではないかもですが、、

例として

Private Sub UserForm_Click()
Dim i, j
j = Application.InputBox(Prompt:="数字を入力してください。", Type:=1) 'Sheets(1).Range("A1")
If j > 0 Then
For i = 1 To j
UserForm1.PrintForm
Next
End If
Unload UserForm1
End Sub

この回答へのお礼

素晴らしい！Forは思いつかなかったです。ありがとうございます。

お礼日時：2019/12/15 16:01