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] |
