电脑上有两台打印机，其中一台为默认的激光打印机，另一台是针式打印机。现在有个excel文档需要一直
电脑上有两台打印机，其中一台为默认的激光打印机，另一台是针式打印机。现在有个excel文档需要一直使用针式打印机来打印。问一下有没有办法解决每次手动选择打印机的码单？或者添加个VBA按钮可以点一下就默认选择针式打印机来打印文档？（针式打印机名为HT-Star AR-970）谢谢了。
废话，要是这么简单我还问个毛啊。我说了，只有一个文档需要用针式打印机来打。其他的还是要用激光打印机，而且激光打印机是常用的。
追答那就设置激光打印机位默认的，当你打印这个文档的时候，在选择针式打印机。
没见过你这么懒的。
追问不还是麻烦吗。想要的就是不用手动选择，再说了，万一忘记选就是一张或多张A4纸浪费了。
追答现在的系统没这么智能，我也没听说过有人写程序员弄这个
追问可以的，通过VBA编程就可以。但还没想到正确的编程语言。
追答有个软件能驱动程序的方式来分开用不同的打印机
http://www.appinn.com/automatic-printer-switcher/
你看看行不？
追问可以了，我自己录制了一个宏按钮。截止到现在用起来没发现什么问题。
追答怎么录制的？
追问前面说的按钮只不过是用来执行命令的开关，随便找到图片或者别的什么都行，然后右键指定宏-录制宏，开始录制了就依次点击按钮-打印-选择打印机-打印，让后就可以停止宏录制了。保存宏以后在点击按钮就会执行上面的操作，不需要在点击文件-打印等了。
追答这个和按键精灵差不多啊
废话，要是这么简单我还问个毛啊。我说了，只有一个文档需要用针式打印机来打。其他的还是要用激光打印机，而且激光打印机是常用的。
追答请用VBA写个转换打印机的打印程序试试：
Private Sub CommandButton1_Click()Application.ActivePrinter = "HT-Star AR-970 在 Ne01:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"HT-Star AR-970 在 Ne01:", Collate:=True
End Sub
要如何来执行这个命令？
追答请你下载我的文件，里面有一个按钮。你将你要打印的内容复制到里面，设置好格式，按该按钮就可以用针机打印 了。
你不是要我添加个VBA按钮，点一下就可以选择针式打印机来打印文档吗？如果打印机不正确请你将：HT-Star AR-970“改为正确的名字。
废话，要是这么简单我还问个毛啊。我说了，只有一个文档需要用针式打印机来打。其他的还是要用激光打印机，而且激光打印机是常用的。
