作者：乔山办公网日期：
返回目录：excel表格制作
在Excel表顶部工百具栏的空白处点鼠标 右 键，“控件工度具箱”—“命问令按钮”，在Excel表上建立按钮答，“双击”该按钮，在两行间内输入命令。
Private Sub CommandButton1_Click()
sheets("sheet1").range("A2").value = "第一个按钮"
End Sub
其他的按容钮同样方法建立。
Application.ActivePrinter = \\192.168.1.10\Epson LQ-1600K 在 Ne04: ‘这是选择打印复机
Sheets("打印文制件").Select ’这是选择工作表“打印文件”
ActiveWindow.SelectedSheets.PrintOut Copies:=1 ‘开始打印
Sheets("数据").Select '打印完后返回工作表“数据”
如不知道打印机名称 ，可调用EXCEL的录制宏，做一次打印机选zd择就可知道相对应的打印机了
在Excel工作表中创建宏后，启动宏的方式很多。实际上，为了能够快速启动宏，用户可以为宏指定一个按钮，通过单击该按钮来直接运行宏。下面以Excel 2013为例来介绍将宏指定到按钮的具zd体操作方法。
1、打开创建了宏的工作表，在“开发工具”选项卡的“控件”组中单击“插入”按钮，选择下拉列表中的“按钮”控件，如图1所示。
图1 选择“按钮”控件
2、在工作表中按住左键拖动鼠标绘制控件，此时Excel将自动打开“指定内宏”对话框，在其中选择需要指定的宏，如图2所示;单击“确定”按钮关闭该对话框后，宏将被指定给该按钮。
图2 “指定宏”对话框
3、在按钮上右击，选择快捷菜单中的“编辑文字”命令，使按钮上的文字处于可修改状容态。修改按钮上的标签文字，拖动按钮控制柄调整按钮的大小，如图3所示。在工作表中单击取消对按钮的选择后，单击按钮将执行宏操作，如图4所示。
图3 修改按钮文字
先测试打印机状态：
MsgBox Application.ActivePrinter
测试结果形如zhidao：版
HP LaserJet 1020 在 Ne01:
最后指定打印机权：
Application.ActivePrinter = "HP LaserJet 1020 在 Ne01:
这样可以在宏中指定非默认打印机打印文件。