Question

请教一下多个excel里面都含多个sheet表，但我只想打印这306个excel里的sheet1和sheet2，有什么简便的方法

一共306个这样的表，我只要打印里面的sheet1和sheet2，也就是只打印里面的前两页，不知道有什么好的简易方法吗，急切！谢谢！
你们都等于没说啊，有没有简易的方法啊，怎么样可以很快捷的就设置好直接一起打印出来呢？非诚勿扰

Answer 1

Sub 打印所有文件前两页()
Dim mydir As String
namo = ThisWorkbook.Path
nam = ThisWorkbook.Name
mydir = Dir(namo & "\*.xls")
Do While mydir <> ""
If mydir <> nam Then
Workbooks.Open (namo & "\" & mydir)
For i = 1 To 2
Application.Workbooks(2).Worksheets(i).PrintOut
Next
Workbooks(2).Close False
End If
mydir = Dir()
Loop
End Sub

我帮你写了一段宏。。。
我说一下具体操作。你把你要打印的所有文件放进同一个文件夹里面。然后在这个文件夹里面新建一个excel文件。把上面的宏代码放进去。设置好打印机，然后运行宏就可以了。这段宏会依次打开这个文件夹下面的所有excel文件并打印前两张表。打印完成之后会自动关闭这个excel文件。并打开下一张表打印。直到所有文件打印完。。。

Answer 2

只打开306这个文件，然后只打印前两页
没有比这个还简单的了吧？

Answer 3

你先选定sheet1和sheet2，在打印中打印内容中设置选定区域打印就行了。306个只能直接同时按打印了

Answer 4

打开excel,按住ctrl点击sheet1、sheet2或者任意一个或多个后，再按打印按扭。