Question

如何用VBA 打印所有工作表

假设一个XLS文件里有N张工作表，如何编写VBA，让一个快捷键就实现全部打印？
谢谢2位，不过这样会把原来的页脚给替换成按工作表为序次的形式，我希望不要改页脚。

Answer 1

将这段代码贴到VBA模块里执行一下试试看吧。

Sub PrintN()
'
' 打印代码
'

'
Sheets(Array("Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5", "Sheet6", "Sheet7", "Sheet8")).Select '这里加了8张表。可以以此格式加入更多的表格
Sheets("Sheet1").Activate
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"

End Sub

Answer 2

Sub PrintOutAllVisualSheet()
'print out all visual sheet by seting format.
Dim c As Worksheet
For Each c In ActiveWorkbook.Sheets
If c.Visible = xlSheetVisible Then
c.Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
Next c
End Sub

Answer 3

Sub Macro6()
'
' Macro6 Macro
''打印,打印内容为整个工作薄

'
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,3,,,TRUE,,FALSE)"
End Sub