主题：【页面设置】报表中页面大小设置 指定打印机 怎么不起效果呢？预览还是A4纸张，不是自定义大小

If Tables("卷宗入库").Current IsNot Nothing Then

    Tables("入库明细").Filter = "卷宗编号 = '" & Tables("卷宗入库").Current("卷宗编号") & "'"

    Dim doc As New PrintDoc

    Dim rg As prt.RenderGraphics

    Dim Bar As New BarCodeBuilder

    Dim dr As Row=Tables("打印机").Current

    e.Form.Page.Width = dr("设置宽度")       ‘读取为24

    Doc.PrinterName = "'" & dr("打印机名称") & "'"    ‘读取为兄弟9700

    doc.AutoRotate = xz

    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,0.5)

        rg.Style.Spacing.All = 1

        Doc.Body.Children.Add(rg)

    Next

    Doc.Preview()

End If

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