把代码输入后，忙时点击打印，不会出现针式、喷墨不想用的打印机，却启动打印了
Sub 指定打印机打印()
ActiveWorkbook.Save
ActiveSheet.PageSetup.PrintArea = "$A$1:$Z$10"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True,ActivePrinter:="SEALAND 24Pin Dot-Matrix Printer (副本 1)"
End Sub

另外，打印过的内容还可以备份。只要在加一个小程序即可

如有需要，明日分享