質問: エクセルVBA Copies:CInt(Range("A1").Value) 印刷一枚しか出ない。
回答: やってみたら、そのプログラムで枚数分印刷されました。プログラムは正しいです。 プリンターの方の問題たと思います。複数枚印刷未対応なのか。そのような設定になっているのか。 ループで複数回印刷した方がいいです。 不要かもしれませんが、サンプルを上げます。 こうすれば、部毎に印刷されるので、分けるのが楽だと思います。 Option Explicit ' Sub Macro1() Const conStart As Long = 1 Const conEnd As Long = 87 Const conStep As Long = 2 Const conCell As String = "B1" Dim PCount As Integer Dim Number As Integer ' Application.ScreenUpdating = False ' For PCount = 1 To [A1] ' For Number = conStart To conEnd Step conStep Range(conCell) = Number ActiveSheet.PrintOut Next Number, PCount End Sub