如何设置vba打印机(vba调用打印机打印excel)

导读： 1、用ApplicationActivePrinter 属性设置例如将 quotMicrosoft Print to PDFquot 设为默认打印机ApplicationActivePrinter = quotMicrosoft Print to PDF 在 Ne01quot注意这个字符串前一部分是...

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

2、在装有共享打印机的那台电脑里，端口是USB001，之前改为Lpt1，结果打印出错将端口改回来就好了每个人的电脑不一样，都要按照实际情况来设置PaperSize = 124，表明设置的打印纸张格式是NFCP 窄行连续 240mm 二等分。

3、一般直接用 Export as PDF ActiveSheetExportAsFixedFormat Type=xlTypePDF， Filename= _quotE\统计\quot quotPDF 名字quot quotpdfquot， Quality= _xlQualityStandard， IncludeDocProperties=True， IgnorePrintAreas=False。

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

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

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

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

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

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

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

11、使用VBA设置“先打sheet1第一页为第一张的正面，然后再打sheet2的第一页为第一张的背面”就是两次打印动作，结果是打印出了两张纸建议不用VBA的方法先单面打印sheet1的表格，然后设置打印机使用手送纸，将打印好。

12、安装进度条提示中，点击取消按钮则回滚，取消安装请点击输入图片描述 安装完成，点击完成按钮 请点击输入图片描述 开始设备和打印机中，可以看到已安装的虚拟打印机 请点击输入图片描述 右键点击虚拟打印机，设置为。

13、让WORD文档选择指定打印机，可通过打印预览选择默认的指定打印机方法步骤如下1打开需要操作的WORD文档，点击左上角的“文件”2在左侧导航栏中找到并点击“打印”，进入打印预览3点击打印机下方的选项框，即可让。

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

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

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

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