[Resolvido] de .pdf para .doc

[leoprofessor 0]

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.

[Ivan.Teles 23]

Tenta assim!

Response.ContentType = "application/ms-word"
Response.AddHeader("Content-Disposition", "inline; filename=teste.doc") 
Response.BinaryWrite(oStream.ToArray())
Response.End()

[leoprofessor 0]

dá erro nessa linha

 

oStream = rpt.ExportToStream(ExportFormatType.PortableDocFormat)

 

o erro é:

 

"A number, currency amount, boolean, date, time, date-time, or string is expected here.

Error in File C:\DOCUME~1\T03521~1\CONFIG~1\Temp\A - Rel_InformacoesBasicas {A4EEE9E4-9AFE-417C-B442-E7F9D3F78CCF}.rpt:

Error in formula <Record Selection>.

'{CAD_AEROPORTOS.COD_AEROPORTO}='

A number, currency amount, boolean, date, time, date-time, or string is expected here."

[quintelab 91]

Movido Plataforma .NET http://forum.imasters.com.br/public/style_emoticons/default/seta.gif Plataforma .NET > Web Applications

[Ivan.Teles 23]

Tenta mudar a linha para

oStream = rpt.ExportToStream(ExportFormatType.WordForWindows)

Qualquer coisa de uma olhada em: http://highoncoding.com/Articles/553_Export_Crystal_Reports_to_Different_File_Formats.aspx ou em http://social.msdn.microsoft.com/Forums/pt-BR/vsreportingpt/thread/ce7cf6ee-6ef3-4833-ba5a-088ad74c55c1

[leoprofessor 0]

funcionou amigão...valeu grandão mesmo

=D