dotNETportal.cz

Ahoj ve spolek,

nestálo by za to napsat nějaký článek o crystal reports? jak si vitisknout stránku z databáze, provést tamnějaký výpočet atd...?

Stačí trochu googlit a určitě najdete co potřebujete. Crystal Reports s vb.net nesouvisí, kromě toho to není zrovna levný nástroj. Z toho důvodu to asi nebude zajímat lidi, kteří programují pro zábavu.

Crystal Reports s VB souvisí, protože jeho Standard verze se dodává jako součást Visual Studia (placeného).

Souhlas a toto téma by mě také zajímalo.

Nebyl byste schopen o tomto tématu něco napsat? Anebo třeba SQL Server Reporting Services, což je tak trochu podobné.

Já jsem s tím bohužel nikdy nedělal a nemám projekt, na němž bych se to naučil. Články na tohle téma tady nemáme zatím žádné.

Omlouvám se, při vkládání námětu jsme nebyl přihlášen.

Jde mi hlavně a asi nejenom mi, o výstup na tiskárnu, jak by to mělo fungovat představu už asi mám, ale chybí mi informace jak předat do *.rdlc informace pro tisk (buď za databáze, nebo z proměnné). Samozřejmě, že grafy a různé další serepetičky jsou fajn, ale to už by bylo zbytečně ze široka....

O CR je na webu docela dosti návodů, kterak a co. Svého času jsem s tím také zápasil a docela mi trvalo, než-li jsem pochopil, jak to vlastně funguje. Pro ukázku přikládám kus pokusného kódu, ze kterého snad pochopíš, jak s tím pracovat.

Public Sub PrintTEST(ByVal Data As DataSet)

        Dim cr As New CrystalDecisions.CrystalReports.Engine.ReportDocument
        cr.Load(Application.StartupPath & "\test.rpt")

        'Nastavení okrajů dokumentu
        Dim margins As CrystalDecisions.Shared.PageMargins
        margins = cr.PrintOptions.PageMargins

        margins.topMargin = 20 * 100
        margins.leftMargin = 20 * 100
        margins.bottomMargin = 20 * 100
        margins.rightMargin = 20 * 100

        'Výběr tiskárny
        cr.PrintOptions.PrinterName = "XXXX"    'NUTNO DOUPRAVIT
        cr.PrintOptions.ApplyPageMargins(margins)

        'Orientace papíru
        cr.PrintOptions.PaperOrientation = CrystalDecisions.Shared.PaperOrientation.Portrait
        'cr.PrintOptions.PaperOrientation = CrystalDecisions.Shared.PaperOrientation.Landscape

        'Velikost papíru
        cr.PrintOptions.PaperSize = CrystalDecisions.Shared.PaperSize.PaperA5
        'cr.PrintOptions.PaperSize = CrystalDecisions.Shared.PaperSize.PaperA4

        'Zdroj papíru v tiskárně
        cr.PrintOptions.PaperSource = CrystalDecisions.Shared.PaperSource.Auto

        cr.SetDataSource(Data)

        'Nastavení hodnot parametrů RPT souboru
        Dim i As Integer
        Dim disvalue As New CrystalDecisions.Shared.ParameterDiscreteValue()
        If cr.ParameterFields.Count > 0 Then
            For i = 0 To cr.ParameterFields.Count - 1
                If cr.ParameterFields(i).Name = "bar_size" Then
                    disvalue.Value = m_cfg.BarCodeSize
                    cr.ParameterFields("bar_size").CurrentValues.Clear()
                    cr.ParameterFields("bar_size").CurrentValues.Add(disvalue)
                End If
                If cr.ParameterFields(i).Name = "bar_font" Then
                    disvalue.Value = m_cfg.BarCodeFont
                    cr.ParameterFields("bar_font").CurrentValues.Clear()
                    cr.ParameterFields("bar_font").CurrentValues.Add(disvalue)
                End If
            Next
        End If

        cr.PrintToPrinter(1, True, 0, 0)
        cr.Close()
        cr.Dispose()


    End Sub

Super odpověď, jak už zaznělo nahoře, nechtěl byste o tom napsat ucelený článek?, ukázat varianty, vlastnosti atp... jinak jako ukázka pro studium je toto skvělé díky...