主题：把窗口控件内容按要求打印

窗口控件如图：

此主题相关图片如下：窗口.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() '预览

参考

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() '预览