Question

EXCEL，VBA功能代码，已经有一段了，想在后面加入，自动打印

系统默认打印机“FP-620K”
要求的打印机是“DL-820T”，纸张是自定义的 “10*13”
打印区域是Sheet1 B1：D8

希望能弹出对话框，询问打印份数，默认1份，回车键直接打印，并关闭对话框，鼠标自动选中单元格 H1

Answer 1

Dim n As Long
ThisWorkbook.Sheets("Sheet1").Select
Application.ActivePrinter = "DL-820T"
ActiveSheet.PageSetup.PrintArea = "$B$1:$D$8"
ActiveSheet.PageSetup.PaperSize = 258
n = Application.InputBox(Prompt:="请输入打印页数：", Default:=1, Type:=1)
ActiveWindow.SelectedSheets.PrintOut Copies:=n, Collate:=True
Range("H1").Select
如果上面出错，请录宏修改后面参数可以，如("Sheet1")，ActivePrinter = "DL-820T"，.PaperSize = 258。