Excel插入换页符vba转易语言方法求助~

179564128

不知道怎么写，想在制定单元格的位置插入分页符，实现分页打印。打印控件太麻烦了。求助大神帮忙谢谢。


VBA代码可以实现不过不知道易语言里面需要怎么写。



Sub 宏1()
    Range("A7").Select
    ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
End Sub





附件链接: https://pan.baidu.com/s/18a1DM4agT87bzF6rnQfzdA
提取码: khw7

179564128

最后还是乱打乱撞得写出来了。

[password]    子程序名 返回值类型 公开 备 注 置分页符 逻辑型   参数名 类 型 参考 可空 数组 备 注 分页符位置 文本型 ' 属性写入格式: 〈整数型〉 对象.写属性 ("PageBreak",欲写入属性值) ' 参数<1>的名称为“欲写入属性值”,类型为“整数型”。 返回 (Excel.对象型方法 (“Range”, 分页符位置).写属性 (“PageBreak”, -4135)) .版本 2<br /> .子程序 置分页符, 逻辑型, 公开, <br /> .参数 分页符位置, 文本型<br /> ' 属性写入格式: 〈整数型〉 对象.写属性 ("PageBreak",欲写入属性值)<br /> ' 参数<1>的名称为“欲写入属性值”,类型为“整数型”。<br /> 返回 (Excel.对象型方法 (“Range”, 分页符位置).写属性 (“PageBreak”, -4135)) [/password]

179564128

弄了好久搞不掂，不知哪位高手能教一下。顶起

179564128

悬赏不够再加，别沉下去了。