Newsgroup: it.comp.appl.access
Titolo: pinzatura report

Buongiorno a tuuti
non so se la mia richiesta si puň relizzare ed č per questo che vi chiedo
di rispondermi anche in caso negativo
Ho un report composto in struttura da 2 pagine che chiamo matrice e
ricevuta che nel momento che lo lancio mi crea n pagine con matrice 
seguita da ricevuta per tutti i record presenti
Il problema sorge quando lo stampo e lo faccio pinzare dalla stanpante.
la pinzatura che vorrei stampando 2 copie č matrice copia matrice copia,
mentre la stampante mi pinza separatamente le due copie della matrice e le
due copie delle ricevuta.
Secondo voi esiste una soluzione 
grazie
 vorrei avrei 
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 
Se per 'pinzatura' intendi la fascicolazione ....
Nella finestra di dialogo Stampa devi indicargli di 'NON FASCICOLARE'.
Se la stampa la lanci da VBA .... facci sapere.
-- 
IvanDaBologna
-=-=-==--==-=-=-
sottOFFICEale             - il mio blog
barbera del monferrato    - il mio vino
carmen                   - la mia donna
non necessariamente nello stesso ordine

 Se la stampa la lanci da VBA .... facci sapere.
per pinzatura intendo l'unione dei fogli con una spilla di metallo 


 - Mostra testo citato -
Dal poco che ho capito, potresti provare spezzando la stampa di n
matrici-ricevute in n stampe di matrice-copia, creando un bottone che
lanci la stampa di un record per volta...
F.

al...@libero.it
 ha scritto:


mi puoi suggerire come fare con qualche esempio non sono un grande esperto 
grazie
-- 
questo articolo e` stato inviato via web dal servizio gratuito 


 - Mostra testo citato -
Prima di cominciare occorre capire se ho visto giusto...
Se stampi un solo record ottieni quello che vuoi?
F.

 F.
si
-- 
questo articolo e` stato inviato via web dal servizio gratuito 


 - Mostra testo citato -
Io qualcosa butto giù, ma tocca che poi correggi e ti applichi anceh
tu...
Dim Rst As New ADODB.Recordset
Dim CN As New ADODB.Connection
Dim stringaSQL As String
Dim StDocName as string
StDocName = "NomeTUoREport"
' creo e apro un recorset gemello di quello del tuo report
Set Rst = New ADODB.Recordset
Set CN = CurrentProject.Connection
stringaSQL = me.recordsource
Rst.Open stringaSQL, CN, adOpenKeyset, adLockOptimistic
' per ogni record (caratterizzato del suo ID)...
do until rst.eof
'  ...cambio l'origine dati del report stesso in quella di un solo
record
me.recordsource = "StringaSQL del recordsource del tuo report" & "And
Where TUOID_Report = " & rst![TUOID_Report]    '(**)
' stampo il report
DoCmd.OpenReport stDocName, acNormal
' passo la record successivo
rst.movenext
' e ricomincio
loop
End Function
Molto al volo e tieni conto che io sono scarsino...
In teoria mi pare possa funzionare...
In pratica non saprei...
Ovviamente occorre adattarlo ai tuoi nomi e alla tua situazione,
soprattutto per la riga che ho commentato con (**), occorre sapere
quale sia l'origine dati del tuo report per poterla scrivere
correttamente...

 StDocName = "NomeTUoREport"



non riesco a farlo funzionare
mi si blocca su Rst.Open stringaSQL, CN, adOpenKeyset, adLockOptimistic
con errore testo comando non impostato per comando
e qui cosa dovrei scrive
 Where TUOID_Report = " & rst![TUOID_Report]  per tuo id report cosa va
la prova l'ho fatta anche escludendo questa riga
scusami e grazie
-- 
questo articolo e` stato inviato via web dal servizio gratuito 


 - Mostra testo citato -
come premesso va molto adattato al tuo caso....
cosa fa da origine dati del report? una tabella? una query?
se una query quale il suo SQL?
PS Non sono in grado (ovvero essendo scarsino mi ci vorrebbe veramente
troppo tempo) a scriverti tutto il codice funzionante...
Tocca che un po' ti sforzi di capire e correggertelo da solo (oppure
sperare nell'aiuto di qualcuno che a differenza di me ne mastica a kg)
F.
F.

1) ma il codice lo hai messo in un pulsante dentro il report stesso'
2) me.recordsource = "StringaSQL del recordsource del tuo report" &
"And
Where TUOID_Report = " & rst![TUOID_Report]    '(**)
Con questo ID_Report intendo il campo-chiave che distingue ogni record
del tuo report

 F.
si l'ho fatto allora devo aspettare grazie lo stesso
-- 
questo articolo e` stato inviato via web dal servizio gratuito 


 - Mostra testo citato -
Dim Rst As New ADODB.Recordset
Dim CN As New ADODB.Connection
Dim stringaSQL As String
Dim StDocName as string
StDocName = "NomeTUoREport"
' creo e apro un recorset gemello di quello del tuo report
Set Rst = New ADODB.Recordset
Set CN = CurrentProject.Connection
stringaSQL = me.recordsource
Rst.Open stringaSQL, CN, adOpenKeyset, adLockOptimistic
Io questo lo ho provato e va...(ovviamente cambiando"NomeTUoREport"
con il nome del tuo report), per cui mi pare strano che a te nn
vada....
F.

 F.
Il problema forse e che me.recordsource e vuoto e quindi va in errore?
-- 
questo articolo e` stato inviato via web dal servizio gratuito 


 - Mostra testo citato -
me recordsource vuoto???
E il report i dati da dove piripicchio li piglia?
Se nel report vai in proprietà-dati
In "Origine Record"che cavolino c'è??
F.

forse ti manca il riferimento ad ADO
Finestra visual basic - strumenti - Riferimenti - cerca e spunta
"Microsoft ActiveX Data Object 2.1 Library" o similare e mettilo prima
ovvero più in alto del riferimento "Microsoft DAO..."
F.

 F.
a me erano invertiti li ho spostati ma non va lo stesso
il report ha la sua origine dati
non so più che fare
non so se posso chiedertelo mi puoi mandare il tue db di prova forse cosi
ne usciamo
ciao grazie
-- 
questo articolo e` stato inviato via web dal servizio gratuito 


 questo articolo e` stato inviato via web dal servizio gratuitohttp://
www.newsland.it/newssegnala
 gli abusi ad 
ab...@newsland.it
Fatto
Magari se svelassi al mondo quale sia questo recordsource...

al...@libero.it
 ha scritto:


grazie infinite
solo che ho lo stesso problema
ho forse sono io che non ho ben capito qualcosa dall'inizio 
ho preso il codice presente nel tuo report e l'ho incollato nel clik di un
pulsante in una maschera che ho creato nel tuo db.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 


 - Mostra testo citato -
e perchè mai dato che il report aveva già un tasto tutto suo???
dopo il me.recordsource diventa quello della maschera...
F.

al...@libero.it
 ha scritto:


perchè in anteprima a me il pulsante diventa come un immagine quindi non
cliccabile
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
