[目的]
想在固定行前添加分页符

[找到的方法]
方法一： eole.Worksheets("Sheet1").Rows(50).PageBreak = 1

方法二:  eole.ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Cells(50, 1) 此方法没实验，因为结尾部分感觉也出问题

方法三： Set eole.ActiveSheet.HPageBreaks(1).Location = eole.Range("A50")

[问题描述]
法一和法二不能除掉EXCEL系统自带的虚线分页符（此情况出现于自己设置的分页符在一页以外）
法三在VBA中运行完美，定位精确，不出现虚线分页符
但是在VFP中方法三连保存都不允许，更别谈编译了,提示的错误是：“命令中含有不能识别的短语或关键字”

希望哪位同志能帮助一下， VBA 中set 语句如何在VFP中使用，另外，eole.Selection.Delete  -4162 结尾的数字在VFP中也导致无法保存。

继续顶起

把set去掉以后，不再报错，但是语句不起作用了。

没有在指定的行前添加分页符

取消分页符那句无效果

目前想把图中的虚线分页符删除，保留我自己设置的实线分页符(因为我设置的分页符在一页之外)

用我的方法三就不会出现系统自带的虚线分页符，但是我不会使用VBS

[此贴子已经被作者于2021-10-29 11:03编辑过]

什么软件能将代码贴出来，还带着色和加粗

这是什么原理呢？还有为何要用方括号，圆括号不行吗？

  nRow = 0
  nPageBreaks = 0
  nRow = (bjs + 2) * 3 '&&每页行数
  nPageBreaks = Int(CountA(ActiveSheet.Range("A:A")) / nRow) '&&分页符数
  For i = 1 To nPageBreaks
       ActiveSheet.Rows [i*nRow+1].PageBreak = 1
  Next i

因为我的测试环境是VBA，成功后再添加到VFP中，所以首先进行了VBA测试，但是
发现CountA函数和Count函数 显示“子过程或函数未定义”

[此贴子已经被作者于2021-10-29 11:52编辑过]

VBA中试验的结果如下



有自带的虚线分页符和我设的实线分页符

 bjs = 14
  ActiveSheet.ResetAllPageBreaks
  Cells(48, 2).PageBreak = -4142
  
  nRow = 0
  nPageBreaks = 0
  nRow = (bjs + 2) * 3 '&&每页行数
  nPageBreaks = Int(Application.CountA(ActiveSheet.Range("A:A")) / nRow) '&&分页符数
  
  For i = 1 To nPageBreaks
       ActiveSheet.Rows(i * nRow + 1).PageBreak = 1
  Next i
  

[此贴子已经被作者于2021-10-29 13:52编辑过]