Formatting Datagrid Export to Excel

[John Walker]

Hello,
Below is my code for exporting a datagrid to Excel. It works fine, but
we're hoping to format the output as well - setting the font size and type,
and giving each column a specific width, possibly bolding some text.
Currently we are using a macro to do this, but we would like the report to be
formatted when it's generated so that a macro will be unnecessary.
Thanks!
John

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load
Response.Cache. SetCacheability (HttpCacheabili ty.NoCache)
Dim objConn As New System.Data.Sql Client.SqlConne ction(strConnSt ring)
objConn.Open()

Dim strSQL As String
Dim objDataset As New DataSet
Dim objAdapter As New System.Data.Sql Client.SqlDataA dapter

strSQL = "exec " & sDBAllianceSync & ".dbo.spTrucker Planning
@StartDiv, @EndDiv, @StartTeam, @EndTeam, @StartETAPOE, @EndETAPOE "

objAdapter.Sele ctCommand = New
System.Data.Sql Client.SqlComma nd(strSQL, objConn)
objAdapter.Sele ctCommand.Param eters.Add("@Sta rtDiv",
Session("Starti ngDivision"))
objAdapter.Sele ctCommand.Param eters.Add("@End Div",
Session("Ending Division"))
objAdapter.Sele ctCommand.Param eters.Add("@Sta rtTeam",
Session("Starti ngTeam"))
objAdapter.Sele ctCommand.Param eters.Add("@End Team",
Session("Ending Team"))
objAdapter.Sele ctCommand.Param eters.Add("@Sta rtETAPOE",
Session("Starti ngETAPOE"))
objAdapter.Sele ctCommand.Param eters.Add("@End ETAPOE",
Session("Ending ETAPOE"))
objAdapter.Sele ctCommand.Comma ndTimeout = 120

' Fill the dataset.
objAdapter.Fill (objDataset)

' Create a new view.
Dim oView As New DataView(objDat aset.Tables(0))
' Set up the data grid and bind the data.
DataGrid1.DataS ource = oView
DataGrid1.DataB ind()

' Set the content type to Excel.
Response.Conten tType = "applicatio n/vnd.ms-excel"
' Remove the charset from the Content-Type header.
Response.Charse t = ""
' Turn off the view state.
Me.EnableViewSt ate = False

Dim tw As New System.IO.Strin gWriter
Dim hw As New System.Web.UI.H tmlTextWriter(t w)

' Get the HTML for the control.
DataGrid1.Rende rControl(hw)
' Write the HTML back to the browser.
Response.Write( tw.ToString())
' End the response.
Response.End()
End Sub

[JohnH]

You'll need to add the styles used by the datagrid into the HTML stream
as inline style definitions.

John H.

[John Walker]

Would you have sample code? I don't have an idea about how to add styles
into an HTML stream.
Thanks!
John

"JohnH" wrote:

You'll need to add the styles used by the datagrid into the HTML stream
as inline style definitions.

John H.