以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  专业报表有无办法打印HTML?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=71170)
--  作者：xjt26605275
--  发布时间：2015/7/6 16:16:00
--  专业报表有无办法打印HTML?

Dim doc As New PrintDoc \'定义一个报表
Dim rt As New prt.RenderText \'定义一个文本对象
rt.Text = "<span style=\'color:red;\'>Hello Foxtable</span>" \'设置文本对象的内容
doc.Body.Children.Add(rt) \'将文本对象加入到报表
doc.Preview() \'预览


专业报表能打印HTML,像上面的代码能否打印成红色 Hello Foxtable,我想打印富文本
--  作者：大红袍
--  发布时间：2015/7/6 16:31:00
--  

 专业报表做不到。只能用 Webbrowser

 

[此贴子已经被作者于2015/7/6 16:31:06编辑过]
--  作者：大红袍
--  发布时间：2015/7/6 16:33:00
--  

Dim web As New System.Windows.Forms.Webbrowser
Dim sb As new StringBuilder
Dim fname As String = ProjectPath & "print.htm"

sb.append("<span style=\'color:red;\'>Hello Foxtable</span>") \'设置文本对象的内容

FileSys.WriteAllText(fname, sb.Tostring, False)
web.Navigate(fname )
Do Until web.ReadyState = 4
    Application.DoEvents
Loop

web.ShowPrintPreviewDialog