将A4页面打印成A3书籍折页

vba代码如下

With ActiveDocument.PageSetup '获取原来页边距
    x1=.TopMargin
    x2=.BottomMargin
    y1=.LeftMargin
    y2=.RightMargin
end with
With ActiveDocument.PageSetup
    .Orientation = wdOrientLandscape '纸张横向
    .TopMargin = x1  '上边距
    .BottomMargin = x2 '下边距
    .LeftMargin = y1  '左边距
    .RightMargin = y2  '右边距
    .PageWidth = CentimetersToPoints(41.99) 'A3宽
    .PageHeight = CentimetersToPoints(29.7) 'A3高
    .FirstPageTray = 261  '首页手动纸盒
    .OtherPagesTray = 261  '其他页手动纸盒
    .BookFoldPrinting = True '书籍折页
End With
End Sub