怎样使用VBA页面设置？

1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行

Sub页面设置()

  With ActiveSheet.PageSetup
      .PrintArea=ActiveSheet.UsedRange.Address  '打印区域
      .PrintTitleRows="$1:$3"               '行标题
      .PrintTitleColumns=""                 '列标题
      .LeftMargin=Application.InchesToPoints(0.2)  '设置左边距的大小
      .RightMargin=Application.InchesToPoints(0.2)  '设置右边距的大小
      .TopMargin=Application.InchesToPoints(0.5)   '设置上边距的大小
      .BottomMargin=Application.InchesToPoints(0.5)'设置底端边距的大小
      .HeaderMargin=Application.InchesToPoints(0.2)
                                      '设置页面顶端到页眉的距离
      .FooterMargin=Application.InchesToPoints(0.2)
                                      '设置页脚到页面底端的距离
    .PrintComments=xlPrintNoComments        '不打印批注
    .CenterHorizontally=True               '垂直居中
    .CenterVertically=True                '水平居中
    .Orientation=xlPortrait '页面方向：xlPortrait为纵向，xlLandscape为横向
    .PaperSize=xlPaperA4                  '纸张大小为A4
    .Order=xlDownThenOver                 '先行后列方式打印
    .Zoom=100                           '不进行缩放
End With
End Sub

5、用快捷键Alt+F8调出运行宏窗口，然后单击“执行”按钮，工作表已按需求做好打印设置