以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  打印纸张的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=108872)
--  作者：rjh4078
--  发布时间：2017/10/31 10:57:00
--  打印纸张的问题
如何用代码设置默认打印机和默认纸张？
--  作者：有点甜
--  发布时间：2017/10/31 11:37:00
--  

不可以，无法设置。

 
--  作者：李孝春
--  发布时间：2017/10/31 15:56:00
--  回复：（rjh4078）打印纸张的问题
专业报表里面可以参照下面的进行定义，但是只是定义，不能直接设置为默认的。
Dim doc As New PrintDoc
    Dim rg As prt.RenderGraphics
    Dim Bar As New BarCodeBuilder
    Dim dr As Row=Tables("打印机").Current
    doc.PageSetting.Width = val(dr("设置宽度"))
    doc.PageSetting.Height = val(dr("设置高度") )
    doc.PageSetting.LeftMargin=val(dr("左边距") )
    doc.PageSetting.RightMargin=val(dr("右边距") )
    doc.PageSetting.TopMargin=val(dr("上边距") )
    doc.PageSetting.BottomMargin=val(dr("下边距") )
    Doc.PrinterName = dr("打印机名称")
    \'Dim xz As String = dr("是否旋转")
    doc.AutoRotate = dr("是否旋转")
    doc.PageSetting.Landscape=dr("是否横向")
    Bar.Symbology = Barpro.Symbology.QRCode
    Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight
--  作者：rjh4078
--  发布时间：2017/10/31 18:13:00
--  
谢谢  这个是否还有其他配置 我看你这个打印机似乎保存在一个表里
--  作者：有点甜
--  发布时间：2017/10/31 19:03:00
--  

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

 

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