VB.net 2010 视频教程 VB.net 2010 视频教程 python基础视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
当前位置:
首页 > 编程开发 > vb >
  • vb教程之利用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 

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

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

本栏文章均来自于互联网,版权归原作者和各发布网站所有,本站收集这些文章仅供学习参考之用。任何人都不能将这些文章用于商业或者其他目的。( Pfan.cn )

 

相关教程