www.5213.net > vBA代码指定打印机

vBA代码指定打印机

用VBA写段代码来打印运单,并且指定针式打印机.如果每个运单是统一大小和格式,也就是行数列数都一样,你这个代码就很简单,自己就能完成.方法如下:你录制一个宏,录制的内容就是打印一次运单的全过程,包括打印时选择针式打印机.然后按钮指定的宏就是这个录制的宏即可.如果运单行数不统一,录制宏后需稍作修改

方法1:先用printarea 设置打印区域,然后再打印.这种设置将会保存到excel文件中.比如:worksheets("sheet1").pagesetup.printarea = "$a$1:$c$5" worksheets("sheet1").printout 方法2:直接打印指定区域,而不修改打印区域设置.比如 worksheets("sheet1").range("$a$1:$c$5").printout

Sub printset()'a = InputBox("打印机名字", "侦测", Application.ActivePrinter) '如果不知道名字是什么,可以用此语句获取 ActiveSheet.PageSetup.PrintArea = "A1:J16" ActiveSheet.PrintOut ActivePrinter:="打印机名字" End Sub

这个不需要使用代码.你可以对每个报表在设计视图中指定打印机,一般报表制作过程中都是设置为默认打印机(就是在控制面板里打印机设置的那个默认打印机).对某一报表要指定打印机,可以在报表设计视图中单击菜单栏上的页面设置--页面设置这样不仅可以选择本地连接的打印机,也可以选择网络打印机了.

试编写代码示例如下:Private Sub CommandButton1_Click() Dim sText, sPrintArea '1只要B40:D40单元格有文本就打印A35:Q62区域 sText = Trim(Range("B40").Value & Range("C40").Value & Range("D40").Value) If sText "" Then

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

Sub PrtTest() Sheet1.PrintOut ActivePrinter:="打印机名字" End Sub可以用 ActivePrinter:="打印机名字" 指定打印机!

用Application.ActivePrinter 属性设置.例如将 "Microsoft Print to PDF" 设为默认打印机:Application.ActivePrinter = "Microsoft Print to PDF 在 Ne01:"注意这个字符串前一部分是打印机名称,后一部分是端口位置

打开编辑好的Excel文档,选中想要打印的区域,如图所示(阴影图层部分为所要打印的区域).点击页面布局选项卡,选择打印区域选项, 点击设置打印区域子选项,这时候就成功设置了打印区域.在设置好打印区域后,需要对选中的打印区域的输出效果稍作调整,以符合输出需求.首先按下CTRL+P, 点击预览选项(红色笔标注).在弹出的先窗口中点击页面设置, 可以看到(如下图)1-页面,2-页边距,3-页眉/页脚,4-工作表四个选项卡,它们分别依次负责调整页面布局,调整页边距,添加页眉和页脚,以及工作表打印输出的一些高级选项(工作表选项新手很少使用),再熟悉了整个简单的页面设置后读者可以自行尝试对每一个选项进行亲自操作.

告诉你一个快速学习VBA代码的方法:录制宏,设置打印机属性,停止录制.然后看你设置的那些值对应的代码是什么,你就会明白了..

网站地图

All rights reserved Powered by www.5213.net

copyright ©right 2010-2021。
www.5213.net内容来自网络,如有侵犯请联系客服。zhit325@qq.com