|
| |
 精品推荐 |
 |
|
| |
|
|
|
|
vsprint打印实例
|
日期：2008年3月18日 作者： 查看:[大字体
中字体 小字体]
|
rst.MoveNext
Loop
'重新设置行的位置为第一条记录
rst.MoveFirst
'设置总的页面数
If Rows <= 18 Then '总行数小于等于页面显示的总行数
pages = 1
iCurrenrows = Rows
iLastrows = 0
Else '总行数大于页面显示的总行数
If Rows Mod 18 = 0 Then '总行数等于页面显示的总行数倍数
pages = Int(Rows / 18)
iLastrows = 0
Else '总行数不等于页面显示的总行数倍数
pages = Int(Rows / 18) + 1
iLastrows = Rows Mod 18
End If
iCurrenrows = 18
End If
iPage = 1 '设置当前页面为第一页面
iRow = 0 '设置当前行位置为空
'
With printCtl
.Orientation = orLandscape '设置横向打印
.TableBorder = tbAll
'设置页面四边的边距
.MarginTop = 1400
.MarginBottom = 1400
.MarginLeft = 1400
.MarginRight = 1400
'设置字体名字
上一篇:Vb6里面数组的使用的小例子
下一篇:应用MapX编程实现地图数据查询
|
| 相关文章： |
|
|
|
| 相关软件： |
|
|
|
|
