| |
▼超初心者です。 さん：
こんにちは
おそらく、2007か2010でマクロ記録をしたコードをベースにしておられますね。
2003 でマクロ記録しますと IgnorePrintAreas:=False は生成されません。
IgnorePrintAreasはシートのPrintOutの引数で、領域のPrintOutでは、これがありません。
それなのに、マクロ記録では、印刷され、かつ、このコードが生成されますね。
2007(または2010)のマクロ生成のバグでしょうか？
Selection.PrintOut Copies:=1, Collate:=True だけでお試しください。
ところで、ループ回数が決まっていますからFor/Nextのほがちょっとスマート？
それと、Select/Selection をしないで記述する方が、ちょっと上級の香り（？）
さらに、コードの最後の Range("EC14:EW24").Select は不要ですよね。
Sub 繰り返し印刷する()
'
' 繰り返し印刷する Macro
'
'
Dim X As Long
For X = 1 To 10
Range("ec14") = X
Range("A1:DM183").PrintOut Copies:=1, Collate:=True
Next
End Sub
|
|
UO3
- 11/12/30(金) 12:02 -
