vba设置打印机代码(vba设置打印机代码怎么设置)

导读： Sub 连续打印rs = Sheetsquot合计金额quotCellsRowsCount， 7EndxlUpRow ar = Sheetsquot合计金额quotRangequotg1gquot rsFor i = 2 To UBoundar#160 #160 If Trimari， 1 lt q...

Sub 连续打印rs = Sheetsquot合计金额quotCellsRowsCount， 7EndxlUpRow ar = Sheetsquot合计金额quotRangequotg1gquot rsFor i = 2 To UBoundar#160 #160 If Trimari， 1 lt quotquot T。

用ApplicationActivePrinter 属性设置例如将 quotMicrosoft Print to PDFquot 设为默认打印机ApplicationActivePrinter = quotMicrosoft Print to PDF 在 Ne01quot注意这个字符串前一部分是打印机名称，后一部分是端口位置。

Sub printset#39a = InputBoxquot打印机名字quot， quot侦测quot， ApplicationActivePrinter #39如果不知道名字是什么，可以用此语句获取 = quotA1J16quotActiveSheetPrintOut ActivePrinter=quot打印机名字quot。

请用宏录制功能，自己录制一遍打印过程，然后在vba中编辑宏，就看见代码了。

参数3数值打印份数，省略则默认为1份 参数4逻辑值是否预览，省略则默认为直接打印F参数5字符值设置活动打印机名称，省略则为默认打印机 参数6逻辑值是否输出到文件，省略则默认为否F，若选T。

用VBA写段代码来打印运单，并且指定针式打印机如果每个运单是统一大小和格式，也就是行数列数都一样，你这个代码就很简单，自己就能完成方法如下你录制一个宏，录制的内容就是打印一次运单的全过程，包括打印时选择针。

VBA 打印设置相关属性及方法 打印设置说明，以下均为默认值With ActiveSheetPageSetup PrintTitleRows = quotquot #39工作表打印标题顶端标题行RPrintTitleColumns = quotquot #39工作表打印标题左端标题列CEnd With Ac。

Activate ApplicationActivePrinter = quotEPSONLQ635K 在 Ne04quotEnd Sub打开vbe，双击左侧Sheetquot信息quot，复制粘贴上面的代码，双击Sheetquot合格quot，粘贴代码，将EPSONLQ635K 在 Ne04改为打印机B名称。

ApplicationActivePrinter=打印机的名字 不知道打印机的名字的话 可以在两台打印机激活的时候分别用 Sub dada = InputBoxquot打印机名字quot， quot侦测quot， ApplicationActivePrinterEnd Sub 侦测 没有测试过 希望对你有用。

应该不用选择纸盒吧大部分打印机只要设定页面是A3还是A4，打印时就会自动输出到相应的纸张上的下面是简单的代码，具体代码网上也很多，或者用录制宏都可以With ActiveSheetPageSetup PaperSize = xlPaperA3 End With。

方法1先用PrintArea设置打印区域，然后再打印这种设置将会保存到EXCEL文件中比如WorksheetsquotSheet1quotPageSetupPrintArea=quot$A$1$C$5quotWorksheetsquotSheet1quotPrintOut方法2直接打印指定区域，而不修改打印区域设置。

HKEY_CURRENT_USERSOFTWAREMICROSOFTWINDOWS NTCURRENTVERSIONPRINTERPORS 2以下代码可以实现遍历你机子的打印机端口，并根据你的要求，将 ACTIVEPRINTER 设置到你想要的打印机Sub FindPrinterOn Erro。

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

省略则默认为1份\x0d\x0a参数4逻辑值是否预览，省略则默认为直接打印F\x0d\x0a参数5字符值设置活动打印机名称，省略则为默认打印机\x0d\x0a参数6逻辑值是否输出到文件，省略则默认为否F。

VBA设置EXCEL打印预览的时候表格缩放在一页，执行代码如下\x0d\x0aSub Macro2\x0d\x0a With ActiveSheetPageSetup\x0d\x0a Zoom = False\x0d\x0a FitToPagesWide = 1\x0d\x0a FitT。

设置宏按钮，录入宏，点击打印时自动选择非默认打印机，打印结束后恢复默认打印机，不其他表格依旧是默认打印机。