文本的右侧如何对齐？换页后新设置的页边距如何不影响上面的页面？
此主题相关图片如下：qq截图20241203213612.png
代码如下》
Dim doc As New PrintDoc '定义一个报表
Doc.PageSetting.LeftMargin = 0 '设置左边距
Doc.PageSetting.RightMargin = 0 '设置右边距
Doc.PageSetting.TopMargin = 20 '设置上边距
Doc.PageSetting.BottomMargin = 20 '设置下边距
Dim rt As New prt.RenderText '定义一个文本对象
rt.Text = "1.哈《亏好多》师n大咖啡机卡活动很卡活动很骄傲发货货卡的活动很5骄傲发货的发哈的发哈货卡的活动很5骄傲发货的发哈的发哈货卡的活动很56骄傲发货的发哈的发哈卡的活动很5骄傲发货的发哈的发哈骄傲发货63的发哈很费劲啊哈后方。" '设置文本对象的内容
rt.Style.TextAlignHorz = prt.AlignHorzEnum.Justify '分散对齐
rt.Style.TextAlignVert = prt.AlignVertEnum.Center '垂直居中
rt.Style.Font = New Font("宋体", 30, FontStyle.Bold)
doc.Body.Children.Add(rt) '将文本对象加入到报表
rt.BreakAfter = prt.BreakEnum.Page
Doc.PageSetting.LeftMargin = 20 '设置左边距
Doc.PageSetting.RightMargin = 20'设置右边距
Doc.PageSetting.TopMargin = 20 '设置上边距
Doc.PageSetting.BottomMargin = 20 '设置下边距
Dim rt0 As New prt.RenderText '定义一个文本对象
rt0.Text = "Hello Foxtable" '设置文本对象的内容
doc.Body.Children.Add(rt0) '将文本对象加入到报表
doc.Preview() '预览
加好友 
发短信
Post By：2024/12/3 21:40:00 [只看该作者]
