ntjm.net
当前位置:首页 >> EXCEL中VBA代码打印问题 >>

EXCEL中VBA代码打印问题

sub dayin() Application.ActiveSheet.PrintOut copies:=1 end sub 这是打印当前的工作表 打印一份 如果是打印当前工作薄中的工作表 Excel.ActiveWorkBook.PrintOut(1,Excel.WorkSheets.count,1,.T.)带参数的打印 参数说明:共四个参数 参数1-数...

1,设置好 打印区域 2.在按钮中加入代码 Application.Dialogs(xlDialogPrint).Show

VBA打印表格的语句是: Sheet1.PrintOut

VBA设置excel自动打印: sub dayin() Application.ActiveSheet.PrintOut copies:=1 end sub 这是打印当前的工作表 打印一份 如果是打印当前工作薄中的工作表 Excel.ActiveWorkBook.PrintOut(1,Excel.WorkSheets.count,1,.T.)带参数的打印 参数说...

不需要用vba代码设置打印,设置方法如下: 打开编辑好的Excel文档,选中想要打印的区域,如图所示(阴影图层部分为所要打印的区域)。 点击页面布局选项卡,选择打印区域选项, 点击设置打印区域子选项,这时候就成功设置了打印区域。 在设置好...

VBA设置excel自动打印: sub dayin() Application.ActiveSheet.PrintOut copies:=1 end sub 这是打印当前的工作表 打印一份 如果是打印当前工作薄中的工作表 Excel.ActiveWorkBook.PrintOut(1,Excel.WorkSheets.count,1,.T.)带参数的打印 参数说...

Application.ActivePrinter 属性 返回或设置活动打印机的名称。String 类型,可读写。 语法 表达式.ActivePrinter 表达式 一个代表 Application 对象的变量。 示例 本示例显示活动打印机的名称。 Visual Basic for Applications MsgBox "The nam...

打印的话,都用引号括起来,直接用debug.print输出就可以了。

Sub 宏1() Dim p, n, st As Worksheet p = "C:\Documents and Settings\Administrator\桌面\姚吴呈\410423103018\" n = Dir(p & "*xls") Do While n "" Set wk = Workbooks.Open(p & n) For Each st In wk.Sheets If st.Name = "基本信息" Or st...

方法1:先用PrintArea 设置打印区域,然后再打樱这种设置将会保存到EXCEL文件中。比如: Worksheets("Sheet1").PageSetup.PrintArea = "$A$1:$C$5" Worksheets("Sheet1").PrintOut 方法2:直接打印指定区域,而不修改打印区域设置。比如 Workshe...

网站首页 | 网站地图
All rights reserved Powered by www.ntjm.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com