Newsgroup: it.comp.appl.access
Titolo: Stampare in profondita esposto in modo più chiaro

Ringrazio Carlo per la risposta, spero di essere più chiaro.
Ho una tabella con una serie di record,con un campo numerico progressivo.
Con una tabella creo un report inserendo nel corpo una serie di caselle di
testo,
che hanno come origini dati i campi della tabella.
Imposto l'ordinamento in base al campo numerico della tabella.
Imposto le proprietà del corpo del report in modo tale che ogni foglio del
report
abbia tre etichette una superiore una centrale e una inferiore.
Così sul primo foglio ho l'etichetta numero 1, numero 2 , numero 3,
sul secondo foglio il numero 4 , il numero 5 , il numero 6 e così via sempre
in  base
al campo numerico.
Adesso proviamo ad immaginare tutti i fogli del report sovrapposti uno su
l'altro in modo
che le etichette stampante sui fogli diano origine a tre pile  una superiore
, una centrale , una inferiore.
Il problema è se è possibile dare la progressione numerica delle etichette
seguendo la direzione
di queste pile immaginarie:si comincia dalla parte sueriore della prima pila
fino in fondo della medesima
per poi continuare con la seconda pila fino in fondo a questa e poi infine
con la terza pila fino alla fine di questa.
Non so se questo è  possibile con access almeno sapere con quale programma
si può raggiungere la soluzione.
Un ringraziamento e saluto a tutti. Davide

con la terza pila fino alla fine di questa.
[cut]
Si può senz'altro fare ...
Intanto ci sono alcune informazioni che non hai dato e allora suppongo
che:
- il campo numerico progressivo parta da uno e non abbia buchi
- tu non voglia rinumerare i record, solo modificare la sequenza di
stampa.
Un modo è quello di alimentare il report tramite una query che - oltre
ai campi della tabella - abbia anche un campo calcolato tipo
   SeqPag: Int((CampoIndice+2)/3)
Il report lo ordini per 'SeqPag' e poi per 'CampoIndice' e il gioco
dovrebbe essere fatto.
Non l'ho provato ma il principio dovrebbe essere questo ... fammi
sapere.
Ciao
--
Alberto
No alle guerre

Spero di essere stato chiaro.  Un Saluto Davide

   SeqPag: Int((CampoIndice+2)/3)
ooops, sorry!
    SeqPag: ([CampoIndice]+2)-Int(([CampoIndice]+2)/3)*3


Ciao Davide

>Provo a essere più chiaro con quello che vorrei ottenere.
[cut]
Sei stato chiarissimo ... sono io che mi sono impappinato. Allora ...
mi sono dovuto arrendere (cioè uso il VBA)
In un modulo registra questa funzione (supponendo che la tabella si
chiami 'tblEtichette' e che il campo che ha la numerazione continua si
chiami 'CampoIndice':
Public Function IndPag(lngIndice As Long) As Long
Dim lngTot As Long
Dim lngBase As Long
Dim lngCol As Long
Dim lngCol1 As Long
Dim lngCol2 As Long
    lngTot = DCount("*", "tblEtichette")
    lngCol = Int(lngTot / 3)
    Select Case lngTot Mod 3
        Case 0
            lngCol1 = lngCol
            lngCol2 = lngCol
        Case 1
            lngCol1 = lngCol + 1
            lngCol2 = lngCol
        Case 2
            lngCol1 = lngCol + 1
            lngCol2 = lngCol + 1
    End Select
    If lngIndice <= lngCol1 Then
                IndPag = lngIndice
        ElseIf lngIndice > lngCol1 And lngIndice _
            <= lngCol1 + lngCol2 Then
                IndPag = lngIndice - lngCol1
        Else
                IndPag = lngIndice - lngCol1 - lngCol2
    End If
End Function
e nella query, invece della formula che ti ho suggerito ieri, scrivi
   Pagina: IndPag([CampoIndice])
ordinamento per 'Pagina' e poi per 'CampoIndice'. L'ho provata (cosa
che avrei già dovuto fare ieri e a me funziona: fammi sapere.
