PageSetup | ExcelOffice【微信公众号：水星Excel】

如何用vba设置word文档的页边距？

2020年3月15日作者：水星Excel

3,036 次浏览暂无评论

要在vba中设置word问的页边距，可以通过PageSetup对象设置。

代码如下所示：

Sub exceloffice()
    '作者QQ：1722187970，微信：xycgenius，微信公众号exceloffice
    Dim oDoc As Document
    Set oDoc = Word.ActiveDocument
    Dim oT As Table
    Dim oRow As Row
    Dim oColumn As Column
    With oDoc
        Dim oPS As PageSetup
        Set oPS = .PageSetup
        With oPS
            '左边距
            .LeftMargin = Word.CentimetersToPoints(2)
            '上边距
            .TopMargin = Word.CentimetersToPoints(2)
            '右边距
            .RightMargin = Word.CentimetersToPoints(1)
            '下边距
            .BottomMargin = Word.CentimetersToPoints(3)
        End With
    End With
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

Sub exceloffice()

'作者QQ：1722187970，微信：xycgenius，微信公众号exceloffice

Dim oDoc As Document

Set oDoc = Word.ActiveDocument

Dim oT As Table

Dim oRow As Row

Dim oColumn As Column

With oDoc

Dim oPS As PageSetup

Set oPS = .PageSetup

With oPS

'左边距

.LeftMargin = Word.CentimetersToPoints(2)

'上边距

.TopMargin = Word.CentimetersToPoints(2)

'右边距

.RightMargin = Word.CentimetersToPoints(1)

'下边距

.BottomMargin = Word.CentimetersToPoints(3)

End With

End Sub

[……]

阅读全文>>>

如何用vba单独设置word页面的纸张方向？

2019年6月26日作者：水星Excel

4,141 次浏览暂无评论

要用vba设置word文档的页面纸张方向为横向还是纵向，需要用到PageSetup对象。

在word vba中Document 、Range、Selection、Section 对象均可以返回PageS[……]

阅读全文>>>

如何用vba设置工作表的打印顶端标题行和重复打印列？

2019年2月25日作者：水星Excel

4,473 次浏览暂无评论

要用vba设置工作表的打印顶端标题行和重复打印列，可以使用PageSetup对象的PrintTitleColumns属性和PrintTitleRows属性。

以下VBA代码举例设置工作表的打印顶端标题行[……]

阅读全文>>>

如何用vba将excel工作表的打印设置为横向或纵向？

2019年2月25日作者：水星Excel

5,670 次浏览暂无评论

在excel的“页面布局”选项卡下可以设置纸张的方向。

比如设置为横向或纵向。

在vba中可以通过设置PageSetup对象的Orientation属性调整工作表的纸张打印方向。
[crayon[……]

阅读全文>>>

如何用vba获取excel工作表打印的总页数？

2019年2月25日作者：水星Excel

5,503 次浏览暂无评论

在打印excel工作簿文件时，每个excel工作表会按照顺序依次打印。

每个excel工作表根据数据内容和页面布局设置可以打印一页或者多页。

如果要用vba获取每个工作表实际打印出来的页数，需要使[……]

阅读全文>>>

如何用vba设置word文档的页边距？

如何用vba单独设置word页面的纸张方向？

如何用vba设置工作表的打印顶端标题行和重复打印列？

如何用vba将excel工作表的打印设置为横向或纵向？

如何用vba获取excel工作表打印的总页数？

感谢你的支持，我将持续地写出更好的文章。

热门文章

微信公众号

如何用vba设置word文档的页边距？

如何用vba单独设置word页面的纸张方向？

如何用vba设置工作表的打印顶端标题行和重复打印列？

如何用vba将excel工作表的打印设置为横向或纵向？

如何用vba获取excel工作表打印的总页数？

感谢你的支持，我将持续地写出更好的文章。

本站精华

热门文章

微信公众号