Dim fnt As New Font(Tables("系统设置").Current("默认字体"),Tables("打印设置").Current("表体字体大小"))rt.Style.Font=fnt
rt.Style.Font=New Font(Tables("系统设置").Current("默认字体"),Tables("打印设置").Current("表体字体大小"))