|
|
 |
vsprint打印实例 |
热 ★★★★ |
|
vsprint打印实例 |
|
作者：闵涛 文章来源：闵涛的学习笔记 点击数：1390 更新时间：2009/4/23 16:37:43  |
|
|
Cell(tcColSpan, 1, 4) = 10
.TableCell(tcRowSpan, 1, 1) = 2
.TableCell(tcRowSpan, 1, 2) = 2
.TableCell(tcRowSpan, 1, 3) = 2
''''///
.TableCell(tcText, 1, 1) = "序号"
.TableCell(tcText, 1, 2) = "工程单价名称"
.TableCell(tcText, 1, 3) = "单价"
.TableCell(tcText, 1, 4) = "其中"
.TableCell(tcText, 2, 4) = "人工费"
.TableCell(tcText, 2, 5) = "材料费"
.TableCell(tcText, 2, 6) = "机械费"
.TableCell(tcText, 2, 7) = "其他直接费"
.TableCell(tcText, 2, 8) = "现场经费"
.TableCell(tcText, 2, 9) = "直接工程费"
.TableCell(tcText, 2, 10) = "间接费"
.TableCell(tcText, 2, 11) = "计划利润"
.TableCell(tcText, 2, 12) = "税金"
.TableCell(tcText, 2, 13) = "材差"
''''///
.TableCell(tcAlign, 1, 1, 1, 13) = taCenterMiddle ''''标题行居中对齐
.TableCell(tcAlign, 2, 4, 2, 13) = taCenterMiddle ''''标题行居中对齐
.TableCell(tcAlign, 3, 1, Trows, 1) = taCenterMiddle ''''第一列居中对齐
.TableCell(tcAlign, 3, 2, Trows, 2) = taLeftMiddle ''''第二列居中左对齐
.TableCell(tcAlign, 3, 3, Trows, 13) = taRightMiddle ''''其他列居中右对齐
''''*************************************向每一页面添加数据*************************************
iCurrent = 0
Do While Not rst.EOF
iRow = iRow + 1
''''当当前页面数据添加完后退出循环，开始下一页面
If iCurrent <> 0 And iCurrent Mod 18 = 0 Then
Exit Do
End If
.TableCell(tcText, 3 + iCurrent, 1) = rst.Fields("nn") & ""
.TableCell(tcText, 3 + iCurrent, 2) = rst.Fields("name") & ""
.TableCell(tcText, 3 + iCurrent, 3) = formatData2(Val(rst.Fields("price1") & ""), Val(rst.Fields("unit") & ""))
.TableCell(tcText, 3 + iCurrent, 4) = formatData2(Val(rst.Fields("pricerengong") & ""), Val(rst.Fields("unit") & ""))
.TableCell(tcText, 3 + iCurrent, 5) = formatData2(Val(rst.Fields("pricecailiao") & ""), Val(rst.Fields("unit") & ""))
.TableCell(tcText, 3 + iCurrent, 6) = formatData2(Val(rst.Fields("pricejixie") & ""), Val(rst.Fields("unit") & ""))
.TableCell(tcText, 3 + iCurrent, 7) = formatData2(Val(rst.Fields("priceqitazhijie") & ""), Val(rst.Fields("unit") & ""))
.TableCell(tcText, 3 + iCurrent, 8) = formatData2(Val(rst.Fields("pricexianchang") & ""), Val(rst.Fields("unit") & ""))
.TableCell(tcText, 3 + iCurrent, 9) = formatData2(Val(rst.Fields("pricezhijiegongcheng") & ""), Val(rst.Fields("unit") & ""))
.TableCell(tcText, 3 + iCurrent, 10) = formatData2(Val(rst.Fields("pricejianjie") & ""), Val(rst.Fields("unit") & ""))
.TableCell(tcText, 3 + iCurrent, 11) = formatData2(Val(rst.Fields("pricejihualirun") & ""), Val(rst.Fields("unit") & ""))
.TableCell(tcText, 3 + iCurrent, 12) = formatData2(Val(rst.Fields("priceshuijin") & ""), Val(rst.Fields("unit") & ""))
.TableCell(tcText, 3 + iCurrent, 13) = formatData2(Val(rst.Fields("priceshashijiacha") & ""), Val(rst.Fields("unit") & ""))
rst.MoveNext
iCurrent = iCurrent + 1
Loop
.EndTable
''''判断当前记录的位置是否为最后一条，如果不是最后一条，开始新的一页
If iRow < Rows Then
.NewPage ''''开始新的一页
End If
Next iPage
''''*************************************结束打印文档*************************************
.EndDoc
End With
Else
MsgBox "没有要打印的数据", vbOKOnly + vbInformation
End If
rst.Close
con.Close
Set rst = Nothing
Set con = Nothing
Exit Sub
err1:
MsgBox Err.Description, vbOKOnly + vbInformation, "提示"
End Sub
上一页 [1] [2]
没有相关教程
|
|
| 教程录入：mintao 责任编辑：mintao |
|
|
上一篇教程： 应用MapX编程实现地图数据查询
下一篇教程： Vb6里面数组的使用的小例子 |
|
|
| 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】 |
|
 注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] |
| 网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！） |
| |
|
|
|
|
|
 |
同类栏目 |
 |
|
赞助链接 |
|
|
500 - 内部服务器错误。
|
|
|
|
|
|
