vsprint打印实例(4) .FontBold = False .FontSize = 10 '设置页面表格 .FontSize = 9 .StartTable .TextAlign = taRightMiddle .Paragraph = "单位: 元" .StartTable .TableCell(tcCols) = cols If iPage = pages And iLastrows <> 0 Then Trows = iLastrows + 2 Else Trows = iCurrenrows + 2 End If .TableCell(tcRows) = Trows '/// .TableCell(tcRowHeight) = 400 .TableCell(tcColWidth, , 1) = 600