hdhj.net
当前位置:首页 >> vBA打印工作表 >>

vBA打印工作表

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

1、打印活动工作薄 Sub MyprintOut() 份数 =4 ActiveWorkbook.PrintOut Copies:=份数 End Sub 2、打印当前workbook,并集合打印模式 Sub printOut() 份数 = 5 ActiveWorkbook.PrintOut Copies:=份数, Collate:=True End Sub 3、打印当前workbook...

请将四个按钮分别指定以下四个宏 sub B1_CLICK() worksheets("工作表一").printout end sub sub B2_CLICK() worksheets("工作表二").printout end sub sub B3_CLICK() worksheets("工作表三").printout end sub sub B4_CLICK() worksheets("工作...

在第5行后加: Worksheets("Sheet9").Activate

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

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

你工作博里面没有 sheet12 这个名字的表 才会这样

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

用以下代码替换你的打印部分,即你的第7行next之后的全部代码 For Each st In SheetsIf st.[A1] "" Thenst.Cells.PrintOutEnd IfNext

代码: sub 宏1() dim p,n,st as worksheet p="c:\" '文件所在位置,你可能需要修改,没必须是\ n=dir(p & "&.xls*") do while n"" with workbooks.open(p & n) for each st in .sheets if st.name="施工记录" or st.name="施工记录 (2)" or st....

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