EXCEl打印时如何每页能自动计算合计数？

没这样统计过，网上看到别人这样做：

首先添加一列“页号”，然后安装每页行数－1的办法输入页码，然后隐藏之。

然后“分类汇总”（以页为关键字分类，对金额一栏求和），注意勾选“每组数据分页”选项。（为避免破坏原始数据，建议复制原始表为一个新的临时表后进行）

后来看到别人一个VBA作品，很不错，现在转过来，也许对你有用：

比如A列是“产品”，B列是“金额”

Dim i, t, l, x, rr, dr, tt As Integer

Dim rrr As String

Public Sub Fyhz()

t = 2

Do

i = InputBox("请输入每页拟打印的行数： （不能超过一页的范围！！！）")

If i <= 0 Or i = "" Then

MsgBox ("每页行数必须大于1！")

Else

Exit Do

End If

Loop

i = Int(i)

x = i + 1

l = Range("A65536").End(xlUp).Row

Do While l >= x

Rows(x + 1).Insert Shift:=xlDown

Cells(x + 1, 1) = "本页小计"

Cells(x + 1, 2).Formula = "=SUM(R[-" + CStr(i) + "]C:R[-1]C)"

ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Rows(x + 2)

x = (i + 1) * t

t = t + 1

l = l + 1

Loop

If l Mod (i + 1) <>1 Then

rr = l Mod (i + 1)

rr = rr - 1

rrr = CStr(rr)

Cells(l + 1, 1) = "本页小计"

Cells(l + 1, 2).FormulaR1C1 = "=SUM(R[-" + rrr + "]C:R[-1]C)"

End If

Cells(l + 2, 1) = "合计"

Cells(l + 2, 2).FormulaR1C1 = "=SUM(R[-" + CStr(l + 1) + "]C:R[-1]C)/2"

Range(Cells(1, 1), Cells(l + 1, 2)).Locked = True

ActiveSheet.Protect

Cells(1, 1).Select

在word中打印时自动添加页数的具体步骤如下：

我们需要准备的材料分别是：电脑、Word文档。

1、首先我们打开需要编辑的Word文档，点击选择插入中的“页眉和页脚”。

2、然后我们在d出来的窗口中可以看到页眉页脚的标志，来到第一页最后处，你可以看到页脚，点击页脚中的输入框内，你会看到插入页码的提示。

3、然后我们点击打开“插入页码”，点击选择想要的样式。

4、之后我们点击选择应用范围为“整篇文档”，点击确定即可。

把合计金额设置在第一行上，并设置打印标题行，就可以在每页的顶端都城显示出合计金额。

1、主菜单。

2、文件。

3、页面设置。

4、在页面设置窗口的工作表项。

5、设置打印标题行。

---