打印excel时，怎样做到日期自动累加
比如说要打印一批单子，希望每张单子上都显示出日期，并且日期是从第一张单子中设定的日期后递增，即：第一张打印时为2010-6-1，则第二张为2010-6-2....以此类推
补充：
1、是一张单子需要添加不同的日期；
2、能否连续打印多张时自动累加（试了shuhua0715 童鞋提供的方法，是每次打印单张才会累加）
如果你打印的单是一样的，只是日期不一样的话，就可以推荐你使用此手工方法，但绝对不慢，否则当我没说过。
在你的表单上输入日期的位置简单使用DATE函数即可，如
A1=2010 年
B1=6 月
C1=1 日
如下所示：
A B C
1 2010 6 1
2 日期： =date(a1,b1,c1)
注意使用分页预览吧，把第一行的数字放置在页面外打印不出来即可，把A2和B2的函数拖放到正确的位置去就可以了。
如果要打印6月的30张，就复制30个表吧，呵呵，7月就复制31张，方便好看，一次打印一个月的。关键问题就是把所有的表的C1改成与日期对应的数字即可。
本人曾经做过整月一个文件，也是用这种方法，只是做一个模板，改一下日期就是一天的资料，不同的地方再更改一下也可以。打印的时候选择所有的工作表一起打印，一下就可以出来整月的了
希望能真的解决你的问题，保证此法稳妥，简单、易学，除非你不会打印连续工作表。
EXCEL让日期天数随时间增加而自动显示累加的步骤：
假设：有如下的表格，B列要计算出到今天为止的累计天数。
1、A列的单元格格式必须设置为日期格式；
2、在B2单元格中输入=DATEDIF(A2,TODAY(),"D")；
DATEDIF函数：返回两个日期之间的间隔数；
以上表为例：就是计算单元格A2中的日期到今天为止的间隔数；
"D" ：时间段中的天数；
=DATEDIF(A2,TODAY(),"D")：计算单元格A2中的日期到今天为止的天数差；
3、最后结果如下。
Private Sub Workbook_BeforePrint(Cancel As Boolean)
[a1] = [a1] + 1
End Sub
【连续打印多张也行的】
要不用这个打印程序：
Sub mprint()
x = InputBox("打印几张？")
For i = 1 To x
Me.PrintOut
[a1] = [a1] + 1
Next
End Sub
不改变原始表格数据，打印时自动添加打印日期。