帮我实现在图片的打印模板表中相应位置填写数据后,点击打印按钮自动生成数据表记录(

莞风 · 发表于 2014-4-7 13:46

mineshine · 发表于 2014-4-8 09:31

附件。。。

莞风 · 发表于 2014-4-8 11:19

mineshine 发表于 2014-4-8 09:31
附件。。。

excel怎么上传不了呀

莞风 · 发表于 2014-4-8 11:21

莞风发表于 2014-4-8 11:19
excel怎么上传不了呀

托运单打印.rar (18.12 KB, 下载次数: 61)
ok了

mineshine · 发表于 2014-4-8 11:45

莞风发表于 2014-4-8 11:21
ok了

你应该发到
ExcelVBA程序开发http://club.excelhome.net/forum-2-1.html

仅供参考

Sub 打印()
Dim r As Long, S1 As Worksheet, S2 As Worksheet
Set S1 = Sheets("权健医学")
Set S2 = Sheets("权健记录")
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True '打印
r = S2.[A65536].End(xlUp).Row + 1 'Sheets("权健记录")最后空白行
With S1
'Sheets("权健记录")最后空白行的A:I写入数组："权健医学"工作表的"日期,收货人,收货人地址,目的地,件数,重量,体积,费率,费用"
S2.Cells(r, 1).Resize(, 9) = Array(.[B44], .[A17], .[B20], .[D4], .[A26], .[E26], .[J34], .[B31], .[B37])
End With
End Sub

复制代码

莞风 · 发表于 2015-9-7 22:21

mineshine 发表于 2014-4-8 11:45
你应该发到
ExcelVBA程序开发http://club.excelhome.net/forum-2-1.html

你好，你在吗？我还想麻烦你点事，能加QQ吗？

莞风 · 发表于 2015-9-7 22:47

莞风发表于 2015-9-7 22:21
你好，你在吗？我还想麻烦你点事，能加QQ吗？

高手请帮我开发个附件中我想要得到的格式，谢谢！
http://club.excelhome.net/thread-1228310-1-1.html
(出处: ExcelHome技术论坛)

泡泡游侠008 · 发表于 2016-1-31 13:36

提示: 作者被禁止或删除内容自动屏蔽

小晴儿 · 发表于 2016-2-13 12:53

顶顶顶顶~~~~~~~~~

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

泡泡游侠008 泡泡游侠008 当前离线性别保密 UID 3289277 阅读权限 0 注册时间 2015-12-22 在线时间小时最后登录 1970-1-1 积分 14 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2016-1-31 13:36 \| 显示全部楼层 [广告] ★会Excel,就能做支持PC、手机、Web、App、Windows、安卓、IOS、Linux信息一体化的各种管理系统 ★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报