甘肃省新农合票据打印程序

bqhzhh · 发表于 2012-2-27 20:34

我做的甘肃省新农合票据打印程序，请大家指点

xuchu36518172 · 发表于 2012-2-27 20:38

发发达不出

bqhzhh · 发表于 2012-2-27 20:40

点击打印按钮，即可打印，适应于甘肃省

bqhzhh · 发表于 2012-2-27 20:41

我用三年时间才做成的，请大家多指点

bqhzhh · 发表于 2012-2-27 20:43

我用了函数和ＶＢＡ编程做成的，有需要的和我联系，上面有ＱＱ号及电话号码

bqhzhh · 发表于 2012-2-27 20:44

xuchu36518172 发表于 2012-2-27 20:38
发发达不出

你点击打印按钮，不要点打印机

liucqa · 发表于 2012-2-27 20:45

打广告呢，代码里面啥都没有

bqhzhh · 发表于 2012-2-27 20:46

本帖最后由 bqhzhh 于 2012-2-27 20:48 编辑

liucqa 发表于 2012-2-27 20:45
打广告呢，代码里面啥都没有

我把程序保护了，如果谁都能看到的话，就没什么技术含量了

liucqa · 发表于 2012-2-27 20:49

bqhzhh 发表于 2012-2-27 20:46
我把程序保护了，如果谁都能看到的话，就没什么技术含量了

能不能不闹，就这几句代码还保护啥呀

Sub 票据打印()
Dim r As Integer
r = MsgBox("没有最好,只有更好,让我们开发EXCEL资源挖数据软件的墙角。联系人：胡正红联系方式:(手机)13993668357 (QQ)594160859")
Dim p As Integer
p = InputBox("请输入打印初始序号")
Dim q As Integer
q = InputBox("请输入打印终止序号")
For w = p To q
Sheets("数据").Select
Cells(1, 1).Value = w
Sheets("打印").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next
Sheets("数据").Select
End Sub

cxh2010 · 发表于 2012-2-27 20:54

辛苦了，代码看不了，能提供一下吗

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

[分享] 甘肃省新农合票据打印程序