关于自动改变序号，自动打印

27287

公司要做资料卡，总共一千多张，请问下能不自动改变序号，打印，然后依此类推，自动打印出来。就不用人工一张一张的操作。（工作表太大，传不上，我就截几张图）

szqhb

是通过G1单元格查询得到此表格吗？？？？？
“汇总表”可以上传几行数据，我帮你设计一下，没有看到附件不好说
假如通过G1单元格查询的话，用下面代码，按钮自己整，自己设置打印区域
Sub 批量打印，编码自增()
Dim i&
T = InputBox("请输入需连续打印的份数", "注意：通过此按钮打印才有连续编号", "1")
ActiveSheet.PrintOut '打印当前工作表
For i = 1 To T
    [G1] = [G1] + 1
Next
End Sub

[ 本帖最后由 szqhb 于 2011-4-7 21:02 编辑 ]

yscd737611

把编号设成页眉，页码设成自动应该可。不过这样只有打出来或预览能看见。

27287

嗯，是通过G1单元格查询得到的。
谢谢，我研究一下。