[VB6] Report a colonne

[marco.santilli]

E' possibile creare un report a 2 colonne

Devo stampare un elenco di titoli, e utilizzare una sola colonna vi è uno spreco esagerato di foglio, invece stampando a due colonne ne recupo abbastanza

C'è un modo????

Logicamente i dati sono prelevati da un DB, quindi si trattano di record

Ciao e grazieeeeeeeee

[marco.santilli]

Un aiuto??????

[LMondi]

marco non sò se funzionerà, in quanto non ho potuto provare data la lunghezza della procedura (DB, connessione, ecc), però ti espongo ugualmente l'idea.
Si tratta di leggere l'indice (i) del ciclo For se è pari o dispari, e di conseguenza distribuire in due controlli Txt posizionati sul DataReport, quindi una cosa del genere:

With DRRiparPrint.Sections("Section1")
For i = 0 To 50 ' N° max dei titoli da stampare
If i And 1 Then
.Controls("Txt1").DataField = "Titolo"
Else:
.Controls("Txt2").DataField = "Titolo"
Next i
End With

[marco.santilli]

Originariamente inviato da LMondi
marco non sò se funzionerà, in quanto non ho potuto provare data la lunghezza della procedura (DB, connessione, ecc), però ti espongo ugualmente l'idea.
Si tratta di leggere l'indice (i) del ciclo For se è pari o dispari, e di conseguenza distribuire in due controlli Txt posizionati sul DataReport, quindi una cosa del genere:

Non mi funziona...se ti creo un esempio con Db connesso e tutto, me butti dentro quel codice

Ciao e grazieeeeee

[LMondi]

Ciao Marco,
ho provato il codice postato ieri, che con qualche modifica riporto qui di seguito:

..... .....
' Controlla che il DB contenga i dati da visualizzare:
If RSTpr.EOF = False And RSTpr.BOF = False Then
' Assegna il riferimento all'oggetto:
Set DRRiparPrint.DataSource = RSTpr

With DRRiparPrint.Sections("Section1")
For i = 0 To 5 ' N° max dei titoli da stampare
If i And 1 Then
.Controls("Txt1").DataField = "Titoli"
Else
.Controls("Txt2").DataField = "Titoli"
End If
Next i
End With

DRRiparPrint.Show vbModal
Unload DRRiparPrint
.... ....

Per girare, gira ma riporta tutti e sei i nomi che ho inserito nel Campo de DB "Titoli" quindi visualizza nel DR due colonne ciascuna con sei nomi uguali.
Il problema è che .DataField prende tutto il contenuto del Campo "Titoli" (i sei nomi da me inseriti nel DB) e non un record alla volta. Il problema è questo: far prendere un solo record alla volta. Nonostante le molteplici prove non sono riuscito nell'intento. Mi dispiace. :rollo:

[marco.santilli]

Porca miseria, grazie lo stesso per il tempo a me dedicato

Se hai ancora il progetto giramelo, che intanto gli dò una occhiata...tanto per imparare


Ciao e grazieeeeeeeeee