[Resolvido] de .pdf para .doc

Por favor, alguem pode me ajudar com o código abaixo?

Hoje meus relatórios estão em pdf e preciso mudar o código para gerar em .doc

alguem aqui sabe?

Segue abaixo o código:

---------------------------

Protected

Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

If Page.IsPostBack <> True Then

Dim numDep As String = Session("numdep")

Dim rpt As ReportDocument = New ReportDocument

rpt.Load(Server.MapPath(

"..\Relatorios\B - Rel_LevantamentoInstalacoes.rpt"))

'rpt.SetDataSource(ds)

CRVIBasica.AutoDataBind =

True

CRVIBasica.ReportSource = rpt

CRVIBasica.AutoDataBind =

False

CRVIBasica.PrintMode = PrintMode.Pdf

CRVIBasica.DisplayGroupTree =

False

'rpt.Load(Server.MapPath("./CrystalReport1.rpt"))

CRVIBasica.ReportSource = rpt

Dim oStream As New MemoryStream

rpt.RecordSelectionFormula =

"{CAD_AEROPORTOS.COD_AEROPORTO}= " + numDep

rpt.SetDatabaseLogon(

"usr_cia", "infraero")

oStream = rpt.ExportToStream(ExportFormatType.PortableDocFormat)

Response.ClearContent()

Response.ClearHeaders()

Response.Buffer =

True

Response.ContentType =

"application/pdf"

Response.AddHeader(

"Content-Disposition", "inline; filename=teste.pdf")

Response.BinaryWrite(oStream.ToArray())

Response.End()

End If

End Sub
----------------

ficarei eternamento grato pela ajuda!

Abraço a todos.