Printing macro

[AndreaG]

I have tried to write some code to set up a print macro, but I can't get it to work.
Basically I want to print C100:P167, then C200:P267, C300:P367. I need to repeat this 425 times, starting 100 rows down each time. I have the following so far:

Sub printeachcontracttest()​

'​

' printeachcontracttest Macro​

'​

​

Dim i As Long​

​

​

​

For i = 100 To 106​

Range("c" & i, "p" & i + 67).Select​

ActiveSheet.PageSetup.PrintArea = Range("c" & i, "p" & i + 67)​

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _​

IgnorePrintAreas:=False​

i = i + 100​

Next i​

'​

​

End Sub

​

What have a done wrong?

Thank you!
Andrea

 

[mole999]

I think this may be wrong For i = 100 To 106

For i = 100 To 4250 step 100

i = i + 100 just becomes next I

step through with f8 to check

 

[AndreaG]

Thank you.
I now have (having reduced the repetitions until I get it right):

Sub printeachcontracttest()
'
' printeachcontracttest Macro
'


Dim i As Long



For i = 100 To 500 Step 100
Range("c" & i, "p" & i + 67).Select
ActiveSheet.PageSetup.PrintArea = "$C$100:$P$167"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
i = i + 100
Next i
'

End Sub

This selects the cells for printing, but still prints out the same range "$C$100:$P$167". I have tried removing the $ but this doesn't make a difference, and if I replace range with "Range("c" & i, "p" & i + 67)" it won't work. it feels like I have some code I don't need, as it is selecting the right cells but printing different ones. Any help appreciated as my client is requesting these print outs!
Many thanks
Andrea

 

[mole999]

Range("c" & i, "p" & i + 67).Select
ActiveSheet.PageSetup.PrintArea = "$C$100:$P$167"

Range("c" & i, "p" & i + 67).Select
ActiveSheet.PageSetup.PrintArea = .Range("c" & i, "p" & i + 67)

MAYBE

LEAVE THIS OUT i = i + 100