VBA批量打印可见工作表

13505817205 · 发表于 2018-1-27 21:31

chxw68 发表于 2018-1-23 22:09

请问如果我每次都想批量打印2份的话直接在 ws.Printout copies：=2 为什么不行，我是VBA小白

wmqz.130 · 发表于 2018-1-27 21:40

ws.Printout Copies:=2

代码对的了，你可能是格式的问题。复制试一下。

13505817205 · 发表于 2018-1-27 21:43

wmqz.130 发表于 2018-1-27 21:40
ws.Printout Copies:=2

代码对的了，你可能是格式的问题。复制试一下。

Sub test()
  Dim ws As Worksheet
  For Each ws In Worksheets
If ws.Visible = xlSheetVisible And ws.Index<>1 Then
   ws.ws.Printout Copies:=2
End If
  Next
End Sub
麻烦给看一下

13505817205 · 发表于 2018-1-27 21:44

wmqz.130 发表于 2018-1-27 21:40
ws.Printout Copies:=2

代码对的了，你可能是格式的问题。复制试一下。

Sub test()
  Dim ws As Worksheet
  For Each ws In Worksheets
If ws.Visible = xlSheetVisible And ws.Index<>1 Then
   ws.Printout Copies:=2
End If
  Next
End Sub
麻烦给看一下

13505817205 · 发表于 2018-1-27 21:45

wmqz.130 发表于 2018-1-27 21:40
ws.Printout Copies:=2

代码对的了，你可能是格式的问题。复制试一下。

Sub test()
  Dim ws As Worksheet
  For Each ws In Worksheets
If ws.Visible = xlSheetVisible And ws.Index<>1 Then
   ws.ws.Printout Copies:=2
End If
  Next
End Sub
麻烦给看一下

13505817205 · 发表于 2018-1-27 21:46

Sub test()
  Dim ws As Worksheet
  For Each ws In Worksheets
If ws.Visible = xlSheetVisible And ws.Index<>1 Then
   ws.ws.Printout Copies:=2
End If
  Next
End Sub
麻烦给看一下

东南风669 · 发表于 2022-4-30 20:32

正好有用，学到了，谢谢楼主

vvw123 · 发表于 2022-5-4 06:08

备用代码，学习了

zyhui1961 · 发表于 2023-4-2 09:54

chxw68 发表于 2018-1-23 22:01

老师你好！假如我想打印Sheet2至Sheet8 ，代码应该是什么呢？

zyhui1961 · 发表于 2023-4-2 09:57

wmqz.130 发表于 2018-1-23 22:12

老师你好！假如我不打印Sheet2和Sheet8、Sheet212 。其他的都打印，代码是什么？

		自动登录	找回密码
密码			免费注册

[求助] VBA批量打印可见工作表