マクロでセルの数字の数枚印刷

Selection.PrintOut Copies:=Range("A1").Value, Active Printer:="canon ＊＊＊＊"

で印刷しても複数枚印刷できません｡
もちろんA1の数字を色々変更してみましたがどうしても一枚しか印刷できません｡

質問者からの補足コメント

• 勿論アクティブシートにあります｡

  No.1の回答に寄せられた補足コメントです。 補足日時：2017/08/31 17:01

• 書き忘れてました｡具体的な数値でも出来ないんです｡

  No.3の回答に寄せられた補足コメントです。 補足日時：2017/08/31 17:45

• すいません解決しました

    補足日時：2017/08/31 18:55

No.4 ベストアンサー 回答者： GooUserラック 回答日時： 2017/08/31 17:55

ドライバーを完全に削除して再起動してから、再度ドライバーを説明書に忠実にインストールしてみてください。

(忠実にとは、ドライバーをインストールする前には接続してはいけません。インストール途中で「接続してください」などのメッセージが表示されてから接続してください。などです)

この回答へのお礼

丁寧に有難うございました

お礼日時：2017/08/31 18:56

No.3 回答者： GooUserラック 回答日時： 2017/08/31 17:37

滅多にないとは思いますが念の為の実験として「Range("A1").Value」を直接数値に変えたらその枚数で印刷されますか？

あくまでもドライバなどで複数枚指定がキャンセルされないかのテストです。

No.2 回答者： neKo_deux 回答日時： 2017/08/31 15:57

自分のところだと、下記で指定部数印刷できます。

ActiveWindow.SelectedSheets.PrintOut Copies:=Range("A1").Value


A1の書式が文字になっているので、例えばA1に「3」って入れても、文字列の"3"が渡されて適切に処理されないとか。
であれば、
Copies:=Range("A1").Value
↓
Copies:=Val(Range("A1").Value)
としてみるとかでは。


対症療法だと、Forなどでループして3回印刷とか。

No.1 回答者： GooUserラック 回答日時： 2017/08/31 15:53

念の為ですが、枚数指定されている A1セルはアクティブシートに有りますか？

以下のような感じでシート名も指定しても変わりませんか？
「Selection.PrintOut Copies:=Sheets("Sheet1").Range("A1").Value, Active Printer:="canon ＊＊＊＊"」