在VBA中怎么样自定义纸张的大小??????

Question

在VBA中怎么样自定义纸张的大小??????
最好给个例子.

Answer 1

Private Sub Command1_Click()
Dim ow As Object
Dim od As Object
Set ow = CreateObject("word.application")
ow.Visible = True
Set od = ow.documents.Add
With od.PageSetup
        .TopMargin = CentimetersToPoints(1)
        .BottomMargin = CentimetersToPoints(1)
        .LeftMargin = CentimetersToPoints(1)
        .RightMargin = CentimetersToPoints(1)
        .Gutter = CentimetersToPoints(0)
        .HeaderDistance = CentimetersToPoints(1)
        .FooterDistance = CentimetersToPoints(1)
        .PageWidth = CentimetersToPoints(40) '页宽
        .PageHeight = CentimetersToPoints(30) '页高
End With
End Sub

Answer 2

忘了，注意在VB中要引用word库