会不会被拒签啊？

EXCEL难题跪求！！！求助各位

解决这个问题最好的方法就是用宏了，做一个简单的循环，打印一张改一下页码。 具体代码如下，应该可以通用。记得打印前将电脑上的默认打印机设置为虚拟打印机，以免浪费纸张，调试好之后，可以将默认打印机再改成真实的打印机，运行一下宏就万事OK了。 Option Explicit Sub 打印表格() On Error Resume Next Dim rng As Range, i%, j% Set rng = Application。 InputBox("请选择要打印的表格所在单元格区域", "选择单元格", Type:=8) If Not rng Is Nothing Then j = In...全部

  解决这个问题最好的方法就是用宏了，做一个简单的循环，打印一张改一下页码。 具体代码如下，应该可以通用。记得打印前将电脑上的默认打印机设置为虚拟打印机，以免浪费纸张，调试好之后，可以将默认打印机再改成真实的打印机，运行一下宏就万事OK了。
   Option Explicit Sub 打印表格() On Error Resume Next Dim rng As Range, i%, j% Set rng = Application。
  InputBox("请选择要打印的表格所在单元格区域", "选择单元格", Type:=8) If Not rng Is Nothing Then j = InputBox("请输入要打印的页数，只能输入正整数！", "数值输入", 30) '定义需要打印的页数 If IsNumeric(j) Then If Val(j) > 0 Then For i = 1 To j rng。
  Cells(rng。Rows。Count - 1, Int((rng。Columns。Count + 1) / 2)) = "第 " & i & " 页，共 " & j & " 页" rng。
  PrintOut Next i End If End If End If Set rng = Nothing End Sub。收起