页码显示的代码有误.taller版主已经帮忙解决了.

yigepure

有时候真想知道.分页预览它是如何做到的.[em06]

先谢谢老兄了.昨天晚上搞的这么晚.呵呵.[em24][em27]

taller

代码越来越长，用TXT文件吧，请做测试

刚才的代码有问题，请用这个

PZWEIGg8.zip (12.78 KB, 下载次数: 136)

2006-10-21 06:49 上传

点击文件名下载附件

[此贴子已经被作者于2006-10-21 6:51:53编辑过]

yigepure

谢谢,马上去验证.[em02][em24]

yigepure

现在不会出现错误提示,但是改变打印顺序时,有些页代码运行后的提示错误.请看附件.

dmfnGQGn.rar (10.04 KB, 下载次数: 32)

2005-10-16 19:35 上传

点击文件名下载附件
页码显示的代码有误.请大家帮忙找找原因

taller

俺已经给你发短信提醒，让你下载新附件，你。。。

yigepure

以下是引用taller在2005-10-16 19:41:25的发言： 俺已经给你发短信提醒，让你下载新附件，你。。。

哈哈,经过验证完全通过了.哈哈.非常谢谢了.[em24][em17][em17][em23][em23]

yigepure

Set rng = Me.UsedRange

pgLoc = rng(rng.Count).Row + 1 '这句是什么意思呀.我对这个rng(rng.Count).Row 不理解.

yigepure

另:这个循环语句能解释一下吗?呵呵[em02]

vNum = Me.VPageBreaks.Count For i = 1 To vNum Err.Clear pgLoc = Me.VPageBreaks(i).Location.Column If i = vNum And Err.Number = 9 Then pgLoc = rng(rng.Count).Column + 1: flagV = True If pgLoc > Target.Column And vBK = 0 Then vBK = i Next

yigepure

还有昨天的这个算法,我到现在还是不明白.能解释一下吗?[em02]

If Me.PageSetup.Order = xlDownThenOver Then iPg = (hNum + 1) * (vBK - 1) + hBK Else iPg = (vNum + 1) * (hBK - 1) + vBK End If

taller

pgLoc = rng(rng.Count).Row + 1 'Rng.Count是Rng包含的单元格的个数，rng(rng.Count).Row 取得当前数据区域的最后的行号

vNum = Me.VPageBreaks.Count '分页符的格式 For i = 1 To vNum Err.Clear pgLoc = Me.VPageBreaks(i).Location.Column '分页符所在的列数

'如果分页符巧好在数据区域的边缘，那么Me.VPageBreaks(i).Location.Column 就会产生错误“9”这就是今天早上代码错误的原因 If i = vNum And Err.Number = 9 Then pgLoc = rng(rng.Count).Column + 1: flagV = True If pgLoc > Target.Column And vBK = 0 Then vBK = i Next

If Me.PageSetup.Order = xlDownThenOver Then iPg = (hNum + 1) * (vBK - 1) + hBK Else iPg = (vNum + 1) * (hBK - 1) + vBK End If

39楼的问题试着解释一下，不知道能够说明白，假设现在打印顺序为先列后行（xlDownThenOver），并且有9页（分页符将页面分成了“井”字形），选中的单元格在井字的中央，也就是第五页。

此时，hNum是水平分页符的个数为2， 激活单元格在第vBK个垂直分页符之前，所以值为2,类似 hBK＝2，结果就是(2+1)*(2-1)+2=5.

[此贴子已经被作者于2005-10-16 20:29:26编辑过]