网页
资讯
视频
图片
知道
文库
贴吧
地图
采购
进入贴吧
全吧搜索
吧内搜索
搜贴
搜人
进吧
搜标签
日
一
二
三
四
五
六
签到排名:今日本吧第
个签到,
本吧因你更精彩,明天继续来努力!
本吧签到人数:0
一键签到
成为超级会员,使用一键签到
一键签到
本月漏签
0
次!
0
成为超级会员,赠送8张补签卡
如何使用?
点击日历上漏签日期,即可进行
补签
。
连续签到:
天 累计签到:
天
0
超级会员单次开通12个月以上,赠送连续签到卡3张
使用连续签到卡
04月19日
漏签
0
天
excel吧
关注:
277,552
贴子:
1,510,880
看贴
图片
吧主推荐
视频
游戏
22
回复贴,共
1
页
<<返回excel吧
>0< 加载中...
一个关于VBA的问题
只看楼主
收藏
回复
624125142
E见钟情
1
该楼层疑似违规已被系统折叠
隐藏此楼
查看此楼
我写了一段代码作用是B输入数量后打印相应的份数
并且每打印一份A2就+1
比A2输入20
B1输入20
打出来的20张就是21 22 23 ..... 40
我使用的是for循环进行多次打印操作
但是这样有个问题,点打印后会弹出打印对话框。
数量少的时候还好但有时会打印200+份,请问各位大佬能不能有其它方法做到这个呢。。
最初我是想
PrintOut Copies:=Range("B1").Value
这样的 但是并不行。。。。请问有没有什么更优解呢感激不尽
624125142
E见钟情
1
该楼层疑似违规已被系统折叠
隐藏此楼
查看此楼
打印对话框弹出200+份感觉会相当麻烦。。而且这样多次打印对电脑占用也会很高。。。所以请问有没有什么一次打印多份并单元格随着份数+1的代码呢
baifandu2013
博采众E
6
该楼层疑似违规已被系统折叠
隐藏此楼
查看此楼
excel自带打印份数设置,何必舍近求远?
qianboccp
E览无余
11
该楼层疑似违规已被系统折叠
隐藏此楼
查看此楼
Sub ccp()
For i = 1 To [b1].Value
Application.ActiveSheet.PrintOut
[A2].Value = [A2].Value + 1
Next
End Sub
不太明白你想表达什么
624125142
E见钟情
1
该楼层疑似违规已被系统折叠
隐藏此楼
查看此楼
这个玩意
登录百度账号
扫二维码下载贴吧客户端
下载贴吧APP
看高清直播、视频!
贴吧页面意见反馈
违规贴吧举报反馈通道
贴吧违规信息处理公示