第一步:调出VBA窗口 在当前打印票据工作表中按ALT+F11,此时会打开VBA窗口,按工具栏上的“插入-模块”,插入一个用户“模块”,然后把下面代码复制进去: 第二步:输入代码 Sub 打印()s = Range("i2") '收据上的当前序号在I2单元格ActiveWindow.SelectedSheets.PrintOut '调用打印命令打印当前页Range("i2") = Left(s, 2) & Right(s, 10) + 1 '打印完毕后让序号加一End Sub,代码不多,只有五行,其中第四行的 “Right(s, 10) + 1”的意思是从原序号中的右侧取出10位数字,再把这个数字加一。然后与“left(s,2)”组合成一个新的序号赋值给I2单元格。 这个“left(s,2)”表示从原序号的左侧取出两个字符,即“№”与后面的一个空格。 注意:在这个例子中,我们的票据序号在i2单元格。 第三步:添加按钮 上面这些完成后,就可以使用这个功能了,但为了方便使用代码,还要在收据的旁边添加一个按钮,每次按动这个按钮,就会调用上面的代码,完成打印并使序号加1。 |
|