Excelのマクロで指定したセルを枚数分印刷をしたいです。

Excelの、マクロで
指定したセルを印刷したいです。
また、E2のセルに印刷したい枚数を入力しその分だけ印刷したいです。

Sub ボタン1_Click()
Worksheets("入荷").Range("B2:D3").PrintOut Copies:=Sheets("入荷").Range("E2").Value ActivePrinter:="Brother QL-700"
End Sub

エラーになってしまいどのようにすればよろしいでしょうか？
どうぞご教授の程よろしくお願い致します。

No.2 ベストアンサー 回答者： nekoronda 回答日時： 2020/07/18 13:54

エラーで分かりました。

Worksheets("入荷").Range("B2:D3").PrintOut Copies:=Sheets("入荷").Range("E2").Value, ActivePrinter:="Brother QL-700"
ですね。
Valueの後に","つけてください。

この回答へのお礼

ありがとうございます。出来ました！

お礼日時：2020/07/18 13:57

No.1 回答者： nekoronda 回答日時： 2020/07/18 13:35

どんなエラーが出てるのか分からないので、はっきりしたことは言えませんが、

プリンター名は正しいのですか？

この回答へのお礼

コメントありがとうございます。

プリンタ名は正しいです。
１枚でしたら
Sub ボタン1_Click()
Worksheets("入荷").Range("B2:D3").PrintOut ActivePrinter:="Brother QL-700"
End Sub
これで印刷可能です。
これに指定した枚数を印刷したいと思っております。

コンパイルエラー：修正候補：ステートメントの最後
とでてます。

お礼日時：2020/07/18 13:43