大家可能觉得上面的代码比较复杂，因为上面对于对打印要求比较高的应用，是十分有效的。如果只是单单对数据进行导出，还可以使用简单的格式，比如使用以下的代码：
  
  Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  　Dim dt As DataTable = CType(Application.Item("MyDataTable"), DataTable)
  
  　Response.ContentType = "application/ms-Excel"
  
  　Response.AddHeader("Content-Disposition", "inline;filename=test.xls")
  
  　Response.Write(ConvertDtToTDF(dt))
  End Sub
  
  Private Function ConvertDtToTDF(ByVal dt As DataTable) As String
  　Dim dr As DataRow, ary() As Object, i As Integer
  　Dim iCol As Integer
  
  　' 输出列标题
  　For iCol = 0 To dt.Columns.Count - 1
  　　Response.Write(dt.Columns(iCol).ToString & vbTab)
  　Next
  　Response.Write(vbCrLf)
  
  　'输出数据
  　For Each dr In dt.Rows
  　　ary = dr.ItemArray
  　　For i = 0 To UBound(ary)
  　　　Response.Write(ary(i).ToString & vbTab)
  　　Next
  　　Response.Write(vbCrLf)
  　Next
  End Function
  End Class
  
  　　在上面的代码中，首先将浏览器的输出类型设置为application/ms-Excel，并设置Excel的输出类型是在浏览器中输出，默认的名字为test.xls,之后，将调用自定义的过程，该自定义的过程将一个datatable里的数据以字符串流的形式输出，其中每个datatable里的数据之间以TAB制表符分隔，最后再输出到浏览器，输出效果如下图：
  
  　　上面的这种方法，表现的形式比较简单，但也可以满足数据导出的基本要求。那如果要进一步修饰一下的话，要如何做呢？这里提供一个方法，可以将要导出的数据先绑定到datagrid,然后再打印该datagrid。这时就可以对要打印出来的datagrid进行格式化，设置datagrid的format等属性。代码如下：
  
  Protected Overrides Sub Render(ByVal writer As System.Web.UI.HtmlTextWriter)
  　Dim dt As DataTable = CType(Application.Item("MyDataTable"), DataTable)
  
  　Response.ContentType = "application/ms-Excel"
  
  　Response.AddHeader("Content-Disposition", "inline;filename=test.xls")
  
  　DataGrid1.DataSource = dt
  　DataGrid1.DataBind()
  　DataGrid1.RenderControl(writer)
  End Sub
  
  　　打印出来的效果如下图：
  
  　　如果要转到Word里面打印的话，也同样可以用上面的方法，只需要将其中的代码改成：
  
  Response.ContentType = "application/ms-word"
  Response.AddHeader("Content-Disposition", "inline;filename=test.doc")
  
  　　最后，来看一下，如何调用客户端的Excel进行打印，就是让客户一点击"打印"的按钮，就可以自动打开客户端的Excel，将要打印的内容导入。要实现这样的效果，必须要求客户端的IE浏览器设置中，在其中的"安全-本地Intranet-自定义级别中"，将"下载未签名ACTIVX"中设置为启动或提示。代码如下：
  
  ＜script language="vbscript"＞
  　Sub exportbutton_onclick
  　　Dim sHTML, oExcel, oBook
  　　SHTML = document.all.item("DataGrid1").outerhtml
  　　Set oExcel = CreateObject("Excel.Application")
  　　Set oBook = oExcel.Workbooks.Add
  　　oBook.HTMLProject.HTMLProjectItems("Sheet1").Text = sHTML
  　　oBook.HTMLProject.RefreshDocument
  　　oExcel.Visible = true
  　　oExcel.UserControl = true
  　End Sub
  ＜/script＞
  
  　　在CODE-BEHIND的代码中，只需要这样写就可以了：
  
  Dim dt As DataTable = CType(Application.Item("MyDataTable"), DataTable)
  DataGrid1.DataS