R/T 438 on .HPageBreaks.Add line
Thanks Vergel !!
"Vergel Adriano" wrote:
Hi Jim,
Parent because HPageBreaks is a member of the worksheet object, and not the
range. Since you were working with the range object, you needed refer to
it's parent which is the worksheet object.
--
Hope that helps.
Vergel Adriano
"Jim May" wrote:
Right on; But why the Parent?
"Vergel Adriano" wrote:
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
|