Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
Dim doc As New PrintDoc() '定义一个报表
Doc.PageSetting.LeftMargin = 5
Doc.PageSetting.RightMargin = 3
Doc.PageSetting.TopMargin = 10
Dim rw As row = Tables("库存捆包查询_Table1").current
doc.PageSetting.Width = 80 '纸张宽度为100毫米
doc.PageSetting.Height = 50
doc.PageSetting.Landscape = true '横向打印
' doc.PageSetting.Width = 80 '纸张宽度为100毫米
' doc.PageSetting.Height = 50
Dim rbc As New prt.RenderBarCode()
rbc.Width = 60
rbc.Height = 40
rbc.BarCodeType = BarCodeEnum.Code39
rbc.BarDirection = BarDirectionEnum.Normal
rbc.Text = rw("捆包号")
rbc.ShowText = false
doc.Body.Children.Add(rbc)
Doc.Preview()
你缩小到100%看看,我看你都到1000%
我也不清楚是什么问题