Foxtable(狐表)用户栏目专家坐堂 → [求助]标签设置与打印


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

主题:[求助]标签设置与打印

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


加好友 发短信
等级:八尾狐 帖子:1814 积分:19192 威望:0 精华:0 注册:2013/4/10 14:38:00
[求助]标签设置与打印  发帖心情 Post By:2022/5/13 14:04:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:标签1.png
图片点击可在新窗口打开查看


图片点击可在新窗口打开查看此主题相关图片如下:标签2.png
图片点击可在新窗口打开查看

以下是代码,抄帮助的
Dim doc As New PrintDoc() '定义一个报表
doc.PageSetting.Width = 159 '纸张宽度为100毫米
doc.PageSetting.Height = 205 '纸张高度为120毫米

Doc.PageSetting.LeftMargin = 0.5 '设置左边距
Doc.PageSetting.RightMargin = 0.5 '设置右边距
Doc.PageSetting.TopMargin = 3.5 '设置上边距
Doc.PageSetting.BottomMargin = 0.5 '设置下边距
Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight '设置排列方式

For i As Integer = 0 To 39
    Dim ra As New prt.RenderArea
    Dim rt As prt.RenderText
    ra.Width = 39.4 '宽度53毫米
    ra.Height = 20 '高度24毫米
    ra.Style.Spacing.All = 0.5
    ra.Style.Borders.All = New prt.Linedef(0.1, Color.Red) '设置边框
    ra.SplitHorzBehavior = prt.SplitBehaviorEnum.Never '禁止水平分割
    ra.SplitVertBehavior = prt.SplitBehaviorEnum.Never '禁止垂直分割
    Doc.Body.ChildRen.Add(ra) '将容器加入到报表中 

    rt = New prt.RenderText
    rt.Text = "姓名:"
    rt.X = 2
    rt.Y = 2
    ra.Children.Add(rt) '添加到容器中

    rt = New prt.RenderText
    rt.Text = "黄财德"
    rt.X = 15
    rt.Y = 2
    ra.Children.Add(rt)

    rt = New prt.RenderText
    rt.Text = "职务:"
    rt.X = 2
    rt.Y = "Prev.Bottom + 2" '垂直坐标位于迁移对象之下的2毫米
    ra.Children.Add(rt)

    rt = New prt.RenderText
    rt.Text = "总经理"
    rt.X = 15
    rt.Y = "Prev.Top" '垂直坐标和前一对象相同 
    ra.Children.Add(rt)

    rt = New prt.RenderText
    rt.Text = "编号:"
    rt.X = 2
    rt.Y = "Prev.Bottom + 2"
    ra.Children.Add(rt)

    rt = New prt.RenderText
    rt.Text = "44081919710917243"
    rt.X = 15
    rt.Y = "Prev.Top"
    ra.Children.Add(rt)

Next

doc.Preview '预览

[此贴子已经被作者于2022/5/13 14:05:38编辑过]

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


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/5/13 14:05:00 [只看该作者]

参考:http://www.foxtable.com/webhelp/topics/2904.htm

添加自定义纸张,并设置为打印机的默认纸张

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


加好友 发短信
等级:八尾狐 帖子:1814 积分:19192 威望:0 精华:0 注册:2013/4/10 14:38:00
  发帖心情 Post By:2022/5/13 14:15:00 [只看该作者]

自定义纸张添加了,也设置成默认的
但结果是一样

图片点击可在新窗口打开查看此主题相关图片如下:标签3.png
图片点击可在新窗口打开查看


图片点击可在新窗口打开查看此主题相关图片如下:标签4.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2022/5/13 14:16:06编辑过]

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


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/5/13 14:36:00 [只看该作者]

我测试没有问题的

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


加好友 发短信
等级:八尾狐 帖子:1814 积分:19192 威望:0 精华:0 注册:2013/4/10 14:38:00
  发帖心情 Post By:2022/5/13 14:55:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:标签5.png
图片点击可在新窗口打开查看

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


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/5/13 15:26:00 [只看该作者]

这个是C1的问题,可能不支持动态定义的类型。试试关闭重新打开项目,看能不能用

 回到顶部