执行帮助里的代码

Dim doc As New PrintDoc \'定义一个报表
Dim rt As New prt.RenderTable() \'定义一个表格对象
doc.Body.Children.Add(rt) \'将表格对象加入到报表中
rt.Style.GridLines.All = New prt.Linedef \'设置网格线
rt.Rows.Count = 7 \'设置总行数
rt.Cols.Count = 5 \'设置总列数
rt.Height = 120 \'设置表格的高度为120毫米
rt.Rows(6).Height = 50 \'第7行的高度为50毫米
rt.Cells(0,4).SpanRows = 6 \'第1行第5个单元格向下合并6行
rt.Cells(4,1).SpanCols = 3 \'第5行第2个单元格向右合并3列
rt.Cells(6,0).SpanCols = 5 \'第7行第1个单元格向右合并5列
Doc.Preview() \'预览报表

一打开项目就直接进入预览页面，关不掉

预览报表后怎么退出来？