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

很久没人求助了，恰好我现在不忙:)

在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。
注意默认打印机已设置好。

可以的，只不过调用打印机的时候，还是要一个个点确认的，打印几份，可以用循环，比如：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