VBA批量打印问题

w1xx2 · 发表于 2019-3-15 14:26

各位大神求支招！窗体选择工作表打印（工作表名是一个软件导出时随机生成的），（每个工作表只要打印A1：F12区域）可是老出错。最后求帮忙加入打印时可以选择打印机的功能。
如附件：（想通过选择打印列表、打印份数、打印按钮控制工作表打印）

朱荣兴 · 发表于 2019-3-15 14:56

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

IVYQQQQQ · 发表于 2019-3-15 15:52

打印模板就一个，为什么搞到多少页呢？只用一个模板，要打印的内容从数据表调用不就好了。

碣石山人 · 发表于 2019-3-15 16:43

hzruziniu · 发表于 2019-3-15 17:25

标签.rar (43.76 KB, 下载次数: 38)

你看一下，是不是这样。

w1xx2 · 发表于 2019-3-16 08:29

IVYQQQQQ 发表于 2019-3-15 15:52
打印模板就一个，为什么搞到多少页呢？只用一个模板，要打印的内容从数据表调用不就好了。

主要是个别几个标签可能需要单独打印多份，多个工作表只是为了更好的操作。

w1xx2 · 发表于 2019-3-16 09:36

hzruziniu 发表于 2019-3-15 17:25
你看一下，是不是这样。

谢谢大神，您提供的表格使用正常，但是删除第一个工作表后，就出错了。烦恼。能不能让这打印按钮在任何情况都可以使用的

hzruziniu · 发表于 2019-3-16 09:52

w1xx2 发表于 2019-3-16 09:36
谢谢大神，您提供的表格使用正常，但是删除第一个工作表后，就出错了。烦恼。能不能让这打印按钮在任何情 ...

你要看这一句代码：If sht.Name <> "ts" Then
就是工作表名称 <> "ts" 的除外，其他都属于打印列表的范围
你删除了"ts"工作表当然出错了。

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

[求助] VBA批量打印问题

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2019-3-15 14:56 \| 显示全部楼层 [广告] ★ ChatOffice，能听会写的AI办公，包含百种Excel、Word、PPT工具，兼容WPS，百倍效率！★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报