Newsgroup: it.comp.appl.access
Titolo: come stampo 12 fogli per ognuno ??

ciao a tutti di questo Ng...
vediamo se riesco a spiegare quanto mi servirebbe...
ho un db anagrafico in cui stampo periodicamente
delle ricette una per ogni utente e ciascuno a una sua prescrizione 
chiaramente con prodotti diversi...gli utenti inseriti sono 210 ma per 
ognuno di loro devo stampare 12 ricette, una per ogni mese dell'anno... 
come fare ??
grazie

 come fare ??
A che livello ti intoppi?
Se devi creare un recordset che contiene (210*12) record e da li'
riesci a crearti da solo i report, allora e' facile: crei una tabella
tblMesi, con campo Mese (testo), ci metti dentro 12 record (gennaio
febbraio marzo ecc) e poi scrivi una query:
Select tblMesi.Mese, Anagrafica.* from tblMesi, Anagrafica
In questo modo otterrai la combinazione lineare di ogni record di
anagrafica con ogni record di tblMesi, ergo 210*12 record.
cia'
Max

 ha scritto nel messaggio

-------------
Ciao Max grazie per avermi risposto... mi spiego meglio
... siccome sono 210 utenti * 12 quindi = 2520 e non posso stamparli
tutti assieme...vista la mole di stampa...
quindi mi ero creato una query stampa dalla A alla lettera C
e cosě via....in maniera da stampare un pň alla volta
ma non so come fare a dire di stampare 12 ricette per utente...
 se ti puň essere utile ti incollo il codice della query ??
grazie 

  se ti può essere utile ti incollo il codice della query ??
Incolla, incolla, magari ci capisco qualcosa di più.
cia'
Max

  se ti puň essere utile ti incollo il codice della query ??
Incolla, incolla, magari ci capisco qualcosa di piů.
--------------------------
ecco il codice della query....ti copio solo la parte interessata....
FROM Anagrafe INNER JOIN Tabprodotti ON Anagrafe.ID_Anagrafe = 
Tabprodotti.IdAnagrafica
GROUP BY Anagrafe.ID_Anagrafe, Anagrafe.TxTCognome, Anagrafe.TxTNome, 
Anagrafe.TxTCodiceFiscale, Anagrafe.TxtComResidenza, 
Anagrafe.data_ritiro, Anagrafe.Indirizzo, Tabprodotti.ID, 
Tabprodotti.Prodotto, Tabprodotti.CodASL, Tabprodotti.CodEsenzione, 
Tabprodotti.data_scadenza, Tabprodotti.quantitŕ
HAVING (((Anagrafe.TxTCognome)>=[Dalla lettera:] & "*" And 
(Anagrafe.TxTCognome)<=[Alla lettera:] & "*"))
ORDER BY Anagrafe.TxTCognome, Anagrafe.TxTNome, 
Max(Tabprodotti.data_erogazione); 

 ed i vari prodotti a loro assegnati in TabProdotti
Ok, allora questo e' il primo passo.
Fai la tabella con i 12 mesi come ho scritto, fai una query
Select tblMesi.Mese, Anagrafe.* FROM tblMesi, Anagrafe
e utilizzala al posto della tabella "anagrafe" nella query che hai
gia' fatto. Otterrai 12 ricette per assistito.
cia'
Max

 No, non ti seguo proprio.
uhhhhmmmmm....
may be?
Option Compare Database
Dim ctr As Long
Private Sub Corpo_Format(Cancel As Integer, FormatCount As Integer)
If ctr < 13 Then
     Me.NextRecord = False
     ctr = ctr + 1
Else
     ctr = 1
End If
End Sub
--
ac

 gia' fatto. Otterrai 12 ricette per assistito.
---------
fatto Max...un primo passo ma necessariamente per visualizzare quanto mi 
serve
ho dovuto aggiungere anche tabelle in relazione...ma mi escono 24 
ricette ognuno e non 12....
ecco il codice...
SELECT tabMesi.Mese AS Espr1, Anagrafe.*
FROM tabMesi, Anagrafe INNER JOIN Tabprodotti ON Anagrafe.ID_Anagrafe = 
Tabprodotti.IdAnagrafica;
Ps... non ho capito la soluzione di alessandro cara ??
giuseppe

 giuseppe
L'amico Alessandro suggerisce di inserire un pezzo di codice nel
report che viene eseguito automaticamente ogni volta che il "corpo"
del report viene formattato per la stampa, e in sostanza dice "Finché
non hai fatto 12 copie non passare al record successivo ma ristampa
questo"
cia'
Max