一次性打印多份excel表格

发布网友发布时间：2022-03-08 06:41

共1个回答

热心网友时间：2022-03-08 08:11

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

一个表格如何打印多份?

1. 首先打开电脑上的Excel表格，如图，我们需要打印sheet1、sheet2、sheet3三个工作表的内容；2. 首先将sheet1选中，按键盘上的CTRL 键后，依次点击sheet2、sheet3，将三个工作表全部选中；3. 点击页面上方的打印预览图标；4. 进入打印预览界面，这是sheet1打印界面；5. 如图，在左下角通过切换页码...

excel如何一次性打印工作簿中的所有工作表

1、在电脑里面找到需要打印的表格，见下图 2、打开需要打印的表格会发现工作簿里面有好几个表格，见下图 3、点开工作薄中的任意一个表格，见下图 4、右击下方的单元格1，找到“选定全部工作表”并点击，见下图 5、找到表格左上方的office按钮，见下图 6、点击office按钮，找到“打印”，选择“打印”...

如何设置使得excel表格能同时打印多个工作表

具体如下：1. 第一步，打开电脑并在桌面上找到excel图标，双击进入。2.第二步，进入excel主页后，点击左上角的office图标。3. 第三步，在弹出的菜单中，点击打印选项。4.第四步，在右侧弹出的菜单栏中，点击打印功能。5. 第五步，在弹出的打印内容设置窗口中，点击勾选整个工作簿或者活动工作表 ...

如何在一页纸上打印多个Excel表格?

方法一、设置打印区域1. 如图，在打开的表格页面，依次单击上方的视图---分页预览选项 2. 如图，在表格中就会显示出蓝色的虚线 3. 拖动蓝色的虚线，到想要打印的位置即可；4. 此时点击上方的打印预览图标对打印页面进行缩放1. 点击之后就进入到预览页面了 2. 如图，调整合适的缩放比例，并对页边距...

Excel表格怎么一次性打印出多个工作表

Excel是我们常用的办公软件之一，有小伙伴问怎么一次性打印出多个工作表，下面小编介绍一下。具体如下：1. 打开一个【Excel】表格，下方有多个工作表，点击右上角的【文件】2.弹出窗口选择“打印”选项 3.弹出窗口点击“打印整个工作簿”选项，最后点击【打印】按钮即可 ...

如何在一张纸上打印多个工作表

1、打开要打印的EXCEL工作簿，如下图所示，一次性打印下图中Sheet1到Sheet3工作表。2、在任意工作表（如：Sheet2）名称处单击右键，在弹出的右键菜单中选择“选定全部工作表”，如下图所示。3、选择“选定全部工作表”后，我们可以看到EXCEL工作簿顶端标题变成了“Book1 1119[工作组]”，这时点击下图...

excel如何让一页打印多张表格

1、打开一个新的excel表格，输入表格中的内容。或者我们直接打开一个需要打印的Excel文件。2、打印之前，我们先点击打印预览，这个时候我们发现这个表格被分割成两部分才能打印出来。3、此时我们先退出打印预览，回到主页面，选择“视图”——“分页预览”选项。4、点击分页预览后，我们的表格中会出现几条...

excel表格怎么同时打印多个工作表

1、在电脑上用excel2016打开想要打印的文件。2、拉上来我们按下键盘左下角的Ctrl按键。3、在按下Ctrl键的同时，我们鼠标选中多个想要一起打印的工作表。4、接着我们点击excel2016左上角的“文件”菜单 5、接下来在打开的文件下拉菜单中，我们点击“打印”的菜单项。6、这时我们在右侧的打印预览页面中...

excel里有多个工作表excel工作表中多个工作表如何一次性打印

1、打开一个含有多个工作薄的excel文档，进入工作表窗口后，我们点击左上方的“文件”选择。2、这时会显示文件选项的下拉菜单，选择“打印”选项。我们也可以用快捷键Ctrl+P,直接弹出打印选择菜单。3、这时显示“打印”选择的设置菜单，我们会看到系统自默认当前工作薄的表格，只显示共一页，如果直接按打印...

Excel如何连续打印多个工作表

材料/工具：Excel2010 1、打开Excel2010表格，右击下面任意一个工作表。2、进入后点击“选定全部工作表”。3、点击左上角的菜单按钮。4、选择打印按钮选项。5、点击确定就可以了打印所有的工作表了。