修改代码

sulli112

1. Sub 宏1()
   
2. Dim sht As Worksheet
   
3.     For Each sht In Worksheets
   
4.         If sht.CodeName <> "求和" And sht.CodeName <> "总表" Then
   
5.             With sht.PageSetup
   
6.                 '每页都要打印的标题
   
7.                 .PrintTitleRows = "$1:$1"
   
8.                 '设置打印区域
   
9.                 .PrintArea = "$A2:$E" & sht.Range("A" & Rows.Count).End(xlUp).Row
   
10.                 '纸张横向
    
11.                 .Orientation = xlLandscape
    
12.             End With
    
13.             sht.PrintPreview
    
14.         End If
    
15.     Next
    
16. End Sub
    
17. 
    
18. 
    

复制代码

这个代码是之前别人帮我修改的，我再进行了调整，If sht.CodeName <> "求和" And sht.CodeName <> "总表" Then这句话的意思不是如果表名不等于求和跟总表再进行下一步吗？为什么连总表也操作了呢，如果我想根据上面条件再加一个printout自动根据条件预览后打印，要怎么修改呢，谢谢

A1233515

你要先了解什么是NAME，什么是codename
如图，vbe窗口中，名称一栏就是codename，平时代码里的sheet1.XXXXXXX的sheet1就是

A1233515

Name栏里的“总表”，是worksheet.name
这个是会通过工作表重命名改变的
codename是不会通过工作表重命名改变的，除非在vbe窗口改变它

A1233515

改成
If sht.Name <> "求和" And sht.Name <> "总表" Then
再试试

于箱长

and 换成 or

sulli112

于箱长 发表于 2021-2-21 14:12
and 换成 or

改成or不可以的

sulli112

A1233515 发表于 2021-2-21 14:00
改成
If sht.Name  "求和" And sht.Name  "总表" Then
再试试

Sub 宏1()
Dim sht As Worksheet
    For Each sht In Worksheets
  If sht.Name <> "求和" And sht.Name <> "总表" Then
            With sht.PageSetup
                '每页都要打印的标题
                .PrintTitleRows = "$1:$1"
                '设置打印区域
                .PrintArea = "$A2:$E" & sht.Range("A" & Rows.Count).End(xlUp).Row
                '纸张横向
                .Orientation = xlLandscape
            End With
            sht.PrintPreview
        End If
    Next
End Sub


改成你那个是可以的，但是加一个printout .在sht.PrintPreview后面，要怎么修改呢

于箱长

sulli112 发表于 2021-2-21 17:18
改成or不可以的

If sht.Name <> "求和" And sht.Name <> "总表" Then

sulli112

于箱长 发表于 2021-2-21 17:53
If sht.Name  "求和" And sht.Name  "总表" Then

那printout要放在哪里呢

于箱长

sulli112 发表于 2021-2-21 21:28
那printout要放在哪里呢

现在的位置不行吗？