[求助]根据条件循环打印（问题已解决）

digitboy · 发表于 2006-6-12 18:29

R4dVwXH3.rar (28.23 KB, 下载次数: 83) 请教各位朋友多层循环打印控制，如何实现，详见附件说明

[此贴子已经被作者于2006-6-12 20:09:12编辑过]

xuzong · 发表于 2006-6-12 19:31

其实你可以换种方式

for i = 2 to worksheets(1).cells(65536,1).end(xlup).row

s = s + 1
If s Mod 18= 0 Then
Range("A"& s-18 & ":a"& s".Select
Selection.PrintOut Copies:=1, Collate:=True

endif

next i

你先试试，我的机子也在运行程序，很慢！

山菊花 · 发表于 2006-6-12 19:54

aCOI0eoM.rar (29.74 KB, 下载次数: 211)

digitboy · 发表于 2006-6-12 20:08

万分感谢楼上朋友和版主，问题已解决，不过二楼朋友的运行有问题，待思考

ncj98 · 发表于 2006-10-5 03:33

版主的办法非常漂亮，俺又学了一招。感谢了！

ccyy431 · 发表于 2008-12-15 17:15

版主的点"全部打印"就没完没了的打下去,能做到没有数据就不打吗?若能指定从开始行打到那行就更好了

ccyy431 · 发表于 2008-12-15 17:23

请板主解读一下下面公式和代码的意义
=INDIRECT("datasource!r"&18*($K$2-1)+ROUNDDOWN(ROW()/5,0)*3+ROUNDDOWN(COLUMN()/3,0)+2&"c"&5-MOD(ROW(),5),)

Sub PrintCtr()
Dim i As Integer, j As Integer
For i = 3 To 29 Step 5
      j = i - 4
Next i
End Sub

Private Sub CommandButton1_Click()
i = 1
Do
      [k2] = i
      If [b3] = "" Then Exit Do
      i = i + 1
      ActiveSheet.PrintOut
Loop
End Sub

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