以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于设置二维码说明文本的字体字号  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=153835)

--  作者:czy66ds
--  发布时间:2020/8/25 8:30:00
--  关于设置二维码说明文本的字体字号
根据狐表帮助打印二维码代码

Dim doc As New PrintDoc
Dim rg As prt.RenderGraphics
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode
Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight
For Each r As Row In Tables("表A").Rows
    bar.Code = r("编号")
Bar.HumanReadableText =  r("编号")  \'\'\'二维码下方文字
    rg = new prt.RenderGraphics
    bar.DrawOnCanvas(rg.Graphics,0,0,1)
    rg.Style.Spacing.All = 3
    Doc.Body.Children.Add(rg)
Next
Doc.Preview()
我加了红色的一行,请问如何设置该说明文本的字体和字号?
--  作者:有点蓝
--  发布时间:2020/8/25 8:39:00
--  
参考:http://www.foxtable.com/webhelp/topics/2092.htm,到属性窗口设置好,然后查看代码