[已解决]求助凭证批量打印问题

lgpoo · 发表于 2012-6-15 15:05

求助凭证批量打印

	求助
1	如何将这页的凭证打印到“凭证打印工”工作表中
	为了解决纸张，要两张凭证打印成一张纸
	一次性点击按钮，所有凭证打印完成

2	如果打印确定编号的凭证该如何打印


	里面Sub separate()已经能够将金额分开录入到每个单元格
	或者给我一个思路，该如何处理，用什么语法。

最佳答案

zjdh

2012-6-16 16:26

本帖最后由 zjdh 于 2012-6-17 09:17 编辑

凭证批量打印.rar (14.29 KB, 下载次数: 131)

zjdh · 发表于 2012-6-15 15:44

你连一个标准样张都没提供！
合计数据就不要打印啦？

lgpoo · 发表于 2012-6-15 16:22

zjdh 发表于 2012-6-15 15:44
你连一个标准样张都没提供！
合计数据就不要打印啦？

哦是哦合计数也要打印
我还没考虑到这个问题
我刚考虑如何选取出一张凭证内需要的内容
不知道从哪里着手

豆丁 · 发表于 2012-6-16 15:06

有多少免费会计软件呀，用不着写一个VBA了

zjdh · 发表于 2012-6-16 16:26

本帖最后由 zjdh 于 2012-6-17 09:17 编辑

凭证批量打印.rar (14.29 KB, 下载次数: 131)

lgpoo · 发表于 2012-6-17 08:17

zjdh 发表于 2012-6-16 16:26

大哥，哦不，我的偶像
请允许我发自内心、发自肺腑的赞美你
崇拜你
顶你
你太伟大、太神奇了
我已经研究一个月了您居然帮我解决了
我太崇拜你了
我爱你阿门

lgpoo · 发表于 2012-6-17 08:18

你就是神
您无私的帮助将让我铭记于心

zsd5237 · 发表于 2012-6-17 08:59

zjdh 发表于 2012-6-16 16:26

打印凭证的金额拆分不对！如：8000元，在打印凭证上只有80元。

lgpoo · 发表于 2012-6-17 09:09

zjdh 发表于 2012-6-16 16:26

不过还有一点不懂的地方
假如有小数该如何处理

E =2 E 没定义直接用的还是别的什么意思

If .Range("B13").End(3)(2).Row = 5 Then e = 3
这个End（3）（2）是什么意思

lgpoo · 发表于 2012-6-17 09:09

zsd5237 发表于 2012-6-17 08:59
打印凭证的金额拆分不对！如：8000元，在打印凭证上只有80元。

可能要将原来金额 *100 来取长度

		自动登录	找回密码
密码			注册