主题：[求助]条码打印机使用求助

由于没接触过专业报表

这是条码设置

此主题相关图片如下：qq截图20150414135514.png

我想直接用代码在FT里实现打印（或预览）

Dim doc As New PrintDoc
Dim img As prt.RenderImage
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.Code93
Bar.BarHeight = 7.08
Bar.QuietZoneWidth = 2
Bar.AddCheckSum = False
Bar.BearerBarWidth = 0.27
Bar.DisplayChecksum = False
Bar.TextAlignment = Barpro.Alignment.AboveLeft

Dim t As Table = Tables(e.Form.Name & "_Table1")
Dim rs As List(of Row) = t.GetCheckedRows
For Each r As Row In rs
    Bar.Code = r("编号")
    Bar.Text = "日期:" & r("日期")
    img = new prt.RenderImage
    img.Image = bar.GetImage
    Doc.Body.Children.Add(img)
Next
'Doc.Preview()

不知道怎么写，求助

打印机是两张一出的，我想按打印机软件中设置（如图）中设置的一样

实例2中是可以两个一出，但是两个是一样的，我不需要一样的

另外纸张大小尺寸都要设置的吧？

Dim doc As New PrintDoc
Dim img As prt.RenderImage
Dim Bar As New BarCodeBuilder
doc.PageSetting.Width = 106
doc.PageSetting.Height = 30
Bar.Symbology = Barpro.Symbology.Code93
Bar.BarHeight = 7.08
Bar.QuietZoneWidth = 2
Bar.AddCheckSum = False
Bar.BearerBarWidth = 0.27
Bar.DisplayChecksum = False
Bar.TextAlignment = Barpro.Alignment.AboveLeft
doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight
Dim t As Table = Tables(e.Form.Name & "_Table1")
Dim rs As List(of Row) = t.GetCheckedRows
For Each r As Row In rs
    Bar.Code = r("编号")
    Bar.Text = "日期:" & r("时间")
    img = new prt.RenderImage
    img.Width = 50
    img.Height = 30
    img.Style.Spacing.All = 2
    img.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
    img.Style.TextAlignVert = prt.AlignVertEnum.Center
    img.Image = bar.GetImage
    Doc.Body.Children.Add(img)
Next
Doc.Preview()

能帮我看看哪里不对么

Dim doc As New PrintDoc() '定义一个报表
Doc.PageSetting.Width = 106
Doc.PageSetting.Height = 30
Dim ra As New prt.RenderArea '定义一个容器
Dim rt As prt.RenderText '定义一个文本对象
ra.Stacking = prt.StackingRulesEnum.InlineLeftToRight '设置容器中对象的排列方式
For i As Integer = 0 To 1
    rt = New prt.RenderText() '创建文本对象
    rt.Text = "Hello Foxtable " & i '设置文本对象的内容
    rt.Width = 50 '宽度为35毫米
    rt.Height = 30 '高度为15毫米
    rt.Style.Spacing.All = 3 '设置各个方向的间隔
    rt.Style.Borders.All = New prt.Linedef(1, Color.Red) '设置边框
    rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
    rt.Style.TextAlignVert = prt.AlignVertEnum.Center '垂直居中
    ra.Children.Add(rt) '将文本对象加入到容器ra中
Next
doc.Body.Children.Add(ra) '将容器ra加入到报表
doc.Preview() '预览

我找不出这个问题出在哪里？

Dim doc As New PrintDoc() '定义一个报表
Doc.PageSetting.Width = 106
Doc.PageSetting.Height = 30
Dim ra As New prt.RenderArea '定义一个容器
Dim rt As prt.RenderText '定义一个文本对象
ra.Stacking = prt.StackingRulesEnum.InlineLeftToRight '设置容器中对象的排列方式
For i As Integer = 0 To 1
    rt = New prt.RenderText() '创建文本对象
    rt.Text = "Hello Foxtable " & i '设置文本对象的内容
    rt.Width = 50 '宽度为35毫米
    rt.Height = 30 '高度为15毫米
    rt.Style.Spacing.All = 3 '设置各个方向的间隔
    rt.Style.Borders.All = New prt.Linedef(1, Color.Red) '设置边框
    rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
    rt.Style.TextAlignVert = prt.AlignVertEnum.Center '垂直居中
    ra.Children.Add(rt) '将文本对象加入到容器ra中
Next
doc.Body.Children.Add(ra) '将容器ra加入到报表
doc.Preview() '预览

狐爸我找不出这个问题出在哪里？

纸张大小是 106 * 30

一行两列显示，50*30一个 共两个，3毫米为边距，我感觉我设置的没错啊

Dim doc As New PrintDoc() '定义一个报表
Doc.PageSetting.Width = 106
Doc.PageSetting.Height = 30
Doc.PageSetting.LeftMargin = 3 '设置左边距
Doc.PageSetting.RightMargin = 3 '设置右边距
Doc.PageSetting.TopMargin = 0 '设置上边距
Doc.PageSetting.BottomMargin = 0 '设置下边距
Dim ra As New prt.RenderArea '定义一个容器
Dim rt As prt.RenderText '定义一个文本对象
ra.Stacking = prt.StackingRulesEnum.InlineLeftToRight '设置容器中对象的排列方式
For i As Integer = 0 To 1
    rt = New prt.RenderText() '创建文本对象
    rt.Text = "Hello Foxtable " & i '设置文本对象的内容
    rt.Width = 50 '宽度为35毫米
    rt.Height = 30 '高度为15毫米
    rt.Style.Spacing.All = 3 '设置各个方向的间隔
    rt.Style.Borders.All = New prt.Linedef(1, Color.Red) '设置边框
    rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
    rt.Style.TextAlignVert = prt.AlignVertEnum.Center '垂直居中
    ra.Children.Add(rt) '将文本对象加入到容器ra中
Next
doc.Body.Children.Add(ra) '将容器ra加入到报表
doc.Preview() '预览

狐爸，显示问题是解决了，但是不知道为何，打印出来和显示出来实际差距太大……？

如图 是怎么回事

感谢狐爸，我现在能打印了，但是还有个问题，打印出来的条码和其他内容都很模糊是怎么回事呢？

Dim doc As New PrintDoc
Dim Bar As New BarCodeBuilder
Dim ra As New prt.RenderArea '定义一个容器
Dim img As prt.RenderImage
doc.PageSetting.Width = 106
doc.PageSetting.Height = 30
Doc.PageSetting.LeftMargin = 3 '设置左边距
Doc.PageSetting.RightMargin = 0 '设置右边距
Doc.PageSetting.TopMargin = 0 '设置上边距
Doc.PageSetting.BottomMargin = 0 '设置下边距
Doc.AutoRotate = False '禁止自动旋转
Bar.Symbology = Barpro.Symbology.Code93
Bar.BarHeight = 9.08
Bar.QuietZoneWidth = 3
Bar.AddCheckSum = False
Bar.BearerBarWidth = 0.27
Bar.DisplayChecksum = False
Bar.BarWidth = 0.3
Bar.Font = New Font("黑体",10.5)
Bar.TextFont = New Font("黑体",10.5)
Bar.TextAlignment = Barpro.Alignment.AboveLeft
ra.Stacking = prt.StackingRulesEnum.InlineLeftToRight
Dim t As Table = Tables(e.Form.Name & "_Table1")
Dim rs As List(of Row) = t.GetCheckedRows
For Each r As Row In rs
    Bar.Code = r("资产编号")
    Bar.Text = "购置日期:" & r("购置时间")
    img = new prt.RenderImage
    img.Width = 50 '宽度为35毫米
    img.Height = 30 '高度为15毫米
    img.Style.Spacing.Left = 3
    img.Style.Spacing.Right = 1
    img.Style.Spacing.Top = 2
    img.Style.Spacing.Bottom = 3
    img.Style.Borders.All = New prt.Linedef(1, Color.black) '设置边框
    img.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
    img.Style.TextAlignVert = prt.AlignVertEnum.Center
    img.Image = bar.GetImage
    ra.children.add(img)
Next
Doc.Body.Children.Add(ra)
Doc.PrinterName = "Argox CP-2140 PPLB"
Doc.Print()

我目前这个需求能直接改过去吗？

这条码整了一下午了……