主题：打印标签是有一个是条形码 报错 内存不足 如何解决

下面的代码是一个打印标签实例 增加一个条码列 报错 内存不足 如何解决

Dim doc As New PrintDoc '定义一个报表

Dim ra As New prt.RenderArea

Dim rg As New prt.RenderGraphics

Dim Bar As New BarCodeBuilder

Dim rt As New prt.RenderText

Bar.Symbology = Barpro.Symbology.Code39

Bar.BarRatio = 0.3

Bar.BarHeight = 8

Bar.QuietZoneWidth = 2

Bar.DisplayChecksum = False

Bar.CodeAlignment = Barpro.Alignment.BelowLeft

Bar.TextAlignment = Barpro.Alignment.BelowRight

Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight

ra.Width = "33%Parent.Width" '设置标签宽度

ra.Height= 32

ra.SplitHorzBehavior = prt.SplitBehaviorEnum.Never '禁止水平分割

ra.SplitVertBehavior = prt.SplitBehaviorEnum.Never '禁止垂直分割

ra.Style.Spacing.Right = 2 '设置标签之间的所有和上下间隔为2毫米

ra.Style.Spacing.Bottom = 2

ra.Style.Padding.All = 1 ' 标签内容距离边框为1毫米

ra.Style.Borders.All = New prt.Linedef(0.3, Color.Red) '设置边框

ra.DataBinding.DataSource = BindTables("DDGL_CGHT.DDGL_CGCP") '将容器绑定到员工表

Doc.Body.ChildRen.Add(ra) '将容器加入到报表中

bar.Code = "12345678" '"[Fields!ProductCode.Value]"

rg = New prt.RenderGraphics

bar.DrawOnCanvas(rg.Graphics,0,0,1)

ra.Children.Add(rg) '添加到容器中

rt = New prt.RenderText

rt.Text = "STYLE:[Fields!StyleNo.Value]"

ra.Children.Add(rt) '添加到容器中

rt = New prt.RenderText

rt.Text = "COLOR:[Fields!Color.Value]"

ra.Children.Add(rt) '添加到容器中

rt = New prt.RenderText

rt.Text = "SIZE:[Fields!Size.Value]"

ra.Children.Add(rt) '添加到容器中

Doc.Preview() '预览报表