为什么这串代码不用设置就可以直接打印？

15358300083 · 发表于 2021-4-14 22:14

本帖最后由 15358300083 于 2021-4-15 22:21 编辑

Sub 按钮3_Click()
s = InputBox("请输入编号：")
f = InputBox("请输入打印的份数")
Range("B2").Select
d = Range("B2").Value
Application.ScreenUpdating = False
For i = 1 To f
Sheets("" & s & "").PrintOut
Sheets("" & s & "").Tab.ColorIndex = 5
Windows(d & "正式报告.xls").Activate
Next

Sheets("汇总表").Select

For Each arf In Range("b3:b500")

If IsNumeric(s) Then
   x = s + 0

   If arf = x Then
   a = arf.Row

   End If

Else

   If arf = s Then
   a = arf.Row
   End If

End If
Next

Rows(a).Select
With Selection.Interior
      .Pattern = xlSolid
      .PatternColorIndex = xlAutomatic
      .Color = 65535
      .TintAndShade = 0
      .PatternTintAndShade = 0
End With

Sheets("打印报告").Select

Application.ScreenUpdating = True

End Sub

shiruiqiang · 发表于 2021-4-15 07:18

Sheets("" & s & "").PrintOut

15358300083 · 发表于 2021-4-15 22:20

shiruiqiang 发表于 2021-4-15 07:18
Sheets("" & s & "").PrintOut

能帮忙优化下代码吗？我只想实现跨表格指定编号打印功能。

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

[讨论] 为什么这串代码不用设置就可以直接打印？