作者：乔山办公网日期：
返回目录：excel表格制作
如果你抄的这个袭工作表，只百有一个页面，度假设知张数填在A1中，则道
sub mPrint()
with activesheet
.[a1]=.[a1]+1
.printout
end with
end sub
这个来只能通过VBA来实现，在workbook的BeforePrint事件中来响应
右键任意一个工作自表标签——查看代码，然后左边工程资源管理器中选择对应百工作簿的thisworkbook对象，在右边代码窗口中输入：
'（”度工作表名"可根据问需要修改，CELLS(1，1)为在工作表的A1单元格显示答，可根据需要修改）
Private Sub Workbook_BeforePrint(Cancel As Boolean)
worksheets("工作表名").Cells(1, 1).Value = worksheets("工作表名").Cells(1, 1).Value + 1
End Sub
写VBA代码Workbook_BeforePrint触发事件....
1、打开一个excel表格。
2、在百表格中的第一列和第二列分别输入1、3。
3、鼠标度在第知一个单元格中，点击鼠标左键不放，拖动到第二个单元格中，然后松开鼠标。
4、然后鼠标放在第二个单元格的右下角处，当鼠标指针道变成一个加号的时候，按住鼠标左键不放，往下拖专动。
5、此时，鼠标拖动过的单元格内，都会自属动从上至下依次加2填入单元格内。