如何设置（或用公式）在打印时分析表格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
Sub 批量重设置打印区域（）
  Dim sht As Worksheet
  For Each sht ln Worksheets
  If Not IsEmpty（sht.UsedTange）Then
Sht.PageSetup.PrintArea=sht.UsedRange.Address
  Else
Sht.PageSetup.PrintArea=””
  End If
  Next
End Sub

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。