利用VB实现宽行打印的一个技巧

一、 问题的提出 我在本报曾经发过一篇《利用VB设计打印复杂报表》的文章，引起很多同仁的兴趣，纷纷来信与我探讨这种行之有效的方法。有人提出这样一个问题：你讲的全是针对一行打印一条数据记录的方法，我有一个表，字段比较少，并且一直用宽行打印纸来打印，这样就造成了半边纸的浪费，有没有办法在一行打印两条记录以充分利用纸张呢？例如我们要按下面的要求打印：


姓名 性别 职业 职务
姓名 性别 职业 职务
C(2,1) C(2,2) C(2,3) C(2,4)
C(2,7) C(2,8) C(2,9) C(2,10)

---- 二、 问题分析
---- 从上篇文章陈述的原理来看，就是把数据表的每一条记录的数据抽取出来形成EXCEL文件，充分利用EXCEL的强大的编辑功能实现报表的设计、打印。由于是每一条记录占一行，所以利用下面的循环就可以很自然地实现：

For i = 0 To datPrimaryRS.RecordCount - 1
xlSheet.Cells( I+2, 1) =
datPrimaryRS![“字段名”]
……'I+2表示从第二行开始放置记录
Next I


---- 很显然用上述方法肯定不能够实现在一行打印两条记录的功能。我们能够看出在左边的一排对应的I为 0,2,4,6,8……；在右边的一排对应的I为：1,3,5,7……。问题似乎很简单，左排对应的规律应该为：2*I；右边排对应的规律应该为：(2*I+1)。循环写成如下的样子：
For i = 0 To datPrimaryRS.RecordCount - 1
'先打印左排
xlSheet.Cells( 2*I+2, 1) =
datPrimaryRS![“字段名”]
……'I+2表示从第二行开始放置记录
' 下面打印右排：
xlSheet.Cells((2*I+1)+2, 7) =
datPrimaryRS![“字段名”]
……
Next I

---- 打印结果一看，这种方法是根本行不通的。上面的方法根本没有考虑行与记录的对应关系。左右两条记录对应同一个行号。
---- 三、问题解决

---- 仔细分析不难发现左排右排的对应关系如下：

左排 0 2 4 6 8
右排 1 3 5 7 9
行号 2+0 2+1 2+2 2+3 2+4

---- 从上表可以看出规律：左排 I/2 对应着行号，右排的行号也应该是I/2。而右边的记录号却是I/2+1的。所以要有一个判断该记录号到底是放在左边还是放在右边。这时可以利用Mod函数来判断，程序代码如下：
For I = 0 To datPrimaryRS.RecordCount - 1
If (i Mod 2) = 0 Then
xlSheet.Cells( 2*I+2, 1) =
datPrimaryRS![“字段名”]
j = i / 2 '取出行号给右排记录定位
Else
xlSheet.Cells(j+2, 7) =
datPrimaryRS![“字段名”]
End If
Next I

---- 这时就可以按记录的先后秩序打印出双排的报表了。
---- 四、 问题总结

---- 利用上述方法实现了双排打印，又一次证明了这种打印方法的极大的灵活性。

原文转自：http://www.ltesting.net