[求助]如何自动按考场打印 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

下载信息 [文件大小：下载次数： ]
点击浏览该文件:条形码.table

是用筛选吗？

下载信息 [文件大小：下载次数： ]
点击浏览该文件:条码.table

用筛选（见高三表）我还是不能搞定自动打印，如何实现一页一个考场，报表全部显示，想打那一部分都可以，就如同word打印一样，请高手指定。

[此贴子已经被作者于2011-9-28 7:25:40编辑过]

For each v as String in DataTables(“xxx”).GetUniqueValues("","考场")

tables("XXX").Filter = "考场 = '" & v & "'"

'打印代码

以下是引用狐狸爸爸在2011-9-28 8:00:00的发言：

For each v as String in DataTables(“xxx”).GetUniqueValues("","考场")

tables("XXX").Filter = "考场 = '" & v & "'"

'打印代码

能对我的代码改一下吗？

我不想显示一个打一个，我想预览所有的，然后打印时选择

Dim kc As Integer
With CurrentTable
    Dim kct As Row = .Rows(0)
    Dim kcw As Row = .Rows(.Rows.Count-1)
    Dim i As Integer
    Dim doc As New PrintDoc
    .StopRedraw
    For i = kct("考场") To kcw("考场")
        .Filter = "[考场] = " & cstr(i)
        Dim rt As prt.RenderText
        Dim img As prt.RenderImage
        Dim Bar As New BarCodeBuilder
        doc.PageSetting.PaperKind = 9
        Doc.PageSetting.LeftMargin = 9 '设置左边距
        Doc.PageSetting.RightMargin = 5 '设置右边距
        Doc.PageSetting.TopMargin = 9 '设置上边距
        Doc.PageSetting.BottomMargin = 4 '设置下边
        Bar.Symbology = Barpro.Symbology.Code128
        Bar.Barwidth=0.45
        Bar.BarRatio = 2
        Bar.BarHeight = 10
        Bar.BottomMargin = 1
        Bar.Font = New Font("宋体",10.5)
        Bar.Code128CharSet = Barpro.Code128.C
        Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight
        For Each r As Row In .Rows
            Dim ra As New prt.RenderArea
            'Dim rt As prt.RenderText
            ra.Width = 48.5 '宽度53毫米
            ra.Height = 25.5 '高度24毫米
            ra.Style.Padding.Top=5
            ra.Style.Padding.Left=6
            ra.style.Spacing.All=0
            ra.Style.Borders.All = New prt.Linedef(0, Color.LightGray) '设置边框
            'ra.Style.TextAlignHorz = prt.AlignHorzEnum.Center
            'ra.Style.TextAlignVert = prt.AlignVertEnum.Center
            ra.SplitHorzBehavior = prt.SplitBehaviorEnum.Never '禁止水平分割
            ra.SplitVertBehavior = prt.SplitBehaviorEnum.Never '禁止垂直分割
            Doc.Body.ChildRen.Add(ra) '将容器加入
            bar.Code = r("考生号")
            Bar.HumanReadableText =r("姓名") & "   " & r("考生号")
            'Bar.SaveImage("f:\txm2011\MyBar.jpg")
            img = new prt.RenderImage
            img.Image = bar.GetImage
            ra.Children.Add(img)
            kc=r("考场")
        Next
        rt = New prt.RenderText '设置文本对象的内容
        rt.Text = "高一第" & cstr(kc) & "考场               ." '设置文本内容
        rt.Style.TextAlignHorz = prt.AlignHorzEnum.Right '靠右对齐
        rt.Style.Padding.Bottom = 20 '底端内容缩进0.5毫米
        rt.Style.TextColor = Color.Red
        rt.Style.FontSize = 14 '字体大小为8磅
        rt.BreakAfter=prt.BreakEnum.Page
        Doc.PageFooter = rt '作为页眉使用
        .Filter = ""
    Next
    .ResumeRedraw
    Doc.Preview()
End With

还是不行噢，乱了

方法已经给出，请自行调整。

6楼代码不行，不是按考场来的

[此贴子已经被作者于2011-9-28 9:56:25编辑过]

With CurrentTable
    Dim doc As New PrintDoc
    doc.PageSetting.PaperKind = 9
    Doc.PageSetting.LeftMargin = 9 '设置左边距
    Doc.PageSetting.RightMargin = 5 '设置右边距
    Doc.PageSetting.TopMargin = 9 '设置上边距
    Doc.PageSetting.BottomMargin = 4 '设置下边
    For Each s As String In DataTables("高三").GetUniqueValues("","考场")
        Dim rt As prt.RenderText
        Dim img As prt.RenderImage
        Dim Bar As New BarCodeBuilder
        Bar.Symbology = Barpro.Symbology.Code128
        Bar.Barwidth=0.45
        Bar.BarRatio = 2
        Bar.BarHeight = 10
        Bar.BottomMargin = 1
        Bar.Font = New Font("宋体",10.5)
        Bar.Code128CharSet = Barpro.Code128.C
        Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight
        For Each r As DataRow In DataTables("高三").Select("考场 = '" & s & "'")
            Dim ra As New prt.RenderArea
            ra.Width = 48.5 '宽度53毫米
            ra.Height = 25.5 '高度24毫米
            ra.Style.Padding.Top=5
            ra.Style.Padding.Left=6
            ra.style.Spacing.All=0
            ra.Style.Borders.All = New prt.Linedef(0, Color.LightGray) '设置边框
            ra.SplitHorzBehavior = prt.SplitBehaviorEnum.Never '禁止水平分割
            ra.SplitVertBehavior = prt.SplitBehaviorEnum.Never '禁止垂直分割
            bar.Code = r("考生号")
            Bar.HumanReadableText =r("姓名") & "   " & r("考生号")
            img = new prt.RenderImage
            img.Image = bar.GetImage
            ra.Children.Add(img)
            Doc.Body.ChildRen.Add(ra) '将容器加入
        Next
        rt = New prt.RenderText '设置文本对象的内容
        rt.Text = "高一第" & s & "考场               ." '设置文本内容
        rt.Style.TextAlignHorz = prt.AlignHorzEnum.Right '靠右对齐
        rt.Style.Padding.Bottom = 20 '底端内容缩进0.5毫米
        rt.Style.TextColor = Color.Red
        rt.Style.FontSize = 14 '字体大小为8磅
        rt.BreakAfter=prt.BreakEnum.Page
        Doc.Body.ChildRen.Add(rt) '将容器加入
    Next
    Doc.Preview()
End With

主题：[求助]如何自动按考场打印