Newsgroup: it.comp.appl.access
Titolo: numero pagina in un report

Lo so che questo è un argomento già trattato ed infatto sono andato a 
leggermi dei vecchi post......
Il problema è sempre il solito, e cioè:
nella stampa delle fatture è giusto che ad ogni fattura compaia il numero 
della pagina.
Inserendo questa soluzione proposta dal mitico "roberto da casa" in un 
vecchio post, diciamo che si risolve.
-------------------Vecchio post------------------------------------
Se come penso il report è raggruppato per Fattura, a fronte dell'evento "Su
formattazione" della sezione Intestazione Fattura del tuo report genera la
seguente riga di codice VBA:
Page = 1
Quindi, nel Piè di pagina pagina del report inserisci una casella di tasto
non associata e nella sua origine controllo scrivi:
=[Page]
----------------------------------------------------------------------------
Tutto funziona ma non riesco a trovare il verso di numerare le pagine così
Pagina 1 di 2
pagina 2 di 2
Cioè come posso inserire il totale delle pagine di una determinata fattura??
Grazie!!

 ha scritto nel messaggio 
news:45cb6f32$0$30608$4faf...@reader1.news.tin.it...

=[Page] & " di " & [Pages]
Ciao
NatPP

 NatPP
No, non č cosě semplice!!!


Perché non è così semplice? Cosa mi perdo? Non hai chiesto di numerare le 
pagine come Pagina 1 di 2, Pagina 2 di 2, ecc.?
E allora? Nel pié di Pagina Pagina inserisci una casella di testo e 
nell'origine dati scrivi:
="Pagina " & [Page] & " di " & [Pages] ed otterrai quello che hai chiesto.
Nell'evento Su formattazione della pagina non mettere nulla. Ciò che ha 
scritto il capace e valido Roberto da casa probabilmente riguardava A97 e 
questa funzione non era ancora implementata; non so, butto lì!
Ciao
NatPP


funziona benissimo anche in A97... 


Non lo sapevo, non ho controllato. Purtroppo in quello che ho scritto non ho 
inserito un doveroso 'forse'.
Grazie per l'informazione.
Ciao
NatPP


Esempio
io ho un report fatture del mese di agosto riferito logicamente a piu' 
clienti, di 10 pagine.
fattura 1 cliente A pagine 1di 10---------invece dovrebbe essere pagina 1 di 
1
fattura 2 Cliente B pagine 2 di 10------- invece dovrebbe essere pagina 1 di 
2
fattura 2 cliente B pagine 3 di 10--------invece dovrebbe essere pagina 2 di 
2
fattura 3 cliente c pagina 4 di 10---------invece dovrebbe essere pagina 1 
di 1
etc etc
Spero di esser stato chiaro

 ha scritto nel messaggio 
news:45cd9df7$0$25471$4faf...@reader3.news.tin.it...

Cioè tu lanci la stampa per più fatture in un unico report che può essere, 
dici, di 10 pagine ma riguardare solo 6-7 fatture. Non mi sembra un modo di 
agire molto canonico.
Perché non lanci la stampa per un solo cliente, ciclando magari fra tutti i 
clienti? Se fai così va bene come ti ho già detto.
Per fare come vuoi tu bisogna azzerare un contatore ogni volta che cambia 
l'IDcliente (nuovo gruppo), e si potrebbe fare, ma non sono riuscito 
nonostante vari tentativi a calcolare il corrispondente di Pages riferito 
però solo al gruppo.
Prova a ripostare.
Ciao
NatPP

 i clienti? Se fai così va bene come ti ho già detto.
Sì, ora ci siamo.
Anch'io ho prato nella mia ignoranza a "manipolare"  pagesma senza 
riuscirci.
Il report che ho creato di tutte le fatture mi permette di lanciare una 
stampa unica, mentre ora
la faccio cliente per cliente , (manualmente!!!! ottengo sì il risultato 
voluto con le pagine,
ma non sai che palle!!!!!!).
Cosa intendi "ciclando"??ho qualche sospetto, ma premetto che sono un 
principiante....
Grazie

 ha scritto nel messaggio 
news:45ced99f$0$6029$4faf...@reader5.news.tin.it...

Crei una query (che chiamiamo qry1) basata su tblFatture che seleziona le 
fatture da stampare. Inserisci i campi IDfattura e DataEmissFattura.
Crei una maschera (p. es. frmStampa), modalità maschere continue, basata su 
qry1 ed inserisci due controlli nell'intestazione della maschera che 
chiamiamo txtDataDa e txtDataA e un pulsante cmdStampa.
Nei due controlli digiterai l'intervallo delle  date da valutare per 
filtrare qry1 (nel cui criterio della colonna DataEmissFattura avrai 
inserito between... and... con riferimento ai due controlli txtDataDa e 
txtDataA di frmStampa).
Su evento click di cmdStampa scriverai una routine del tipo:
Private Sub cmdStampa_Click()
    Dim k As Integer, rc As Integer
    rc = DCount("IDfattura", "qry1")
    DoCmd.GoToRecord acDataForm, "frmStampa", acFirst
    For k = 1 To rc
        DoCmd.OpenReport "rptStampaFattura", acViewNormal, , "IDfattura = '" 
& Forms!frmStampa!IDfattura & "'"
        DoCmd.GoToRecord acDataForm, "frmStampa", acNext
    Next
    DoCmd.Close acForm,"frmStampa"
End Sub
Questa routine lancia tutte le stampe da fare, per cui se le fatture sono 
molte può rendersi necessario impostare un'attesa fra il lancio di una 
stampa e l'altra usando la funzione Timer.
Dovrai ovviamente adattare tutti i nomi secondo le tue necessità. Avrai pure 
cura di impostare correttamente il filtro IDfattura ove questo campo non sia 
di tipo stringa, come ho considerato io, ma di tipo numerico.
Ciao
NatPP

Ci provo!!Per ora molte molte grazie!!
Fabio
