エクセルのマクロの編集で困っています。

質問

エクセルの印刷のマクロで
Range("A1:A12").Select
Selection.PrintOut Copies:=1
Range("D2").Select
End Sub
のマクロで　Copies:=1の枚数を
任意の枚数にしたいのですが、どのように記述したらよいか
解りません。１を"?"に変えると
実行エラー’１００４’
RangeクラスのPrintOutメッソドが失敗しました。
のエラーが出ます。
よろしくお願い致します。

回答No.2

silverfd · ベストアンサー

#1の方の方法でもいいのですが、多分やりたいのは、印刷時に枚数を入力するポップアップという形？
だとしたらこうして下さい。

Sub myPrint()

Dim intPrintNum As Integer

On Error Resume Next
intPrintNum = InputBox("枚数を入力して下さい", "印刷")
On Error GoTo 0
If intpritnum = 0 Then
MsgBox "中止しました"
Exit Sub
End If
Range("A1:A12").Select
Selection.PrintOut Copies:=intPrintNum
Range("D2").Select

End Sub

お礼

早速の回答を頂きありがとうございました。
かなり役に立ちました。
重ね重ねお礼申し上げます。

回答No.4

hallo-2007

任意の枚数にしたいのですが、どのように記述したらよいか
事前に印刷したい枚数を準備する必要があります、一例ですが
INPUTBOXで枚数を入力します。
i = InputBox("印刷枚数を入力してください", "印刷枚数", 1)
Selection.PrintOut Copies:=i
といった具合にします。
或いは
PrintOut　を
PrintPreview　にしては如何でしょうか。
私は、めんどくさがりなので印刷設定の変更が必要な場合は殆ど
PrintPreviewにして渡して、使う側で変更してもらっています。

お礼

早速の回答を頂きありがとうございました。
かなり役に立ちました。
重ね重ねお礼申し上げます。

回答No.3

hana-hana3

"？"は数値ではないのでエラーになります。
PrintOut の部分にマウスカーソルを置いて、[Ｆ１]キーでヘルプが起動するので構文を確認してください。

下記の用にすると、印刷の都度枚数を指定できます。
デフォルトは１です。

i = InputBox("印刷枚数", , 1)
Selection.PrintOut Copies:=i

お礼

早速の回答を頂きありがとうございました。
かなり役に立ちました。
重ね重ねお礼申し上げます。

回答No.1

wkbqp833

Selection.PrintOut Copies:=1　の　Copies:=1　は、印刷枚数指定ですので、右辺には数値しかダメです（"?" は数字値でないのでエラー）

枚数指定したいのならば、仮に Ｃ１に枚数をセットしておくとして
Selection.PrintOut Copies:=Range("C1").Value でいけると思います

お礼

早速の回答を頂きありがとうございました。
かなり役に立ちました。
重ね重ねお礼申し上げます。