Dim e As RequestEventArgs = Args(0)
Dim dr As DataRow = Args(1)
Dim num As Integer = Args(2)
Dim ktou As String = Args(3)
Dim code As String = Functions.Execute("returnQRcode", dr("clid"), dr("varGuige"), dr("isOnlyCode"), dr("codeno"), ktou)
Dim doc As New PrintDoc
doc.PageSetting.Landscape = True
Doc.PageSetting.Width = 75
Doc.PageSetting.Height = 20
Doc.PageSetting.LeftMargin = 0
Doc.PageSetting.RightMargin = 0
Doc.PageSetting.TopMargin = 0
Doc.PageSetting.BottomMargin = 0
Dim ra As prt.RenderArea
Dim ra1 As prt.RenderArea
Dim rg As New prt.RenderGraphics
Dim Bar As New BarCodeBuilder
Dim rs As prt.RenderText
For i As Integer = 1 To num
ra = New prt.RenderArea
ra.Style.Spacing.Top = 2
ra.Stacking = prt.StackingRulesEnum.BlockLeftToRight
rg = New prt.RenderGraphics
Bar = New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode
bar.Code = code
Bar.QRCodeModuleSize = 0.5
rg = New prt.RenderGraphics
bar.DrawOnCanvas(rg.Graphics, 0, 0, 1)
ra.Children.Add(rg)
ra1 = New prt.RenderArea
ra1.Stacking = prt.StackingRulesEnum.BlockTopToBottom
rs = New prt.RenderText
rs.Text = dr("varCode")
rs.Style.F
rs.Style.F
rs.Style.FontBold = True
rs.Style.FontItalic = False
rs.Style.FontUnderline = False
'rs.Style.TextAlignHorz = prt.AlignHorzEnum.left
ra1.Children.Add(rs)
rs = New prt.RenderText
rs.Text = dr("varClName")
rs.Style.F
rs.Style.F
rs.Style.FontBold = False
rs.Style.FontItalic = False
rs.Style.FontUnderline = False
'rs.Style.TextAlignHorz = prt.AlignHorzEnum.left
ra1.Children.Add(rs)
rs = New prt.RenderText
rs.Style.Spacing.Top = 1
rs.Width = 40
rs.Text = dr("varGuige")
rs.Style.F
rs.Style.F
rs.Style.FontBold = False
rs.Style.FontItalic = False
rs.Style.FontUnderline = False
'rs.Style.TextAlignHorz = prt.AlignHorzEnum.left
ra1.Children.Add(rs)
ra.Children.Add(ra1)
doc.Body.Children.Add(ra)
Next
e.WriteReportAsPDF(doc)
加好友 
发短信
Post By：2023/2/2 15:13:00 [显示全部帖子]
此主题相关图片如下：123123.png