如何在EXCEL，Sheet1表中添加打印按钮，并实现指定打印Sheet2表中的内容
发布网友
发布时间：2022-04-19 13:21
共5个回答
热心网友
时间：2023-10-25 06:52
1、启动Excel程序，打开一个工作表。
2、在工作表是左上角有一个快速访问工具栏，我们可以把打印按钮添加到此处，这样就可以直接单击按钮进入打印状态。
3、单击快速访问工具栏右侧的展开列表按钮。
4、在弹出的下拉菜单中将“快速打印”功能选中。
5、则会在快速访问工具栏中添加一个打印机的图标。
6、如果要打印工作表，直接单击这个图标即可将当前工作表发送到打印机中，也可以将这个图标发送到Sheet2中，实现快速打印。
热心网友
时间：2023-10-25 06:53
Private Sub CommandButton1_Click()
Sheet2.PrintPreview
End Sub
没想到这么简单吧？
用的时候，先选中sheet2准备打印的区域，然后点sheet1的这个按钮，然后程序就会弹出打印预览窗口。用户可接着点窗口中的“打印”按钮，就会弹出打印选项对话框，用户此时点一下“打印选中区域”单选钮，再打印即可。追问先谢谢了，
要怎样设置才能直接打印，不需弹出预览窗口。
再按打印才打印
追答 我找过各种方法，都不行。只能做到两种效果：先预览再打印、直接打印（没有任何对话框）。后者设置不了“打印份数”等参数，恐怕不符合你的需求。
当然，若你只考虑提供“打印份数”的设置，打印机用默认的，打印范围为选定区域，也可用后者并稍作加强，代码如下：
Private Sub CommandButton1_Click()
打印份数 = InputBox("打印份数：", Default:=1)
If 打印份数 "" Then
Sheet2.Activate
Selection.PrintOut Copies:=打印份数
End If
End Sub
热心网友
时间：2023-10-25 06:53
在Sheet1表中添加打印按钮，进入代码编辑窗口，粘贴下列代码即可：
1、实现指定打印机打印Sheet2表中的内容：
Sub 打印()
With Sheet2'根据自己需要修改"Sheet2"分表名称
.Visible = True '打开深度隐藏的"Sheet2"
.PageSetup.PrintArea = "A1:I16" '设置打印区域（如果不需要可以取消）
.PrintOut ActivePrinter:="EPSON LQ-730K ESC/P2" '指定打印机打印，"EPSON LQ-730K ESC/P2" 是打印机名称，可以更换为你自己的打印机名称
.Visible = False '深度隐藏"Sheet2"
End With
End Sub
2、 如果用默认打印机打印则用以下代码：
Sub 打印()
With Sheet2'根据自己需要修改"Sheet2"分表名称
.Visible = True '打开深度隐藏的"Sheet2"
.PageSetup.PrintArea = "A1:I16" '设置打印区域（如果不需要可以取消）
.PrintOut'打印
.Visible = False '深度隐藏"Sheet2"
End With
End Sub
热心网友
时间：2023-10-25 06:54
热心网友
时间：2023-10-25 06:55
Sub dy()
aa = InputBox("请输入打印份数：")
If aa = "" Then Exit Sub
ActiveWindow.SelectedSheets.PrintOut Copies:=aa, Collate:=True
End Sub
再到文档中右键点击添加好的按钮，选择指定宏----来指定这一代码就可以了。
