一、 问题的提出 我在本报曾经发过一篇《利用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 

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

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