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


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

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


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/6/13 9:40:00 [显示全部帖子]

Dim dst As Table = Tables("进销存_Table6")
Dim clb As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox2")
Dim nbox1 As WinForm.NumericComboBox = e.Form.Controls("NumericComboBox1")
Dim rbt As WinForm.RadioButton = e.Form.Controls("RadioButton1")
Dim dt As DataTable = dst.DataTable
If nbox1.value > dst.DataTable.DataCols.Count Then
    msgbox("合并列数不能大于表列数!",64,"提示")
Else
    Dim bstr,kkk,kk As String
    Dim r,c,i1,i2,i3,m,n,n2,i,rm,rm2,ci As Integer
    Dim v As Integer = e.Form.Controls("NumericComboBox2").value '表头高
    Dim vv As Integer = e.Form.Controls("NumericComboBox3").value '行高
    Dim s,ss,z As String
    Dim s2 As String = ""
    Dim ss2 As String = "__________"
    Dim doc As New PrintDoc '定义一个报表
    For i=0 To e.Form.Controls("NumericComboBox4").value-1
        Doc.Columns.Add()
    Next
    Doc.PageSetting.LeftMargin = 10 '设置左边距
    Doc.PageSetting.RightMargin = 10 '设置右边距
    Doc.PageSetting.TopMargin = 5 '设置上边距
    Doc.PageSetting.BottomMargin = 5 '设置下边距
    Dim rt As New prt.RenderTable() '定义一个表格对象
    rt.Style.Gridlines.All = New prt.Linedef(e.Form.Controls("ColorLabel2").Color) '灰色网格线
    rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
    rt.Style.TextAlignVert = prt.AlignVertEnum.Center '垂直居中
    rt.Style.Spacing.top = 5 '表格上边距为5
    If not e.Form.Controls("CheckBox3").Checked Then
        rt.Width = "Auto" '表宽等于各列设置值之和
        rt.CanSplitHorz = True '允许表格在水平方向换页
    End If
    '设置标题
    If e.Form.Controls("NumericComboBox4").value <= 1 Then
        Dim rs As New prt.RenderText() '定义一个文本对象
        rs.Text = e.Form.Controls("TextBox13").value '设置标题
        rs.Style.Font = New Font("宋体", 15 , FontStyle.Bold) '设置标题字体
        rs.Style.TextAlignHorz = prt.AlignHorzEnum.Center '标题内容水平居中
        doc.Body.Children.Add(rs) '将标题对象加入到表格中
    End If
    doc.Body.Children.Add(rt) '将表格对象加入到报表中
   
    '-----------------------------------------------------------------
    If e.Form.Controls("ComboBox5").value ="纵向" OrElse e.Form.Controls("ComboBox5").value = ""
        doc.PageSetting.Landscape = False '打印方向
    Else
        doc.PageSetting.Landscape = True  '横向打印方向
    End If
   
   
   
   
    '求得表头层数
    For Each dc As DataCol In dt.DataCols
        kkk = kkk & "," & dc.name
        i2 = dc.name.split("_").length-1
        i1 = Math.Max(i1,i2)
    Next
    For Each dc As DataCol In dt.DataCols
        If clb.GetItemChecked(c) Then '判断选择列,真,导出,假,隐藏列
            ss = dc.name & "__________"
            '求得列表头最大宽度
            For i = 1 To Len(ss.split("_")(0))
                m = Asc(Mid(ss, i, 1))
                If m >= 0 And m <128 Then ' 英文
                    n = n + 1
                Else ' 中文
                    n = n + 2
                End If
            Next
            i3 = Math.Max(i3,n)
            For i=0 To i1
                If v>0 Then
                    rt.Rows(r).Height = v '表头高度
                End If
                rt.Cells(i,c).Text = ss.split("_")(i) '设置表头内容
                If ss2.split("_")(i)=ss.split("_")(i) And ss2.split("_")(i)<>"" And c<dt.datacols.count Then
                    kk = kkk.Replace(ss.split("_")(i),"@")
                    rt.Cells(i,c-1).SpanCols = len(kk)-len(kk.Replace("@","")) '合并多表头
                End If
            Next
            r = i1
            For Each dr As DataRow In dt.Datarows
                s = dr(dc)
                '求得当前列各行中最大宽度
                For i = 1 To Len(s)
                    m = Asc(Mid(s, i, 1))
                    If m >= 0 And m <128 Then ' 英文
                        n2 = n2 + 1
                    Else ' 中文
                        n2 = n2 + 2
                    End If
                Next
                i3 = Math.Max(i3,n2)
                r +=1 '行开始
                '设置单元格值
                rt.Cells(r,c).Text = s
                z = ""
                If c>1 And rbt.Checked Then
                    For i=1 To c
                        z = z & rt.cells(r,i).text
                    Next
                    s = z
                End If
                '合并指定前N列
                If c <= nbox1.value Then
                    If s <> s2 Or r-i1=dt.DataRows.Count Then
                        If s=s2 Then
                            rm2 = rm2+1
                        End If
                        If rm2 <> 0 And s2<>"" And s2<>"0" Then
                            rt.Cells(rm,c).SpanRows = rm2
                        End If
                        s2 = s
                        rm = r
                        rm2 = 1
                    Else
                        rm2 +=1
                    End If
                End If
                If vv>0 Then
                    rt.Rows(r).Height = vv '设置行高
                End If
                n2 = 0   '完成一行后初始化条件
            Next
            If rt.Cells(i1,c).Text="" Then
                rt.Cells(0,c).SpanRows = i1+1 '合并单表头
            End If
            rt.Cols(c).Width = (i3+2.5)*1.8 '设置列宽
        Else
            rt.Cols(c).Width = 0 '隐藏列
        End If
        '完成一列后初始化条件
        ss2 = ss & ss2
        i3 = 0
        n = 0
        c +=1
        r = i1
    Next
    '设置页眉
    Dim rx As New prt.RenderTable
    rx.Cells(0,0).Text = e.Form.Controls("TextBox14").value
    If e.Form.Controls("NumericComboBox4").value <= 1 Then
        rx.Cells(0,1).Text = e.Form.Controls("TextBox16").value
        rx.Style.FontSize = 9 '字体大小为9磅
    Else
        rx.Cells(0,1).Text = e.Form.Controls("TextBox5").value '当作标题
        rx.Style.Font = New Font("宋体", 15 , FontStyle.Bold) '设置标题字体
    End If
    '--------------------------------------------------------------------------------------------
   
   
   
   
   
   
    rx.Cells(0,2).Text = e.Form.Controls("TextBox17").value
    rx.Cols(0).Style.TextAlignHorz = prt.AlignHorzEnum.Left
    rx.Cols(1).Style.TextAlignHorz = prt.AlignHorzEnum.Center
    rx.Cols(2).Style.TextAlignHorz = prt.AlignHorzEnum.right
    If e.Form.Controls("CheckBox1").Checked Then
        rx.Style.Borders.Bottom = prt.LineDef.Default '设置底边框
    End If
    rx.CellStyle.Spacing.Bottom = 0.5 '底端内容缩进0.5毫米
    Doc.PageHeader = rx '作为页眉使用
    '设置页脚
    Dim ry As New prt.RenderTable
    ry.Cells(0,0).Text = e.Form.Controls("TextBox15").value
    ry.Cells(0,1).Text = e.Form.Controls("TextBox18").value
    ry.Cells(0,2).Text = e.Form.Controls("TextBox19").value
    ry.Cols(0).Style.TextAlignHorz = prt.AlignHorzEnum.Left
    ry.Cols(1).Style.TextAlignHorz = prt.AlignHorzEnum.Center
    ry.Cols(2).Style.TextAlignHorz = prt.AlignHorzEnum.right
    If e.Form.Controls("CheckBox2").Checked Then
        ry.Style.Borders.Top = prt.LineDef.Default '设置底边框
    End If
    ry.CellStyle.Spacing.Bottom = 0.5 '底端内容缩进0.5毫米
    ry.Style.FontSize = 9 '字体大小为9磅
    Doc.PageFooter = ry '作为页脚使用
    rt.RowGroups(0,i1+1).Header = prt.TableHeaderEnum.All  '设置表头组
    rt.RowGroups(0,i1+1).Style.BackColor = e.Form.Controls("ColorLabel1").Color '表头底色
    Doc.Preview() '预览报表
End If

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


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/6/13 11:11:00 [显示全部帖子]

 
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:加载打印.table
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/6/13 14:33:00 [显示全部帖子]

 上传具体实例。

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


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/6/13 15:59:00 [显示全部帖子]

Dim dst As Table = Tables("进销存_Table6")
Dim clb As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox2")
Dim nbox1 As WinForm.NumericComboBox = e.Form.Controls("NumericComboBox1")
Dim rbt As WinForm.RadioButton = e.Form.Controls("RadioButton1")
Dim dt As DataTable = dst.DataTable
If nbox1.value > dst.DataTable.DataCols.Count Then
    msgbox("合并列数不能大于表列数!",64,"提示")
Else
    Dim bstr,kkk,kk As String
    Dim r,c,i1,i2,i3,m,n,n2,i,rm,rm2,ci As Integer
    Dim v As Integer = e.Form.Controls("NumericComboBox2").value '表头高
    Dim vv As Integer = e.Form.Controls("NumericComboBox3").value '行高
    Dim s,ss,z As String
    Dim s2 As String = ""
    Dim ss2 As String = "__________"
    Dim doc As New PrintDoc '定义一个报表
    For i=0 To e.Form.Controls("NumericComboBox4").value-1
        Doc.Columns.Add()
    Next
    Doc.PageSetting.LeftMargin = 10 '设置左边距
    Doc.PageSetting.RightMargin = 10 '设置右边距
    Doc.PageSetting.TopMargin = 5 '设置上边距
    Doc.PageSetting.BottomMargin = 5 '设置下边距
    Dim rt As New prt.RenderTable() '定义一个表格对象
    rt.Style.Gridlines.All = New prt.Linedef(e.Form.Controls("ColorLabel2").Color) '灰色网格线
    rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
    rt.Style.TextAlignVert = prt.AlignVertEnum.Center '垂直居中
    rt.Style.Spacing.top = 5 '表格上边距为5
    If not e.Form.Controls("CheckBox3").Checked Then
        rt.Width = "Auto" '表宽等于各列设置值之和
        rt.CanSplitHorz = True '允许表格在水平方向换页
    End If
    '设置标题
    If e.Form.Controls("NumericComboBox4").value <= 1 Then
        Dim rs As New prt.RenderText() '定义一个文本对象
        rs.Text = e.Form.Controls("TextBox13").value '设置标题
        rs.Style.Font = New Font("宋体", 15 , FontStyle.Bold) '设置标题字体
        rs.Style.TextAlignHorz = prt.AlignHorzEnum.Center '标题内容水平居中
        doc.Body.Children.Add(rs) '将标题对象加入到表格中
    End If
    doc.Body.Children.Add(rt) '将表格对象加入到报表中
   
    '-----------------------------------------------------------------
    If e.Form.Controls("ComboBox6").value ="纵向" OrElse e.Form.Controls("ComboBox6").value = ""
        doc.PageSetting.Landscape = False '打印方向
    Else
        doc.PageSetting.Landscape = True  '横向打印方向
    End If
   
   
   
   
    '求得表头层数
    For Each dc As Col In dst.Cols
        kkk = kkk & "," & dc.name
        i2 = dc.name.split("_").length-1
        i1 = Math.Max(i1,i2)
    Next
    For Each tc As Col In dst.Cols
        Dim dc As DataCol = tc.DataCol
        If clb.GetItemChecked(c) Then '判断选择列,真,导出,假,隐藏列
            ss = dc.name & "__________"
            '求得列表头最大宽度
            For i = 1 To Len(ss.split("_")(0))
                m = Asc(Mid(ss, i, 1))
                If m >= 0 And m <128 Then ' 英文
                    n = n + 1
                Else ' 中文
                    n = n + 2
                End If
            Next
            i3 = Math.Max(i3,n)
            For i=0 To i1
                If v>0 Then
                    rt.Rows(r).Height = v '表头高度
                End If
                rt.Cells(i,c).Text = ss.split("_")(i) '设置表头内容
                If ss2.split("_")(i)=ss.split("_")(i) And ss2.split("_")(i)<>"" And c<dt.datacols.count Then
                    kk = kkk.Replace(ss.split("_")(i) & "_","@")
                    rt.Cells(i,c-1).SpanCols = len(kk)-len(kk.Replace("@","")) '合并多表头
                End If
            Next
            r = i1
            For Each cr As Row In dst.GetCheckedRows
                Dim dr As DataRow = cr.DataRow
                s = dr(dc)
                '求得当前列各行中最大宽度
                For i = 1 To Len(s)
                    m = Asc(Mid(s, i, 1))
                    If m >= 0 And m <128 Then ' 英文
                        n2 = n2 + 1
                    Else ' 中文
                        n2 = n2 + 2
                    End If
                Next
                i3 = Math.Max(i3,n2)
                r +=1 '行开始
                '设置单元格值
                rt.Cells(r,c).Text = s
                z = ""
                If c>1 And rbt.Checked Then
                    For i=1 To c
                        z = z & rt.cells(r,i).text
                    Next
                    s = z
                End If
                '合并指定前N列
                If c <= nbox1.value Then
                    If s <> s2 Or r-i1=dt.DataRows.Count Then
                        If s=s2 Then
                            rm2 = rm2+1
                        End If
                        If rm2 <> 0 And s2<>"" And s2<>"0" Then
                            rt.Cells(rm,c).SpanRows = rm2
                        End If
                        s2 = s
                        rm = r
                        rm2 = 1
                    Else
                        rm2 +=1
                    End If
                End If
                If vv>0 Then
                    rt.Rows(r).Height = vv '设置行高
                End If
                n2 = 0   '完成一行后初始化条件
            Next
            If rt.Cells(i1,c).Text="" Then
                rt.Cells(0,c).SpanRows = i1+1 '合并单表头
            End If
            rt.Cols(c).Width = (i3+2.5)*1.8 '设置列宽
        Else
            rt.Cols(c).Width = 0 '隐藏列
        End If
        '完成一列后初始化条件
        ss2 = ss & ss2
        i3 = 0
        n = 0
        c +=1
        r = i1
    Next
    '设置页眉
    Dim rx As New prt.RenderTable
    rx.Cells(0,0).Text = e.Form.Controls("TextBox14").value
    If e.Form.Controls("NumericComboBox4").value <= 1 Then
        rx.Cells(0,1).Text = e.Form.Controls("TextBox16").value
        rx.Style.FontSize = 9 '字体大小为9磅
    Else
        rx.Cells(0,1).Text = e.Form.Controls("TextBox5").value '当作标题
        rx.Style.Font = New Font("宋体", 15 , FontStyle.Bold) '设置标题字体
    End If
    '--------------------------------------------------------------------------------------------
   
   
   
   
   
   
    rx.Cells(0,2).Text = e.Form.Controls("TextBox17").value
    rx.Cols(0).Style.TextAlignHorz = prt.AlignHorzEnum.Left
    rx.Cols(1).Style.TextAlignHorz = prt.AlignHorzEnum.Center
    rx.Cols(2).Style.TextAlignHorz = prt.AlignHorzEnum.right
    If e.Form.Controls("CheckBox1").Checked Then
        rx.Style.Borders.Bottom = prt.LineDef.Default '设置底边框
    End If
    rx.CellStyle.Spacing.Bottom = 0.5 '底端内容缩进0.5毫米
    Doc.PageHeader = rx '作为页眉使用
    '设置页脚
    Dim ry As New prt.RenderTable
    ry.Cells(0,0).Text = e.Form.Controls("TextBox15").value
    ry.Cells(0,1).Text = e.Form.Controls("TextBox18").value
    ry.Cells(0,2).Text = e.Form.Controls("TextBox19").value
    ry.Cols(0).Style.TextAlignHorz = prt.AlignHorzEnum.Left
    ry.Cols(1).Style.TextAlignHorz = prt.AlignHorzEnum.Center
    ry.Cols(2).Style.TextAlignHorz = prt.AlignHorzEnum.right
    If e.Form.Controls("CheckBox2").Checked Then
        ry.Style.Borders.Top = prt.LineDef.Default '设置底边框
    End If
    ry.CellStyle.Spacing.Bottom = 0.5 '底端内容缩进0.5毫米
    ry.Style.FontSize = 9 '字体大小为9磅
    Doc.PageFooter = ry '作为页脚使用
    rt.RowGroups(0,i1+1).Header = prt.TableHeaderEnum.All  '设置表头组
    rt.RowGroups(0,i1+1).Style.BackColor = e.Form.Controls("ColorLabel1").Color '表头底色
    Doc.Preview() '预览报表
End If

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