excel vba 打印机语句,vba打开打印机设置？
1、excel vba 打印机语句
Sub Macro1() ***.pagesetup.PrintArea = "$A$1:$G$16" '打印范围 With ***.pagesetup .LeftHeader = "" .CenterHeader = "" .RightHeader = "" .LeftFooter = "" .CenterFooter = "" .RightFooter = "" .LeftMargin = ***.inchestopoints(0.7) .RightMargin = ***.inchestopoints(0.7) .TopMargin = ***.inchestopoints(0.75) .BottomMargin = ***.inchestopoints(0.75) .HeaderMargin = ***.inchestopoints(0.3) .FooterMargin = ***.inchestopoints(0.3) .PrintHeadings = False .PrintGridlines = False .PrintComments = xlPrintNoComments .PrintQuality = 600 .CenterHorizontally = False .CenterVertically = False .Orientation = xlLandscape '横向 .Draft = False .PaperSize = xlPaperA4 'A4纸 .FirstPageNumber = xlAutomatic .Order = xlDownThenOver .BlackAndWhite = False .Zoom = 100 '缩放比例100% .PrintErrors = xlPrintErrorsDisplayed .OddAndEvenPagesHeaderFooter = False .DifferentFirstPageHeaderFooter = False .ScaleWithDocHeaderFooter = True .AlignMarginsHeaderFooter = True .evenpage.***.text = "" .evenpage.***.text = "" .evenpage.***.text = "" .evenpage.***.text = "" .evenpage.***.text = "" .evenpage.***.text = "" .firstpage.***.text = "" .firstpage.***.text = "" .firstpage.***.text = "" .firstpage.***.text = "" .firstpage.***.text = "" .firstpage.***.text = "" End With activewindow.***.printout Copies:=1 '打印1份 End Sub。
2、vba打开打印机设置？
1、我们点击页面上方的开始录制表格宏。
2、为我们的表格宏起一个名称，然后点击确定按钮，开始录制。
3、然后点击页面布局中的页面设置。
4、然后根据我们的需要进行页面设置。
3、如何用vba设置默认打印机？
用Application.ActivePrinter 属性设置。例如将 "Microsoft Print to PDF" 设为默认打印机：Application.ActivePrinter = "Microsoft Print to PDF 在 Ne01:"注意这个字符串前一部分是打印机名称，后一部分是端口位置。
4、如何用vba设置默认打印机？
在 Sheet
1、[A1]单元格中写入打印机的名称,然后使用下面的代码 Application.ActivePrinter = Sheet
1、[A1]。
5、求助，怎样在VBA中设定打印机？
On Error Resume NextApplication.AutoFormatAsYouTypeReplaceHyperlinks = False '禁止邮箱地址自动变成超链接ThisWorkbook.VBProject.References.AddFromFile (Application.Path & "\MSOUTL.OLB") '引用outlook对象ActiveWorkbook.PrintOut Copies:=0, ActivePrinter:="Microsoft XPS Document Writer", printtofile:=True, Collate:=True, prtofilename:="C:\ABC.XPS" '设置默认打印机为XPS上面最后一行就是设定打印机，ActivePrinter设置成你自己需要的打印机即可，这行命令运行会出错，因为Copies:=0表示打印份数为0，但出错前会设置好打印机，所以我用On Error Resume Next屏蔽了错误。Application.ActivePrinter就能得到当前活动打印机名称。我也都是在excelhome论坛上搜索的，你自己去看，找到最简单最适合你的方法即可。
6、VBA中ActivePrinter打印机名问题？
（1）NEXX 我的理解是系统分配给每个打印机的一个端口的名称。从 NE00 开始编起。 你可以在以下注册表路径找到你的机子上所有已经安装的打印机的对应端口： HKEY_CURRENT_USER-----SOFTWARE------MICROSOFT----WINDOWS NT---------CURRENTVERSION--------PRINTERPORS （2）以下代码可以实现遍历你机子的打印机端口，并根据你的要求，将 ACTIVEPRINTER 设置到你想要的打印机。 Sub FindPrinter() On Error Resume Next Set objRegistry = Ge。
