怎样使用VBA页面设置

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

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

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

4、在模块当中输入如下代码，然后运行Sub页面设置() With ActiveSheet.PageSetup .PrintArea=Activ髫潋啜缅eSheet.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 WithEnd Sub

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