[VB6] Bollettino Postale con Crystal Report 8

[Ranch]

Vorrei porre un quesito agli esperti di Crystal Report.
Ho realizzato un report di un c/c postale che occupa esattamente metà striscia di un foglio A4.
La mia idea è quella di stampare due c/c su un unico foglio, ma la cosa importante è che la codeline del bollettino va stampata parallelamente al margine del foglio.
Attualmente stampo prima da una parte, poi giro il foglio e lo faccio passare dinuovo nella stampante per stampare l'altra metà.

Per evitare tutta sta tarantella posso stampare due report uguali nella struttura sullo stesso foglio ruotati l'uno rispetto all'altro di 180 gradi???

Grazie a tutti - Gabriele

[Ranch]

Esperti di Crystal Report ...... Se ci siete battete un colpo!!!!

[xegallo]

se si sapesse in che linguaggio lo fai sarebbe + facile rispondere ne convieni?

[Ranch]

Scusami....
Allora il report l'ho realizzato con Crystal Report 8.
Tale report l'ho implementato in VB6.

[krico]

per risolvere un prob simile ho realizzato un report contenente due schemi identici (con gli stessi valori) inserendo dei "campi parametro" e da codice gli passavo i valori e controllavo le stampe.

nel mio caso stampavo una bolletta in duplice copia sullo stesso foglio.

spero di esserti stato di aiuto anche se non sono sicuramente un esperto come te richiedevi.

ciao divertiti

[Ranch]

Senti se ti posto il report puoi dargli un'occhiata???? oppure se mi posti il tuo report doppio posso fare un copia e incolla.....
Fammi sapere se sei disponibile ad aiutarmi!!!1

[krico]

ho usato vb.net ma ciò che ti deve interessare è la logica

Private Sub cmdstampa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdstampa.Click
        If txt1.Text = "" Or ComboBox1.Text = "" Then
            MsgBox("e' indispensabile selezionare un " _
            + "condominio ed un mese prima di procedere alla stampa " _
            + "delle bollette", MsgBoxStyle.Information, "ATTENZIONE")
        Else
            Dim tabella As New DataTable
            Dim numerobolletta As Int64 = bn()
            Dim iriga, j As Int32
            Dim anno As String = CStr(Year(Now()))
            CondName()
            Importa()

            DS.Tables.Item(0).TableName = "lamia"
            DS.DataSetName = "myds"
            tabella = DS.Tables.Item(0)

            modbol1.SetParameterValue("anno", anno)

            For iriga = 0 To tabella.Rows.Count - 1
                modbol1.SetParameterValue("numbol", numerobolletta)
                modbol1.SetParameterValue("mese", ComboBox1.Text)
                modbol1.SetParameterValue("importo", tabella.Rows(iriga).Item(9))
                modbol1.SetParameterValue("nome", tabella.Rows(iriga).Item(0))
                modbol1.SetParameterValue("via", nomec)
                For j = 1 To 8
                    If tabella.Columns(j).ColumnName = "F" & j + 1 Then
                        modbol1.SetParameterValue("sp" & j, " ")
                    Else
                        modbol1.SetParameterValue("sp" & j, tabella.Columns(j).ColumnName)
                    End If
                Next
                For j = 1 To 8
                    If Not IsDBNull(tabella.Rows(iriga).Item(j)) Then
                        modbol1.SetParameterValue("i" & j, tabella.Rows(iriga).Item(j))
                    End If
                Next
                'modbol1.PrintToPrinter(1, True, 1, 1)
                numerobolletta = numerobolletta + 1
                'Next

                'impostazione seconda bolletta del foglio
                If iriga < tabella.Rows.Count - 1 Then
                    iriga = iriga + 1
                    modbol1.SetParameterValue("numbol2", numerobolletta)
                    modbol1.SetParameterValue("importo2", tabella.Rows(iriga).Item(9))
                    modbol1.SetParameterValue("nome2", tabella.Rows(iriga).Item(0))
                    For j = 1 To 8
                        If Not IsDBNull(tabella.Rows(iriga).Item(j)) Then
                            modbol1.SetParameterValue("i" & j & "2", tabella.Rows(iriga).Item(j))
                        End If
                    Next
                Else
                    modbol1.SetParameterValue("numbol2", 0)
                    modbol1.SetParameterValue("importo2", 0)
                    modbol1.SetParameterValue("nome2", " ")
                    For j = 1 To 8
                        If Not IsDBNull(tabella.Rows(iriga).Item(j)) Then
                            modbol1.SetParameterValue("i" & j & "2", 0)
                        End If
                    Next
                End If

                modbol1.PrintOptions.PaperOrientation = 2
                modbol1.PrintOptions.PaperSize = 9

                modbol1.PrintToPrinter(1, False, 1, 1)
                numerobolletta = numerobolletta + 1
            Next
            aggiornabn(numerobolletta - 1)
            Me.Close()
        End If

è piu semplice di ciò che sembra focalizzati su

modbol1.setparametervalue("nomecampoparametro","va lore che gli passi")

[mrboga]

Anche io ho trovato e attuato la stessa soluzione. Ho un'unico problema che è il salto pagina alla fine del bollettino. Io non sono un'esperto di crystal report e devo dire che non mi sembra neanche un granche, cmq ho fatto sto report con crystal 9 e passando i valori con vb.net
Il problema del salto pagina si verifica perchè io devo stampare un bollettino 27x10 e la mia stampante (una vecchia oki ad aghi) non accetta quel formato.
Sono costretto a stampare in "a4" con un'evidente salto di 3 bollettini successivi ?

Come fare ?

[alka]

Originariamente inviato da mrboga
cmq ho fatto sto report con crystal 9 e passando i valori con vb.net [...]

E' meglio aprire una nuova discussione, considerando che questa si riferisce sia ad una versione differente di VB, sia ad una release differente di CR.

[mrboga]

Ho aperto una nuova discussione come mi hai consigliato.... forse non era così male come idea...