VBA读取工作表页面设置参数

yjwdjfqb

VBA读取工作表页面设置参数各位老师好，请老师们帮帮忙，帮做下，读取指定工作表的页面设置参数
非常感谢老师们！

1. Sub test()
   
2. 
   
3. Dim aa
   
4. Dim bb
   
5. Dim cc
   
6. Dim dd
   
7. 
   
8. 
   
9. MsgBox "当前工作薄“表一”工作表，上面边距是：" & aa
   
10. 
    
11. MsgBox "当前工作薄“表一”工作表，页眉距离是：" & bb
    
12. 
    
13. MsgBox "当前工作薄“表一”工作表，页脚距离是：" & cc
    
14. 
    
15. MsgBox "当前工作薄“表一”工作表，顶端标题行是：" & dd
    
16. 
    
17. End Sub
    

复制代码

VBA读取工作表页面设置参数.rar (42.25 KB, 下载次数: 4)

2019-12-9 22:06 上传

点击文件名下载附件

ww0000

我也想知道，有答案了吗？

zhsiyu9600

MsgBox "上边距为" & Sheet6.PageSetup.TopMargin & "磅" & Chr(13) _
        & "左边距为" & Sheet6.PageSetup.LeftMargin & "磅"