以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  把窗口控件内容按要求打印  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=132698)
--  作者：蓝蚂蚁
--  发布时间：2019/3/27 17:46:00
--  把窗口控件内容按要求打印

窗口控件如图：


图片点击可在新窗口打开查看此主题相关图片如下：窗口.jpg
图片点击可在新窗口打开查看

要求浏览打印的样子：

图片点击可在新窗口打开查看此主题相关图片如下：image 1.jpg
图片点击可在新窗口打开查看

不知道“打印”代码如何写？在论坛及帮助中找到类似的代码如下，但只是打印一个控件的内容，不知道按我的要求如何写代码，烦老师抽个时间指导一下，谢谢！

Dim doc As New PrintDoc \'定义一个报表
Dim rt As New prt.RenderText \'定义一个文本对象
rt.Text =e.Form.controls("ComboBox1").value \'设置文本对象的内容
rt.Style.TextColor = Color.Red
rt.Style.Font = New Font("宋体", 28, FontStyle.Bold) \'设置字体
rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center \'水平居中
doc.Body.Children.Add(rt) \'将文本对象加入到报表
doc.Preview() \'预览
--  作者：有点甜
--  发布时间：2019/3/27 18:31:00
--  

参考

 

Dim doc As New PrintDoc \'定义一个报表
Dim rt As New prt.RenderText \'定义一个文本对象
rt.Text =e.Form.controls("ComboBox1").value \'设置文本对象的内容
rt.Style.TextColor = Color.Red
rt.Style.Font = New Font("宋体", 28, FontStyle.Bold) \'设置字体
rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center \'水平居中
doc.Body.Children.Add(rt) \'将文本对象加入到报表

rt = New prt.RenderText \'定义一个文本对象
rt.Text =e.Form.controls("ComboBox1").value \'设置文本对象的内容
rt.Style.TextColor = Color.Red
rt.Style.Font = New Font("宋体", 28, FontStyle.Bold) \'设置字体
rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center \'水平居中
doc.Body.Children.Add(rt) \'将文本对象加入到报表

rt = New prt.RenderText \'定义一个文本对象
rt.Text =e.Form.controls("ComboBox1").value \'设置文本对象的内容
rt.Style.TextColor = Color.Red
rt.Style.Font = New Font("宋体", 28, FontStyle.Bold) \'设置字体
rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center \'水平居中
doc.Body.Children.Add(rt) \'将文本对象加入到报表

doc.Preview() \'预览