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


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

主题：[求助] 打印标签
帅哥哟，离线，有人找我吗？
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106028 积分：539233 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/1/28 16:37:00 [显示全部帖子]

说明试用版快到期了。购买正式版使用就不会有foxtable的水印

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


加好友 发短信
等级：超级版主 帖子：106028 积分：539233 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/1/28 17:04:00 [显示全部帖子]


 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106028 积分：539233 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/1/28 20:57:00 [显示全部帖子]


 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106028 积分：539233 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/1/28 22:10:00 [显示全部帖子]

14楼代码有边框吗？？

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


加好友 发短信
等级：超级版主 帖子：106028 积分：539233 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/1/29 20:36:00 [显示全部帖子]

Dim count As Integer = 1
If InputValue(count, "提示", "打印多少次?") Then
    Dim doc  As New PrintDoc
    doc.PageSetting.Width = 49  '
    doc.PageSetting.Height = 29
    Doc.PageSetting.LeftMargin = 0
    Doc.PageSetting.TopMargin = 0
    
    Dim t As Table = e.form.controls("table1").Table
    For i As Integer = t.TopPosition To t.BottomPosition
        Dim r As Row = t.Rows(i)
        r("打印次数") = count
        For j As Integer = 1 To count
            Dim rt As New prt.RenderTable() '定义一个表格对象
            rt.Style.GridLines.All = New prt.LineDef '将网格线类型设为默认类型
            rt.Width = 50 '表格宽度为50mm
            rt.Style.Spacing.All = 2 '和其他对象之间的间隔为2mm
            rt.SplitVertBehavior = prt.SplitBehaviorEnum.Never '避免垂直换页的时候,表格被分割成两部分.
            rt.Cols(0).Width = 20
            rt.cells(0,0).Text = "客户"
            rt.Cells(0,1).Text = r("客户")
            rt.Cells(1,0).Text = "订单号"
            rt.Cells(1,1).Text = r("订单号码")
            rt.Cells(2,0).Text= "数量"
            rt.cells(2,1).Text = r("发货数量")
            doc.Body.Children.Add(rt) '将表格对象加入到报表中
        Next
    Next
    doc.Preview
    'doc.print
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106028 积分：539233 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/1/29 21:33:00 [显示全部帖子]

1、r("打印次数") = r("打印次数")  + count

2、
If InputValue(count, "提示", "打印多少次?") Then
    if count > 100 then
错误提示并返回
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106028 积分：539233 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/2/23 13:50:00 [显示全部帖子]

标签里无法放图片。可以放一个图片框到标签后面

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


加好友 发短信
等级：超级版主 帖子：106028 积分：539233 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/2/23 17:58:00 [显示全部帖子]

直接添加一个控件放到标签后面，然后设置图片就可以了，还要什么例子：http://www.foxtable.com/webhelp/scr/0812.htm

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 5 次数据查询