批量打印宏

提问者悬赏：30分|ljcdsmg|分类：办公软件|浏览520次

我有几千个excel文档要打印，每个excel文档有十几个工作表。能否批量打印，而且只打印工作薄中的前8个工作。另外，我也下过一些简单的office批量打印软件打印，但是表格中链接其他文件的数据偶尔打印不显示，唯手动操作打印却能显示。求高人大仙出手相助。

我的工资表名称不是sheet1、2、3.。。。。。是中文的循环不能用咋办么

2012-07-07 22:09网友采纳

将你要打印的文件用拖把更名器一类的软件将所有文件改成1.xls 2.xls.......... 然后通过一个宏来实现，以下代码假设所有文件都放在D盘下名为 1 的文件夹下，打开一个空白的EXCEL，按ALT + F11，粘贴下列代码然后按F5运行宏。

Sub PrintSht()

Dim i As Integer

i = i + 1

For i = 1 To 2

Workbooks.Open Filename:="d:\1\" & i & ".xls"

If i > 0 Then

Dim k As Integer

k = k + 1

For k = 1 To 8

If k > 0 Then

Sheets(k).Select

Activesheets.PrintOut

End If

Next k

ActiveWindow.Close

End If

Next i

End Sub

值得注意的是，因为出差，手边没有打印机，没有测试，

Activesheets.PrintOut 这句代码是打印输出的，希望我没记错吧，去年帮别人写过一个。你可以先选两个工作薄试试。

For i = 1 To 2

这句话后面的 2 代表的是你的总工作薄个数，1000个工作薄就将2 改成1000，建议你先试试再改。如果有问题在联系我。