Foxtable(狐表)用户栏目专家坐堂 → 报表格式问题,请解答


  共有167人关注过本帖树形打印复制链接

主题:报表格式问题,请解答

帅哥哟,离线,有人找我吗?
191422411
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:141 积分:1283 威望:0 精华:0 注册:2012/4/24 19:42:00
报表格式问题,请解答  发帖心情 Post By:2024/12/3 21:40:00 [只看该作者]

文本的右侧如何对齐?

换页后新设置的页边距如何不影响上面的页面?



图片点击可在新窗口打开查看此主题相关图片如下: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() '预览


 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111374 积分:566934 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/12/3 21:51:00 [只看该作者]

rt.Style.TextAlignHorz = prt.AlignHorzEnum.JustifyChars 

 回到顶部
帅哥哟,离线,有人找我吗?
191422411
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:141 积分:1283 威望:0 精华:0 注册:2012/4/24 19:42:00
  发帖心情 Post By:2024/12/3 22:08:00 [只看该作者]

换页后新设置的页边距如何不影响上面的页面?
可以单独设置页边距不影响其他页面吗

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111374 积分:566934 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/12/3 22:14:00 [只看该作者]

一次打印,只能是统一的规格

 回到顶部