请教怎么实现EXCEL在打印时自动生成单据编号

星晴满忆

请大神帮帮忙谢谢，我做了张打印单据，想每打印自动生+1成新的标号,还有自动生成序号和统计件数。

星晴满忆

有大神看到吗？在线等

hhjjpp

1. Private Sub CommandButton1_Click()
   
2. Dim no$
   
3. no = Format(Now, "yyyymm")
   
4. [q2] = IIf(no = Left([q2], 6), [q2] + 1, no * 1000 + 1)
   
5. Me.PrintOut
   
6. ActiveWorkbook.Close True
   
7. End Sub

复制代码

星晴满忆

可以帮我找个表也弄成这样吗？

星晴满忆

hhjjpp 发表于 2016-10-27 15:14

你好谢谢你，真的帮了我大忙
也向你道歉我不会编写，可以再帮我弄多个入库单吗？

星晴满忆

hhjjpp 发表于 2016-10-27 15:14

谢谢你，我不会编，你还可以帮我编多个入库单吗？下楼有发表格，谢谢

hhjjpp

星晴满忆 发表于 2016-10-27 16:03
谢谢你，我不会编，你还可以帮我编多个入库单吗？下楼有发表格，谢谢

代码5句都不到，3个函数、2个方法……
其实把3个q2都改成p2就行了！

星晴满忆

hhjjpp 发表于 2016-10-27 16:07
代码5句都不到，3个函数、2个方法……
其实把3个q2都改成p2就行了！

好的，我试试。谢谢

星晴满忆

hhjjpp 发表于 2016-10-27 15:14

你好，麻烦你一下，可以再帮我编辑一下打印自动保存指定文件夹吗？

hhjjpp

星晴满忆 发表于 2016-11-3 10:46
你好，麻烦你一下，可以再帮我编辑一下打印自动保存指定文件夹吗？

第5句后加
ActiveWorkbook.saveas ……
跟文件全路径及文件全名