vba如何打印工作表 vba批量打印指定工作表

1、用重命名方式将Sheet5的名称修改为了“测试表单”,但在VBAProject中,前面. 我们能够看到属性中 一个叫“名称”,就是工作表的CodeName,另外一个Name,.

sub test() dim sh as worksheet dim i, x, y as integer y = 0 for each sh in thisworkbook.. 去掉这句前面的 ' 是预览'sh.printout i, i '去掉这句前面的 ' 是打印 x = x + 1 next i end if.

按Alt+F11,在左栏点击ThisWorkBook,找到:Private Sub Workbook_BeforePrint(Cancel As Boolean)'输入需要在打印前完成的工作代码 End Sub

Sub test() Dim sh As Worksheet Dim i, x, y As Integer y = 0 For Each sh In . 去掉这句前面的 ' 是预览'sh.PrintOut i, i '去掉这句前面的 ' 是打印 x = x + 1 Next i End If Next sh .

Sheet1.PrintOut Copies:=range(＂a1＂), Collate:=True, IgnorePrintAreas:=False '这句就是按照A1单元格里的数字打印多少份.

用以下代码替换你的打印部分,即你的第7行next之后的全部代码 For Each st In Sheets If st.[A1] ＂＂ Then st.Cells.PrintOut End If Next

嗯,应该用VBA是可以做到的.但是麻烦的地方就是如何让用户方便地选择每次需要打印的列?如果这个选择的组合是有一定规律的话,那我们倒是可以预定义几种组合,比如组合1只打印某几列,组合2则只打印另外几列,组合3……,等等.启动打印的时候,让用户直接选择某个组合即可打印出这个组合里面包含的列出来.

Sub 打印()Dim Msg, Style, Title, ResponseMsg = ＂请确定你已经设置好打印区域并准备打印工作,如果是请点击“确定”否则请取消!＂ ' 定义信息.Style = vbYesNo .

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

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