VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 利用VB实现宽行打印的一个技巧
发表评论(0)作者:方云波, 平台:VB6.0+Win98, 阅读:9818, 日期:2001-03-14
利用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

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

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