Yes I have,

this is the code which comes before

sLijst.PageSetup.PrintArea = ""
sLijst.ResetAllPageBreaks

sLijst.PageSetup.PrintArea = "$A$1:$" & GET_Col(sLijst.Cells(1016, 2)) & "$"
& sLijst.Cells(1013, 2)

sLijst.PageSetup.FitToPagesWide = 1
sLijst.PageSetup.FitToPagesTall = Int(40 / sLijst.Cells(1017, 2)) + 1

sLijst.PageSetup.PrintTitleRows = ""
If (sLijst.Cells(1018, 2) 0) Then
sLijst.PageSetup.PrintTitleRows = "$1:$" & sLijst.Cells(1018, 2)
End If

I will remove this and see what happens.

Thanks
Jos

"NickHK" schreef in bericht
...
Jos,
On the Page setup,do you have the Scaling set to "Fit To" ?

NickHK

"Jos Vens" wrote in message
...
Hi,

I have a problem to establish horizontal pagebreaks for my worksheet.

The PrintArea is set from cell A1 to cell M300. I hide rows if they may
not
be seen.

this is the code I use:

sLijst.HPageBreaks.Add Befo=sLijst.Cells(vRow, 1)

where sLijst is the reference to the worksheet and vRow is the row
(integer
< 300) before which the pagebreak must be established. I make the
breaks
in
a loop where vRow is added by 40 each time. No breaks are made.

Thanks for your help
Jos Vens