DataGrid Export To Excel - Set Landscape

  • Thread starter Thread starter klaframboise
  • Start date Start date
K

klaframboise

I've been searching for an answer to this for a few hours and I've found lots
of people with the same issue, but no solution. I'm exporting a datagrid to
excel which works fine, and I'm able to set the margins fine also, but for
some reason the page layout won't change to landscape. I'm using .Net 2.0
and Office 2003.

Here is the code:

Current.Response.Clear()
Current.Response.Buffer = True
Current.Response.AddHeader("content-disposition",
String.Format("attachment; filename={0}", fileName))
Current.Response.ContentType = "application/vnd.ms-excel"
Current.Response.Write("<meta http-equiv=Content-Type
content=""text/html; charset=utf-8"">" & vbNewLine)
Current.Response.Write(GetExcelStyling())
Current.Response.Write(sw.ToString)
Current.Response.Write("</body>")
Current.Response.Write("</html>")
Current.Response.End()

Private Shared Function GetExcelStyling() As String
Dim sb As New StringBuilder
sb.AppendLine("<html
xmlns:x=""urn:schemas-microsoft-com:office:excel"">")
sb.AppendLine("<head>")
sb.AppendLine("<style>")
sb.AppendLine("@page{mso-page-orientation:landscape;")
sb.AppendLine("margin:.5in .5in .5in .5in;")
sb.AppendLine("mso-header-margin:.5in;")
sb.AppendLine("mso-footer-margin:.5in}")
sb.AppendLine("</style>")
sb.AppendLine("</head>")
sb.AppendLine("<body>")
Return sb.ToString()
End Function

Thanks Kevin
 
Back
Top