您的位置： 无忧文档所有分类IT/计算机计算机软件及应用 设置打印区域VBA代码

设置打印区域VBA代码

如何设置（或用公式）在打印时分析表格A1的内容，如A1="1”打印区域(B20:G40)的内容,A1="2”打印区域(H100:J150)的内容,A1="3”打印区域(K50:P140)的内容,A1="4”...........

这个要用宏代码

试试

先画一个命令按钮，操作如下：

点击菜单栏：视图—工具栏—visual basic，弹出的"visual basic”浮动工具栏中，点击第5个“控件工具箱”图标，然后点击弹出的浮动工具条左边从上往下数第4个按钮“命令按钮”，现在鼠标指针变成“+”十字形，拖动鼠标就可以画出一个命令按钮了，上面的名字是英文的可以改，暂时不管它

双击画好的命令按钮会弹出代码窗口，复制如下内容粘贴到光标所在处，其他不改

Select Case Range("A1")

Case 1

ActiveSheet.PageSetup.PrintArea = "$B$20:$G$40"

Case 2

ActiveSheet.PageSetup.PrintArea = "$H$100:$J$150"

Case 3

ActiveSheet.PageSetup.PrintArea = "$K$50:$P$140"

End Select

还可以根据需要增加 case 4 case 5，。。。。。

按alt+F11,把代码编辑器最小化，回到excel表，"visual basic”浮动工具栏中，点击第5个“控件工具箱”图标，以取消设计模式，现在在A1输入相应的值，然后单击命令按钮，则对应的区域就被选中，再按打印按钮就ok了，当然也可以直接把打印的命令加到上面那段代码中，则一键完成选择并打印。

打印代码可以自己录制，如把这句加到上面代码的最后一行

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

第1页

你可能喜欢

  • VBA常用
  • Excel教程
  • VBA程序设计
  • Excel使用技巧大全(超
  • Excel编程
  • VBA语句
  • 合并工作表

设置打印区域VBA代码的相关文档搜索

设置打印区域VBA代码相关文档

最新文档

返回顶部