以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何使条码旋转90度来打印?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=76389)
--  作者：农村人
--  发布时间：2015/10/28 10:32:00
--  [求助]如何使条码旋转90度来打印?
]如何使条码旋转90度来打印?
Dim doc As New PrintDoc
Dim rbc As New prt.RenderBarCode()
rbc.Height = 25
rbc.BarCodeType = BarCodeEnum.Code39
rbc.BarDirection = BarDirectionEnum.Normal
rbc.Text = "123456"
rbc.ShowText = True
doc.Body.Children.Add(rbc)
Doc.Preview()
--  作者：大红袍
--  发布时间：2015/10/28 10:42:00
--  

Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.Code39
Bar.Code = "123456"
Bar.BarWidth = 0.3
Bar.BarHeight = 8
Bar.Rotate = Barpro.Rotate.Degree90

Dim doc As New PrintDoc
Dim rg As New prt.RenderGraphics
bar.DrawOnCanvas(rg.Graphics,0,0,1)
Doc.Body.Children.Add(rg)
Doc.Preview()