专家坐堂-二维码纸张设置好像没起作用Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  二维码纸张设置好像没起作用  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=127509)

--  作者：yetle
--  发布时间：2018/11/15 15:38:00
--  二维码纸张设置好像没起作用

e.Form.Page.Width = 100 \'纸张宽度为100毫米
e.Form.Page.Height = 120 \'纸张高度为120毫米
e.Form.Page.LeftMargin = 10 \'设置左边距
e.Form.Page.RightMargin = 10 \'设置右边距
e.Form.Page.TopMargin = 20 \'设置上边距
e.Form.Page.BottomMargin = 20 \'设置下边距

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("工序分配").Rows
bar.Code = r("条码")
rg = new prt.RenderGraphics
bar.DrawOnCanvas(rg.Graphics,0,0,1)
Bar.CodeAlignment = Barpro.Alignment.BelowLeft
Bar.QRCodeModuleSize = 5
rg.Style.Spacing.All = 3
Doc.Body.Children.Add(rg)
Next
Doc.Preview()

[此贴子已经被作者于2018/11/15 15:46:42编辑过]

--  作者：有点甜
--  发布时间：2018/11/15 15:58:00
--

纸张设置这样写

http://www.foxtable.com/webhelp/scr/1192.htm

--  作者：yetle
--  发布时间：2018/11/15 16:15:00
--

怎么打印预览第一张二维码是小的尺寸？
Dim doc As New PrintDoc
doc.PageSetting.Width = 100 \'纸张宽度为100毫米
doc.PageSetting.Height = 120 \'纸张高度为120毫米
Doc.PageSetting.LeftMargin = 10 \'设置左边距
Doc.PageSetting.RightMargin = 10 \'设置右边距
Doc.PageSetting.TopMargin = 20 \'设置上边距
Doc.PageSetting.BottomMargin = 20 \'设置下边距
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("工序分配").Rows
bar.Code = r("条码")
rg = new prt.RenderGraphics
bar.DrawOnCanvas(rg.Graphics,0,0,1)
Bar.CodeAlignment = Barpro.Alignment.BelowLeft
Bar.QRCodeModuleSize = 3
rg.Style.Spacing.All = 3
Doc.Body.Children.Add(rg)
Next
Doc.Preview()

此主题相关图片如下：11.png

--  作者：有点甜
--  发布时间：2018/11/15 21:03:00
--

改成这样

Dim doc As New PrintDoc
doc.PageSetting.Width = 100 \'纸张宽度为100毫米
doc.PageSetting.Height = 120 \'纸张高度为120毫米
Doc.PageSetting.LeftMargin = 10 \'设置左边距
Doc.PageSetting.RightMargin = 10 \'设置右边距
Doc.PageSetting.TopMargin = 20 \'设置上边距
Doc.PageSetting.BottomMargin = 20 \'设置下边距

For Each r As Row In Tables("表A").Rows
    Dim rg As prt.RenderGraphics
    Dim Bar As New BarCodeBuilder
    Bar.Symbology = Barpro.Symbology.QRCode
    bar.Code = r("第一列")
    rg = new prt.RenderGraphics
    bar.DrawOnCanvas(rg.Graphics,0,0,1)
    Bar.CodeAlignment = Barpro.Alignment.BelowLeft
    Bar.QRCodeModuleSize = 3
    rg.Style.Spacing.All = 3
    Doc.Body.Children.Add(rg)
Next
Doc.Preview()

--  作者：yetle
--  发布时间：2018/11/16 9:06:00
--
不行，这样写大小不变化， Bar.QRCodeModuleSize = 5，设成3或5，大小一样
此主题相关图片如下：未命名.png

--  作者：有点甜
--  发布时间：2018/11/16 9:15:00
--

Dim doc As New PrintDoc
doc.PageSetting.Width = 100 \'纸张宽度为100毫米
doc.PageSetting.Height = 120 \'纸张高度为120毫米
Doc.PageSetting.LeftMargin = 10 \'设置左边距
Doc.PageSetting.RightMargin = 10 \'设置右边距
Doc.PageSetting.TopMargin = 20 \'设置上边距
Doc.PageSetting.BottomMargin = 20 \'设置下边距

For Each r As Row In Tables("表A").Rows
    Dim rg As prt.RenderGraphics
    Dim Bar As New BarCodeBuilder
    Bar.Symbology = Barpro.Symbology.QRCode
    bar.Code = r("第一列")
    rg = new prt.RenderGraphics
    Bar.CodeAlignment = Barpro.Alignment.BelowLeft

    bar.DrawOnCanvas(rg.Graphics,0,0,3)
    rg.Style.Spacing.All = 3
    Doc.Body.Children.Add(rg)
Next
Doc.Preview()

--  作者：yetle
--  发布时间：2018/11/16 9:38:00
--
在二维码下方添加文字代码怎么写？
此主题相关图片如下：未命名.png

--  作者：有点甜
--  发布时间：2018/11/16 9:47:00
--

插入文本或者表格

Dim doc As New PrintDoc
doc.PageSetting.Width = 100 \'纸张宽度为100毫米
doc.PageSetting.Height = 120 \'纸张高度为120毫米
Doc.PageSetting.LeftMargin = 10 \'设置左边距
Doc.PageSetting.RightMargin = 10 \'设置右边距
Doc.PageSetting.TopMargin = 20 \'设置上边距
Doc.PageSetting.BottomMargin = 20 \'设置下边距

For Each r As Row In Tables("表A").Rows
    Dim rg As prt.RenderGraphics
    Dim Bar As New BarCodeBuilder
    Bar.Symbology = Barpro.Symbology.QRCode
    bar.Code = r("第一列")
    rg = new prt.RenderGraphics
    Bar.CodeAlignment = Barpro.Alignment.BelowLeft

    bar.DrawOnCanvas(rg.Graphics,0,0,3)
    rg.Style.Spacing.All = 3
    Doc.Body.Children.Add(rg)
    Dim rx As new prt.RenderText
    rx.Text = "aabbcc"
    Doc.Body.Children.Add(rx)

    rx = new prt.RenderText
    rx.Text = "aabbcc"
    Doc.Body.Children.Add(rx)
Next
Doc.Preview()