Can't set HPageBreaks

[xL User]

I've tried to set HPageBreaks using example from Help
Set ActiveSheet.HPageBreak(1).Location = ActiveSheet.Cells(row,col)
But during execution I get a run-time error 1004. If I use sintax
ActiveSheet.HPageBreak(1).Location = ActiveSheet.Cells(row,col)
then I don't get any error but in PagePreview there are no page breaks where I expect them.

How to set manual page breaks?

 

[Bill Kuunders]

One way..........
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
Regards
Bill K

 

[xL User]

Thank you. Your example helps me.
After I set
.FitToPagesTall = False
all does well