Question

如何在EXCEL，Sheet1表中添加打印按钮，并实现指定打印Sheet2表中的内容

Answer 1

1、启动Excel程序，打开一个工作表。

2、在工作表是左上角有一个快速访问工具栏，我们可以把打印按钮添加到此处，这样就可以直接单击按钮进入打印状态。

3、单击快速访问工具栏右侧的展开列表按钮。

4、在弹出的下拉菜单中将“快速打印”功能选中。

5、则会在快速访问工具栏中添加一个打印机的图标。

6、如果要打印工作表，直接单击这个图标即可将当前工作表发送到打印机中，也可以将这个图标发送到Sheet2中，实现快速打印。

Answer 2

在sheet1表中添加按钮，双击按钮，进入代码编辑窗口，粘贴下列代码即可：

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

Answer 3

如果"Sheet2"是处于深度隐藏的，在Sheet1表中添加打印按钮：
在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

Answer 4

工具-----宏----录制宏-----然后把你需要做的事一次做完，最好不要出错。然后停止录制宏。再次要做这些事时-工具----宏---找到当时录制宏的名字

Answer 5

在需要打印的表中添加按钮，进入代码编辑窗口，粘贴下列代码：

Sub dy()
aa = InputBox("请输入打印份数：")
If aa = "" Then Exit Sub
ActiveWindow.SelectedSheets.PrintOut Copies:=aa, Collate:=True
End Sub
再到文档中右键点击添加好的按钮，选择指定宏----来指定这一代码就可以了。