automatically put in page break after 14 lines.

[Steved]

Hello from Steved

Is it possible please to have a line break put in after every 14 lines please.

If this is possible How.

Thankyou.

[Nigel]

You are limited to 1026 Horizontal page breaks per worksheet, so you cannot
fill you whole sheet of 65536 rows every 14 lines. But if you need less
than 1026 try this....... set the xr range to the maximum number of used
rows.

Sub PageBreaks()
Dim xr As Long
For xr = 15 To 500 Step 14
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Cells(xr, 1)
Next xr
End Sub

--
Cheers
Nigel



"Steved" <Steved@discussions.microsoft.com> wrote in message
news:C89E424F-A4B6-41C3-A0D6-A76A22802B6B@microsoft.com...
> Hello from Steved
>
> Is it possible please to have a line break put in after every 14 lines
please.
>
> If this is possible How.
>
> Thankyou.
>
>

[Steved]

Excellent thanks very much

I only reqiure just over 50, so this will do nicely.

"Nigel" wrote:

> You are limited to 1026 Horizontal page breaks per worksheet, so you cannot
> fill you whole sheet of 65536 rows every 14 lines. But if you need less
> than 1026 try this....... set the xr range to the maximum number of used
> rows.
>
> Sub PageBreaks()
> Dim xr As Long
> For xr = 15 To 500 Step 14
> ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Cells(xr, 1)
> Next xr
> End Sub
>
> --
> Cheers
> Nigel
>
>
>
> "Steved" <Steved@discussions.microsoft.com> wrote in message
> news:C89E424F-A4B6-41C3-A0D6-A76A22802B6B@microsoft.com...
> > Hello from Steved
> >
> > Is it possible please to have a line break put in after every 14 lines
> please.
> >
> > If this is possible How.
> >
> > Thankyou.
> >
> >
>
>
>