[已解决]固定行数打印

c888 · 发表于 2015-11-3 14:10

本帖最后由 c888 于 2015-11-5 13:58 编辑

打印(固定行数).zip (61.68 KB, 下载次数: 4)

zjdh · 发表于 2015-11-4 13:08

打印(固定行数).rar (46.46 KB, 下载次数: 23)

c888 · 发表于 2015-11-5 15:06

zjdh 发表于 2015-11-4 13:08

zjdh师：如果打印行数为20行，如何修改代码。谢谢！

zjdh · 发表于 2015-11-5 16:24

Private Sub CommandButton2_Click()
...........
For I = 1 To T Step 8
      With Sheets("3")
         .Range("A5:D12").ClearContents
         For J = 1 To 8
            W = W + 1
            If W > T Then Exit For
            For K = 1 To 4
                  .Cells(J + 4, K) = BRR(W, K)
            Next
         Next
         .PrintOut
         Application.Wait (Now + TimeValue("0:00:01"))
      End With
Next
End Sub
修改红色数字

c888 · 发表于 2015-11-5 17:27

zjdh 发表于 2015-11-5 16:24
Private Sub CommandButton2_Click()
...........
For I = 1 To T Step 8

谢谢！

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