excelvba设置打印机(excel vba 选择打印机)

导读： 按CTRL+P键，或在EXCEL选择打印选项，进入打印选项窗口，看打印内容是否在活动工作表选项，如果是，再设置“属性”进入“属性”窗口，选择“双面打印”选项后，返回来“预览”一下看sheet1和sheet3工作表是否在预览界面中；请安装Adobe Acrobat XI Pro软件，将EXCEL的打印...

按CTRL+P键，或在EXCEL选择打印选项，进入打印选项窗口，看打印内容是否在活动工作表选项，如果是，再设置“属性”进入“属性”窗口，选择“双面打印”选项后，返回来“预览”一下看sheet1和sheet3工作表是否在预览界面中；请安装Adobe Acrobat XI Pro软件，将EXCEL的打印机设置为Adobe PDF虚拟打印机，然后在VBA直接作打印操作即可；VBA设置EXCEL打印预览的时候表格缩放在一页，执行代码如下\x0d\x0aSub Macro2\x0d\x0a With ActiveSheetPageSetup\x0d\x0a Zoom = False\x0d\x0a FitToPagesWide = 1\x0d\x0a FitT；VBA 打印设置相关属性及方法 打印设置说明，以下均为默认值With ActiveSheetPageSetup PrintTitleRows = quotquot #39工作表打印标题顶端标题行RPrintTitleColumns = quotquot #39工作表打印标题左端标题列CEnd With Ac。

调整页边距，添加页眉和页脚，以及工作表打印输出的一些高级选项工作表选项新手很少使用，再熟悉了整个简单的页面设置后读者可以自行尝试对每一个选项进行亲自操作上述调整完成后，点击确定，输出到打印机即可；A1 = LeftA1， 11 FormatValRightA1， 4 + 1， quot0000quotElse A1 = quotNOquot FormatDate， quotyyyymmddquot quot0001quotEnd If A1B10PrintOut #39打印机区域打印，根据需求修改 End Sub；Sub printset#39a = InputBoxquot打印机名字quot， quot侦测quot， ApplicationActivePrinter #39如果不知道名字是什么，可以用此语句获取 = quotA1J16quotActiveSheetPrintOut ActivePrinter=quot打印机名字quot；设置宏按钮，录入宏，点击打印时自动选择非默认打印机，打印结束后恢复默认打印机，不其他表格依旧是默认打印机；方法1先用PrintArea设置打印区域，然后再打印这种设置将会保存到EXCEL文件中比如WorksheetsquotSheet1quotPageSetupPrintArea=quot$A$1$C$5quotWorksheetsquotSheet1quotPrintOut方法2直接打印指定区域，而不修改打印区域设置；1用重命名方式将Sheet5的名称修改为了“测试表单”，但在VBAProject中，前面的名字依然叫Sheet52点击 VBAProject下面的Sheet3，下面对应出现Sheet3的属性，我们能够看到属性中 一个叫“名称”，就是工作表的CodeName；ApplicationActivePrinter=打印机的名字 不知道打印机的名字的话 可以在两台打印机激活的时候分别用 Sub dada = InputBoxquot打印机名字quot， quot侦测quot， ApplicationActivePrinterEnd Sub 侦测 没有测试过 希望对你有用；在工作表窗口按ALT+F11调出VBA窗口，然后按“插入－模块”，把下面代码粘贴进去Sub 打印#39打印工作簿中全部工作表的第一页For i = 1 To WorksheetsCount SheetsiSelect ActiveSheetPrintOut From=1， To。

Set WhNetwork = CreateObjectquotWScriptNetworkquotSet SPrinters = WhNetworkEnumPrinterConnections 其中SPrinters即为打印机对象，可以调用其属性进行打印设置。

参数4逻辑值是否预览，省略则默认为直接打印F参数5字符值设置活动打印机名称，省略则为默认打印机 参数6逻辑值是否输出到文件，省略则默认为否F，若选T且参数8为空，则Excel提示输入要输出的文件；不要每次都设置默认打印机，如果有循环的，先在循环之前设置好默认打印机，循环中直接打印应该都可以了吧；上述调整完成后，点击确定，输出到打印机即可 下面是高手进阶高手进阶打印区域控制新手可忽略当你熟悉的可以运用excel的各种功能后，有时候会根据表格的变化来自动选择打印区域，尤其在使用vba进行打印区域选择输出。

Excel 打印指定对象之前进行打印预览如果该值为 False或者省略此参数，则立即打印该对象ActivePrinter Variant 类型，可选设置活动打印机的名称PrintToFile Variant 类型，可选如果该值为 True，则打印输出到文件；5上述调整完成后，点击确定，输出到打印机即可 下面是高手进阶6高手进阶打印区域控制新手可忽略当你熟悉的可以运用excel的各种功能后，有时候会根据表格的变化来自动选择打印区域，尤其在使用VBA进行打印区域选择。