一个关于VBA的问题 - excel吧

level 1

624125142 楼主

我写了一段代码作用是B输入数量后打印相应的份数
并且每打印一份A2就+1
比A2输入20
B1输入20
打出来的20张就是21 22 23 ..... 40
我使用的是for循环进行多次打印操作

但是这样有个问题，点打印后会弹出打印对话框。

数量少的时候还好但有时会打印200+份，请问各位大佬能不能有其它方法做到这个呢。。
最初我是想
PrintOut Copies:=Range("B1").Value
这样的但是并不行。。。。请问有没有什么更优解呢感激不尽

2018年08月14日 04点08分 1

level 1

624125142 楼主

打印对话框弹出200+份感觉会相当麻烦。。而且这样多次打印对电脑占用也会很高。。。所以请问有没有什么一次打印多份并单元格随着份数+1的代码呢

2018年08月14日 04点08分 2

624125142

htt

ps://pan.baidu.com/s/1vRR9r8ASjHjkfqyjxbOKcQ 这是文件

2018年08月14日 05点08分

level 6

baifandu2013

excel自带打印份数设置，何必舍近求远？

2018年08月14日 05点08分 3

624125142

那么能做到每打印一份在指定单元格的数字自动加一吗？

2018年08月14日 07点08分

baifandu2013

@624125142 不能，设定多少就打印多少份。我不明白你要让单元格自动加一的意义何在？

2018年08月14日 07点08分

624125142

@baifandu2013 产品出货，每打印一张单子箱号自动加一。

2018年08月14日 07点08分

baifandu2013

@624125142 试一下application.DisplayAlerts =False，这是excel禁用提示框的参数，help解释为“每次出现需用户应答的消息时，Microsoft Graph 将选择默认应答”，我没测试，或许有用。

2018年08月14日 07点08分

level 11

qianboccp

Sub ccp()
For i = 1 To [b1].Value
Application.ActiveSheet.PrintOut
[A2].Value = [A2].Value + 1
Next
End Sub
不太明白你想表达什么

2018年08月14日 07点08分 4

624125142

如果是200次会弹200次正在打印的窗口。这样必须等200次弹窗结束。。我的想法是点了打印之后就可以输入新的东西继续打印了。。。

2018年08月14日 07点08分

qianboccp

@624125142 大哥打印是一个过程，即使没有提示你也不能继续打印的好吗？

2018年08月14日 08点08分

qianboccp

@624125142 而且我觉得打印200分好快的，关键我不知道你要做什么，也许你全部说出来我会觉得很简单。

2018年08月14日 08点08分

624125142

@qianboccp 我楼下发个图片。。

2018年08月14日 08点08分

level 1

624125142 楼主

这个玩意

2018年08月14日 08点08分 5