Foxtable(狐表)用户栏目专家坐堂 → 标签打印


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

主题:标签打印

帅哥,在线噢!
BG小白
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:577 积分:3938 威望:0 精华:0 注册:2019/11/14 23:06:00
标签打印  发帖心情 Post By:2024/2/8 9:31:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20240208092835.png
图片点击可在新窗口打开查看

这个代码哪里有问题啊,怎么在一个页面

Dim doc As New PrintDoc '定义一个报表
Doc.Columns.Add() '增加三栏
Doc.Columns.Add() '增加三栏
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.Code128
Bar.BarWidth = 0.28
doc.Stacking = prt.StackingRulesEnum.BlockTopToBottom '设置排列方式
Dim rg As New prt.RenderGraphics
Dim rt As prt.RenderText
doc.PageSetting.Width = 62 '纸张宽度为100毫米
doc.PageSetting.Height = 86
Doc.Columns(0).Spacing = 40 '栏间距2毫米
Doc.PageSetting.LeftMargin = 1
Doc.PageSetting.TopMargin = 1.5
'doc.PageSetting.Landscape = True

For Each r As Row In Tables("进货单明细").Rows
    For i As Integer = 1 To r("SL")
        Dim ra As New prt.RenderArea
        ra.Width = 60 '宽度等于分栏宽度
        ra.Height = 40 '高度24毫米
        ra.Style.Borders.All = New prt.Linedef(0.3, Color.Red) '设置边框
        ra.SplitHorzBehavior = prt.SplitBehaviorEnum.Never '禁止水平分割
        ra.SplitVertBehavior = prt.SplitBehaviorEnum.Never '禁止垂直分割
        Doc.Body.ChildRen.Add(ra) '将容器加入到报表中
        
        rt = New prt.RenderText
        rt.Text = r("SPMC")
        rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
        rt.Style.Font = New Font("宋体", 24, FontStyle.Bold)
        ra.Children.Add(rt) '添加到容器中
        
        rt = New prt.RenderText
        rt.Text = r("DJ") & "元"
        rt.Y = "Prev.Bottom"
        rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
        rt.Style.Font = New Font("宋体", 32, FontStyle.Bold)
        ra.Children.Add(rt)
        
        bar.Code = r("SKU")
        bar.BarHeight = 7
        Bar.Font = New Font("宋体", 14, FontStyle.Bold)
        rg = New prt.RenderGraphics
        'rg.X = 8
        rg.Y = "Prev.Bottom"
        Bar.QuietZoneWidth = 10
        bar.DrawOnCanvas(rg.Graphics, 0, 0, 1)
        ra.Children.Add(rg)
        
        rt = New prt.RenderText
        rt.Text = r("GG1MC")
        rt.X = 14.5
        rt.Y = 33
        rt.Style.Font = New Font("宋体", 12, FontStyle.Bold)
        ra.Children.Add(rt) '添加到容器中
        
        rt = New prt.RenderText
        rt.Text = r("GG2MC")
        rt.X = 40.5
        rt.Y = 33
        rt.Style.Font = New Font("宋体", 12, FontStyle.Bold)
        ra.Children.Add(rt) '添加到容器中
        
        rt = New prt.RenderText
        rt.Text = r("ZJF")
        rt.X = 52
        rt.Y = 8
        rt.Style.Font = New Font("宋体", 14, FontStyle.Bold)
        rt.Style.TextAngle = -90
        ra.Children.Add(rt) '添加到容器中
    Next
Next
Doc.Preview() '预览报表

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


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

表数据是怎么样的,r("SL")存储的都有什么值?

 回到顶部
帅哥,在线噢!
BG小白
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:577 积分:3938 威望:0 精华:0 注册:2019/11/14 23:06:00
  发帖心情 Post By:2024/2/8 9:47:00 [只看该作者]

SL是整数

图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20240208094601.png
图片点击可在新窗口打开查看


 回到顶部
帅哥,在线噢!
BG小白
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:577 积分:3938 威望:0 精华:0 注册:2019/11/14 23:06:00
  发帖心情 Post By:2024/2/8 10:09:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20240208100825.png
图片点击可在新窗口打开查看

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


加好友 发短信
等级:超级版主 帖子:104811 积分:532932 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/2/8 10:09:00 [只看该作者]

……
doc.PageSetting.Width = 62 '纸张宽度为100毫米
doc.PageSetting.Height = 86
'Doc.Columns(0).Spacing = 40 '栏间距2毫米
Doc.PageSetting.LeftMargin = 1
Doc.PageSetting.RightMargin = 1
Doc.PageSetting.TopMargin = 1.5
Doc.PageSetting.BottomMargin = 1.5
'doc.PageSetting.Landscape = True

For Each r As Row In Tables("进货单明细").Rows
    For i As Integer = 1 To 1 r("SL")
        Dim ra As New prt.RenderArea
        ra.Width = 60 '宽度等于分栏宽度
        ra.Height = 40 '高度24毫米
        ra.Style.Spacing.Bottom = 3
        ra.Style.Borders.All = New prt.Linedef(0.3, Color.Red) '设置边框
……

 回到顶部
帅哥,在线噢!
BG小白
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:577 积分:3938 威望:0 精华:0 注册:2019/11/14 23:06:00
  发帖心情 Post By:2024/2/8 10:12:00 [只看该作者]

还是不行

图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20240208101158.png
图片点击可在新窗口打开查看


 回到顶部
帅哥,在线噢!
BG小白
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:577 积分:3938 威望:0 精华:0 注册:2019/11/14 23:06:00
  发帖心情 Post By:2024/2/8 10:15:00 [只看该作者]

调好了

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


加好友 发短信
等级:超级版主 帖子:104811 积分:532932 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/2/8 10:17:00 [只看该作者]

下面代码去掉


Doc.Columns.Add() '增加三栏
Doc.Columns.Add() '增加三栏

doc.Stacking = prt.StackingRulesEnum.BlockTopToBottom '设置排列方式

Doc.Columns(0).Spacing = 40 '栏间距2毫米

 回到顶部