EXCEL指定单元格打印自动加1

发布网友发布时间：2022-05-01 05:30

共2个回答

热心网友时间：2022-06-25 01:24

可以的，只不过调用打印机的时候，还是要一个个点确认的，打印几份，可以用循环，比如：DIM
La,Lb,NpDIM
PTArea
as
string
'或者定义成
RangeFor
La=1
to
'此处给一个值是，要做多少次的打印份数if
'此处最好加一个条件控制循环语句
Np=
'
Np
取一个值
PTArea=
'打印范围取一个值
For
Lb=1
to
Np
'此处设定打印区域，
Range("A2:D11").Select
'你可以换用变量变化指定A2:D11，此仅是举例
ActiveSheet.PageSetup.PrintArea
=
"$A$2:$D$11"

Application.ActivePrinter
=
"
xxxxx:
"
‘调用打印机
NEXT
I
ENDIFNEXT
La

热心网友时间：2022-06-25 01:25

很久没人求助了，恰好我现在不忙:)
在Excel里，同时按Atl和F11进入宏界面，点菜单的插入，模块，粘贴如下代码：
Sub
test()
Dim
N
As
Integer
For
N
=
1
To
20
Range("E1")
=
N
ActiveSheet.PrintOut
Next
N
End
Sub
将E1替换为你的指定单元格，将20替换为你的几份。然后直接在此界面按F5运行此宏，OK。
注意默认打印机已设置好。