- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 【页面设置】报表中页面大小设置 指定打印机 怎么不起效果呢？预览还是A4纸张，不是自定义大小 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=108504)
-- 发布时间：2017/10/24 10:59:00
-- 【页面设置】报表中页面大小设置 指定打印机 怎么不起效果呢？预览还是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
e.Form.Page.Height = dr("设置高度") ‘读取为30
Doc.PrinterName = "\'" & dr("打印机名称") & "\'" ‘读取为兄弟9700
Dim xz As String = dr("是否旋转") ‘读取为false
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
[此贴子已经被作者于2017/10/24 11:02:05编辑过]
-- 发布时间：2017/10/24 11:43:00
--
试试
doc.PageSetting.Width = dr("设置宽度")
doc.PageSetting.Height = dr("设置高度")
Doc.PrinterName = dr("打印机名称")
http://www.foxtable.com/webhelp/scr/2904.htm
-- 发布时间：2017/10/24 12:14:00
-- 回复：（有点甜）试试?doc.PageSetting.Widt...
有点甜老师 按照你的帮助修改后 提示“”指定的转换无效
此主题相关图片如下：11.png
[此贴子已经被作者于2017/10/24 12:14:54编辑过]
-- 发布时间：2017/10/24 12:38:00
--
msgbox(dr("设置宽度") & dr("设置高度"))
doc.PageSetting.Width = val(dr("设置宽度"))
doc.PageSetting.Height = val(dr("设置高度") )
Doc.PrinterName = dr("打印机名称")