以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助] 在增加的窗口增加打印按键  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=74653)

--  作者:yekong2002
--  发布时间:2015/9/16 9:29:00
--  [求助] 在增加的窗口增加打印按键
我在添加的窗口中设置一个点击控键,希望点击一下,可以打印当前的窗口。(是有控件的窗口,不是表)
--  作者:大红袍
--  发布时间:2015/9/16 9:33:00
--  

Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.Preview()

 

http://www.foxtable.com/help/topics/1590.htm

 


--  作者:yekong2002
--  发布时间:2015/9/16 9:37:00
--  
谢谢啊 可以了
--  作者:yekong2002
--  发布时间:2015/9/16 9:39:00
--  
请问下,打印的时候边框可以设置可见吗?
--  作者:yekong2002
--  发布时间:2015/9/16 9:40:00
--  
就是控件的边框,设置可见
--  作者:大红袍
--  发布时间:2015/9/16 9:52:00
--  

Dim doc As PrintDoc = e.Form.GernatePrintDoc()
For Each c As Object In doc.body.children
    If typeof c Is prt.RenderText Then
        c.Style.Borders.All = New prt.Linedef
    End If
Next
doc.Preview()