[已解决]怎么样有条件批量打印

9910343 · 发表于 2012-9-5 20:25

本帖最后由 9910343 于 2012-9-5 20:29 编辑

有条件批量打印.zip (9.76 KB, 下载次数: 11)

爱疯 · 发表于 2012-9-5 20:43

有条件批量打印.rar (27.71 KB, 下载次数: 22)

9910343 · 发表于 2012-9-5 20:49

爱疯发表于 2012-9-5 20:43
建辅助列，筛选辅助列后打印。关于辅助列可选择以下一种方式，就不会被打印了，比如：

1）把辅助列字 ...

我的打印区域是成绩单表的B3：I4，XIEXIE

爱疯 · 发表于 2012-9-5 21:18

本帖最后由爱疯于 2012-9-5 21:21 编辑

Sub 批量打印()
Dim i%, j%

Sheets("成绩单").Activate
If [D6] > [D7] Then MsgBox "起始必须小于结束！": [D6] = "": [D7] = "": Exit Sub
With Sheets("资料")
      For i = [D6] To [D7]
         If .Cells(i + 1, 6) + .Cells(i + 1, 7) > 180 Then
            [C3] = .Cells(i + 1, 1)
            [E3] = .Cells(i + 1, 2)
            [G3] = .Cells(i + 1, 3)
            [I3] = .Cells(i + 1, 4)
            [C4] = .Cells(i + 1, 5)
            [E4] = .Cells(i + 1, 6)
            [G4] = .Cells(i + 1, 7)
            [I4] = .Cells(i + 1, 8)
            .PrintOut
         End If
      Next
End With
End Sub

hwc2ycy · 发表于 2012-9-5 22:12

学习学习。

9910343 · 发表于 2012-9-6 08:12

爱疯发表于 2012-9-5 21:18
Sub 批量打印()
Dim i%, j%

怎么样吧打印区域加进去，你的代码打印的是资料表，我想打印的区域是成绩单表的B3:I4，XIEXIE

5201314 · 发表于 2012-9-6 08:23

Sub 设置打印区域()
ActiveSheet.PageSetup.PrintArea = "$B$3:$I$4"
End Sub

复制代码

9910343 · 发表于 2012-9-6 08:32

爱疯发表于 2012-9-5 21:18
Sub 批量打印()
Dim i%, j%

Sub 批量打印()
Dim i%, j%

'Sheets("成绩单").Activate
If [D6] > [D7] Then MsgBox "起始必须小于结束！": [D6] = "": [D7] = "": Exit Sub
With Sheets("资料")
      For i = [D6] To [D7]
         If .Cells(i + 1, 6) + .Cells(i + 1, 7) > 180 Then
            [C3] = .Cells(i + 1, 1)
            [E3] = .Cells(i + 1, 2)
            [G3] = .Cells(i + 1, 3)
            [I3] = .Cells(i + 1, 4)
            [C4] = .Cells(i + 1, 5)
            [E4] = .Cells(i + 1, 6)
            [G4] = .Cells(i + 1, 7)
            [I4] = .Cells(i + 1, 8)

         Sheets("成绩单").Range("b3:i4").PrintPreview
         End If
      Next
End With
End Sub

hnryq · 发表于 2012-9-6 08:36

打印不用这么复杂吧

爱疯 · 发表于 2012-9-6 09:05

9910343 发表于 2012-9-6 08:32
Sub 批量打印()
Dim i%, j%

Sub 批量打印()
Dim i%, j%
Application.ScreenUpdating = False
Sheets("成绩单").Activate
If [D6] > [D7] Then MsgBox "起始必须小于结束！": [D6] = "": [D7] = "": Exit Sub
With Sheets("资料")
For i = [D6] To [D7]
If .Cells(i + 1, 6) + .Cells(i + 1, 7) > 180 Then
[C3] = .Cells(i + 1, 1)
[E3] = .Cells(i + 1, 2)
[G3] = .Cells(i + 1, 3)
[I3] = .Cells(i + 1, 4)
[C4] = .Cells(i + 1, 5)
[E4] = .Cells(i + 1, 6)
[G4] = .Cells(i + 1, 7)
[I4] = .Cells(i + 1, 8)
.PageSetup.PrintArea = "$B$3:$I$4"
.PrintOut
End If
Next
End With
End Sub

复制代码

学习5201314的方法

有条件批量打印3.rar (10.25 KB, 下载次数: 22)

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

[已解决]怎么样有条件批量打印

评分