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

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() '预览

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

如图 是怎么回事

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

换个方式打印条码：

http://www.foxtable.com/help/topics/2093.htm

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()

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

这条码整了一下午了……