- ;;在当前活动单元格前插入分页符 的示例代码
- (setq sheet (vlax-get-property xlapp "ActiveSheet")) ;_ 取得当前表单
- (setq HPageBreaks (vlax-get-property sheet "HPageBreaks")) ;_ 换页符
- (vlxls-cell-put-active xlapp "A10") ;_ 设置单元格A10为当前活动单元格
- (vlax-invoke-method HPageBreaks 'Add (vlax-get-property xlapp "Activecell")) ;_ 在当前活动单元格前插入分页符
|