excel表格怎么打印几份

1.一次性打印多份excel表格

vba， 完全可以实现.设置好格式， 统一打印，（需要编程的）， 我原来用过，和你的要求差不多， 这是程序片段----------------------------写好程序，你可以放到工具栏上一个宏按钮

Sub format()

Range("A1").Select

'更新本页数据

Selection.QueryTable.Refresh BackgroundQuery:=False

'设置排序

Cells.Sort Key1:=Range("J1"), Order1:=xlDescending, Header:= _

xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _

SortMethod:=xlPinYin, DataOption1:=xlSortNormal

Cells.Sort Key1:=Range("I1"), Order1:=xlAscending, Header:= _

xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _

SortMethod:=xlPinYin, DataOption1:=xlSortNormal '设置单元格字体字号

Cells.Font.Name = "微软雅黑"

Cells.Font.Size = 8

'设置表格行高和列宽

Cells.RowHeight = 13

Columns("A:A").ColumnWidth = 7

Columns("B:B").ColumnWidth = 10

Columns("C:C").ColumnWidth = 11

Columns("D:D").ColumnWidth = 18

Columns("E:E").ColumnWidth = 12

Columns("F:F").ColumnWidth = 12

Columns("G:G").ColumnWidth = 6

Columns("H:H").ColumnWidth = 6

Columns("I:I").ColumnWidth = 6

Columns("J:J").ColumnWidth = 6

Columns("K:K").ColumnWidth = 6

Columns("L:L").ColumnWidth = 20

' ActiveWorkbook.SaveEnd Sub

Sub Printallsheet（) '打印全部

ok = MsgBox（"您点击了直接打印封面按钮，所有部门明细表正在准备打印！" & Chr(13) & Chr(13) & "您确认是否打印？"， vbYesNo， "直接打印警告！"）

If ok = vbYes Then

printpage = 0

For n = 1 To 4

Windows("ZCMX00" & CStr(n) & ".xls").Activate '打开该目录下的xls文件

For i = 1 To Sheets.Count '遍历工作表，打印

Sheets(i).PrintOut Copies:=1, Collate:=True

printpage = printpage + ExecuteExcel4Macro("GET.DOCUMENT(50)")

Next

Next

End If

MsgBox （"共有 " & printpage & " 页打印"） '统计打印

End Sub