Jim,

Try replacing this line

..HPageBreaks.Add .Cells(i, 1)

with this:

..Parent.HPageBreaks.Add .Cells(i, 1)


--
Hope that helps.

Vergel Adriano


"Jim May" wrote:

error: Object doesn't support this prop or method... I don't understand..

Public Sub PrintOnly10() 'Rows set (in page setuup) at top to repeat $4:$4

Dim i As Long
Dim MyRange As Range
Dim MyRange1 As Range
Set MyRange = Range("A5").CurrentRegion 'A5 is first row of data
Set MyRange1 = MyRange.Offset(1, 0).Resize(MyRange.Rows.Count - 1, 9)
With MyRange1
For i = 29 To .Rows.Count Step 10
.HPageBreaks.Add .Cells(i, 1) '<< Getting R/T 438
Next i
End With
End Sub