Jump to content
RobinHood

reports

Recommended Posts

RobinHood

Boas pessoal... eu estive aqui a ler uns tópico se vi este programa Crystal Reportes... mas depois ainda li mais e encontrei pessoal a dizer que também de poderia utilizar este Microsoft Report Builder.

Mas o problema é que eu já andei na net á procura a tutoriais e não encontrei.

O que eu queria é: eu tenho um programa já construído e agora quero que quando eu premir o botão Imprimir

Ver link: -  http://img850.imageshack.us/i/anexo1.png/

Ele imprimir as informações que lá estão para um ficheiro .pdf ou logo para a impressora.

Sem que o utilizador tenha de andar a fazer estes Paços.

É só clicar no botão, parecer uma pré-visualização e depois imprimir.

Não estou a pedir que me façam o trabalho só para ajudarem.

Cumps. Robin :)

Share this post


Link to post
Share on other sites
jpaulino

.NET certo?

Vê no meu blog que tens vários exemplos de como usar os Reporting Services (*.rdlc)

Share this post


Link to post
Share on other sites
RobinHood

Não... Visual Studio 2010... isto é visual basic.

Se calhar é... não sei

Share this post


Link to post
Share on other sites
jpaulino

Não... Visual Studio 2010... isto é visual basic.

Se calhar é... não sei

Desde o  Visual Studio 2003 que é .NET ... estavas a colocar em VB6 (ou anterior).

Vê então no meu blog, tens lá muita informação sobre isso.

Share this post


Link to post
Share on other sites
RobinHood

ok. eu estou a seguir este post:

- http://vbtuga.blogspot.com/2009/06/vbnet-microsoft-reporting-services.html

Mas quando chego á parte:

Depois disto vamos arrastar da Toolbox para a secção “Body” (corpo) do relatório.

DataSource

Agora é altura para definir a Data Source. No menu Report, seleccionar Data Source. Irá aparecer uma nova janela onde se pode escolher as Data Sources (DataSets) disponíveis na nossa aplicação. Seleccionar a DataSet criada.

E não percebo de como fazer.

Share this post


Link to post
Share on other sites
jpaulino

Então e não te aparece a opção quando seleccionas a opção Data Source?

Share this post


Link to post
Share on other sites
Caça

Procura uma janela chamada Report Data que deve estar no mesmo sitio da ToolBox


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites
RobinHood

já encontrei no View... depois se tiver mais alguma duvida pergunto.

Obrigado

Cumps.Robin

Share this post


Link to post
Share on other sites
RobinHood

Boas-pessoal...

como é que eu agora  ponho um sub relatório dentro do relatório principal???

Eu já criei o relatório principal e o sub relatório em separado.

Share this post


Link to post
Share on other sites
Caça

Na ToolBox tens um objecto chamado SubReport


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites
Caça

Seleccionas o SubReport e na Propriedade ReportName colocas o nome do report a aparecer


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites
jpaulino

sim... depois como faço????

Chegaste a ver o artigo no meu blog? É que está lá explicado passo a passo!

Share this post


Link to post
Share on other sites
Caça

O que é que fizeste para te dar isso?


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites
RobinHood

tipo a primeira imagem já não dá isso.

a outra é que eu não sei o k fazer...

http://img862.imageshack.us/i/as1v.png/

porque é no sub report.

vê esse ficheiro Xps

militaryassault.site90.com/a.xps

este é o codigo que tenho no form:

Imports System.Data.SqlClient
Imports Microsoft.Reporting.WinForms

Public Class FormReports

    ' Connection string 
    Private connString As String = "Data Source=EST-P01;Initial Catalog=GestorAC;Persist Security Info=True;User ID=sa;Password=asdasda"

    ''' <summary> 
    ''' Evento Form load 
    ''' </summary> 
    ''' 

    Private Sub FormReports_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


        Try

            ' Chama a personalização 
            'Call customizeReportViewer(Me.ReportViewer1)

            With Me.ReportViewer1.LocalReport

                ' Caminho para o relatório 
                .ReportPath = Application.StartupPath & "\..\..\rptProducts.rdlc"
                .DataSources.Clear()

            End With

            ' ---------------------------------------------------- 
            ' Datasource para o relatório principal 
            ' ---------------------------------------------------- 

            Dim SQL As String = "SELECT * FROM AC WHERE nac = @nac"

            Using da As New SqlDataAdapter(SQL, connString)
                da.SelectCommand.Parameters.Add("@nac", SqlDbType.Int).Value = FormFichaDeAcçVerEditar.txtnac.Text

                Using ds As New DataSet
                    da.Fill(ds, "AC")

                    ' É preciso usar o mesmo nome como foi de definido  
                    ' no Data Source Definition 
                    Dim rptDataSource As New ReportDataSource _
                                           ("dsReport_products", ds.Tables("AC"))
                    Me.ReportViewer1.LocalReport.DataSources.Add(rptDataSource)

                End Using
            End Using

            ' Refresh do relatório 
            ReportViewer1.RefreshReport()

            'AddHandler ReportViewer1.LocalReport.SubreportProcessing, AddressOf SubreportProcessingEvent






        Catch ex As Exception
            MessageBox.Show(ex.Message, My.Application.Info.Title, _
                                              MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try




    End Sub
   

    'Sub SubreportProcessingEvent(ByVal sender As Object, ByVal e As SubreportProcessingEventArgs)

    '    Try

    '        Dim SQL As String = "SELECT * FROM AcCoiso WHERE nac = @nac"
    '        Using da As New SqlDataAdapter(SQL, connString)
    '            da.SelectCommand.Parameters.Add("@nac", SqlDbType.Int).Value = FormFichaDeAcçVerEditar.txtnac.Text
    '            Using ds As New DataSet
    '                da.Fill(ds, "AcCoiso")
    '                Dim rptDataSource As New ReportDataSource("Sub_dsReport_products", ds.Tables("AcCoiso"))
    '                e.DataSources.Add(rptDataSource)
    '            End Using
    '        End Using

    '    Catch ex As Exception
    '        MessageBox.Show(ex.Message, My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Error)
    '    End Try

    'End Sub

End Class

Share this post


Link to post
Share on other sites
Caça

O caminho para o Report é valido?


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.