- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 请教:条形码打印能否分开打印? (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=3363)
-- 发布时间：2009/6/30 9:43:00
-- 请教:条形码打印能否分开打印?
在做条码打印时,我发现,每次都是N张条码连续在一起的,我想做成标签式的,比如有产品名称,产地,另有条码,这样如何处理?
-- 发布时间：2009/6/30 9:45:00
--
目前条形码是用专业报表打印的，就和打印一个标签一样，定位是随心所以的啊。
-- 发布时间：2009/6/30 10:04:00
--
Dim
doc As New PrintDocDim rbc As New prt.RenderBarCode()
rbc.DataBinding.DataSource = BindTables("表B") \'绑定到表
rbc.Width = 60
rbc.Height = 20
rbc.BarCodeType = BarCodeEnum.Code39
rbc.BarDirection = BarDirectionEnum.Normal
rbc.Text = "编号:[Fields!编号.Value]" \'绑定到列
rbc.ShowText = True
doc.Body.Children.Add(rbc)
Doc.Preview()
我这样打出来就是连续在一起的
-- 发布时间：2009/6/30 10:05:00
--
你这样的代码就是连续打印的啊
别用数据绑定,直接编码,直接指定页面大小,直接指定对象坐标位置,想怎样都行。
你可以看看帮助中的几个关于标签打印的章节，道理一样，只不过是其中一个对象换成了条形码。
-- 发布时间：2009/6/30 10:20:00
--
你这样的代码就是连续打印的啊
别用数据绑定,直接编码,直接指定页面大小,直接指定对象坐标位置,想怎样都行。
你可以看看帮助中的几个关于标签打印的章节，道理一样，只不过是其中一个对象换成了条形码。
我就是看的标签打印,其中的编号换成了条形码,但是没有显示出条码,还是显示的是编号,晕
-- 发布时间：2009/6/30 10:29:00
--
我就是看的标签打印,其中的编号换成了条形码,但是没有显示出条码,还是显示的是编号,晕
哈哈，那就是设置问题啊，看我这个：
Dim doc As New PrintDoc \'定义一个报表
doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight \'设置排列方式
For i As integer = 1 to 100
Dim rt As New prt.RenderTable() \'定义一个表格对象
rt.Width = 50 \'表格宽度为50mm
rt.Style.Spacing.All = 2 \'和其他对象之间的间隔为2mm
rt.CanSplitVert = False \'避免垂直换页的时候,表格被分割成两部分.
rt.Cols(0).Width = 20
rt.cells(0,0).Text = "姓名"
rt.Cells(0,1).Text = "黄财德"
rt.Cells(1,0).Text = "职务"
rt.Cells(1,1).Text = "总经理"
rt.Cells(2,0).Text= "工号"
Dim rbc As New prt.RenderBarCode()
rbc.Width = 60
rbc.Height = 20
rbc.BarCodeType = BarCodeEnum.Code39
rbc.BarDirection = BarDirectionEnum.Normal
rbc.Text = "123456"
rbc.ShowText = false
rt.cells(2,1).RenderObject = rbc
doc.Body.Children.Add(rt) \'将表格对象加入到报表中
Next
Doc.Preview() \'预览报表
-- 发布时间：2009/6/30 11:34:00
--
我知道我错在何处了
1.rt.cells(2,1).RenderObject = rbc
2.应该加一个rw,Dim rw As Row
3. rbc.Text = " " & rw("编号")
不要绑定到列,而是某行某列,呵呵
-- 发布时间：2009/6/30 12:00:00
--
-- 发布时间：2009/6/30 12:32:00
--
你晕没事,我不晕就行了,呵呵,等我全做好发上来,你就不晕了,呵呵