none
Crystal Reports RRS feed

  • Discussão Geral

  • Por favor, alguem pode me ajudar com o código abaixo?
    Preciso gerar relatórios em Word tb e não sei como fazer. Hoje meus relatórios estão em pdf e preciso fazer para gerar em .doc.

    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.

    sexta-feira, 21 de agosto de 2009 19:52