如何获取分页符的位置呢 前辈们

一呼吸一世界

悠扬的旋律

HPageBreak 对象-Properties-Location
我一般会用这个重新设置位置而不是读取位置
也许可以尝试遍历HPageBreaks看看

quqiyuan

For Each hp In Sheet1.HPageBreaks
      Debug.Print "分页符位置在：" & hp.Location.Address
Next

一呼吸一世界

quqiyuan 发表于 2024-8-22 22:31
For Each hp In Sheet1.HPageBreaks
      Debug.Print "分页符位置在：" & hp.Location.Address
Next

没反应啊 是不是没发全啊 老师

一呼吸一世界

悠扬的旋律 发表于 2024-8-22 21:09
HPageBreak 对象-Properties-Location
我一般会用这个重新设置位置而不是读取位置
也许可以尝试遍历HPage ...

我就是想获取分页符 以此来确定第1页的区域 然后直接打印 老师

醉眼看尘世

一呼吸一世界 发表于 2024-8-22 22:53
我就是想获取分页符 以此来确定第1页的区域 然后直接打印 老师

如下代码将打印第1~3页
ACtivesheet.PrintOut 1,3

悠扬的旋律

我试了可以的

1. Sub S20240822_225618_xx_Macro1()
   
2. 
   
3.     For Each HPageBreak In ActiveSheet.HPageBreaks
   
4.         Address = HPageBreak.Location.Address
   
5.     Next
   
6.    
   
7. End Sub

复制代码

一呼吸一世界

醉眼看尘世 发表于 2024-8-22 22:56
如下代码将打印第1~3页
ACtivesheet.PrintOut 1,3

好的 谢谢老师

一呼吸一世界

悠扬的旋律 发表于 2024-8-22 22:59
我试了可以的

嗯嗯 我在您的基础上修改了下 可以了 老师 谢谢您