|
vsprint打印实例(7) .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") & ""
|
