Newsgroup: it.comp.appl.access
Titolo: codice per stampa

Faccio seguito al mio precedente post,e spero che la soluzione da me
pensata per stampare circa 25 fogli, intercalando un msgbox, sia fattibile
anche se a livello di codice non so proprio come scriverlo.
Creo un' array che deve contenere gli ID dei report da stampare, ne metto
solo2 ora
Dim V(2)
V(1) = "101"
V(2) = "102"
dovrei mettermi in ciclo e ordinare la stampa
            Dim strDocName As String
            Dim strWhere As String
            strDocName = "retrogiornata"
            strWhere = "[id_treno]= cosa metto qui?
            DoCmd.OpenReport strDocName, acPreview, , strWhere
            un msgbox per continuare o interrompere la stampa
            Next
Secondo me dovrebbe funzionare, sempre se passo il codice giusto che in
realtà è?
Grazie
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

Grazie
La tua richiesta mi intriga perchè vedo id_treno e questo solletica la
mia passione mai sopita per i treni (veri e modellini).
Però, anche leggendo il tuo post precedente riesco a capire qual è
l'esigenza che hai, ma non capisco bene lo scenario nel quale ti
muovi.
In particolare avrei bisogno di sapere:
- dettagli in più sul report (ogni pagina riporta un record ? Qual è
l'origine record del report ?)
- il report è filtrato anche sulla base di altri campi oltre ad
ID_Treno ?
- i valori da filtrare da dove vengono ? Li fornisce l'utente ?
- più in generale: puoi descrivere anche a grandi lineee cosa gestisce
il tuo database e a cosa deve servire la stampa ?
Comunque, rispondendo in maniera bovina alla tua domanda, senza porsi
troppi problemi sul contesto:
Dim i as byte, V(1 To 2) as Long
V(1) = 101
V(2) = 102
for i 1 To Ubound(V)
   DoCmd.OpenReport "retrogiornata", acPreview, , "ID_Treno=" & V(i)
   If MsgBox("Continuo la stampa",vbYesNo) = vbNo then Exit for
Next i
Domanda: a cosa serve il msgbox se il report viene aperto in
anteprima? Non viene inviato alla stampante, quindi cosa c'entra il
messaggio per inserire il foglio a cui accennavi nel precedente post ?
Vincenzo Turturro 
Certificato Eucip Core Level 
ITA 0000-002299 del 14/05/2007 
--------------------------------------------- 
il sito comune di it.comp.appl.access: 
http://www.sitocomune.com
 
--------------------------------------------- 
risorse Access: 
http://www.accessgroup.it
 
--------------------------------------------- 
Il sito comune di it.comp.as400 
http://www.faq400.com
 
---------------------------------------------

 Vincenzo Turturro 

1000 grazie per la risposta, la provo subito.
Il db in oggetto è quello creato da me per stampare i fogli di corsa dei
treni, sono un DM/DCO, e ogni giorno ci sono 40 fdc da compilare.
Son riuscito ad automatizzare quasi tutto, prescrizioni, andamento treni,
ma fin ora stampavo il fronte del fdc e poi il retro, e così per tutti i
treni di una giornata. Ho deciso quindi di cercare di tirar fuori tutti
quelli in partenza in un giorno, il problema è venuto fuori quando dopo
aver stampato tutti fronte dovevo stampare il retro, se poco poco la
stampante ne tirava giù 2 stampavo il retro sul fronte sbagliato, ecco a
cosa serve il msgbox, a far avanzare o annullare la stampa a seconda se il
foglio stampato sia giusto o meno.
La tua osservazione sul report in preview è un mio errore, maledetto copia
& incolla, il bottone nel db ha 2 righe di una commentata per poter
stampare direttamente o aprire in anteprima il report per le varie
modifiche quando cambia qualcosa e facendo le varie prove ho commentato
quella della stampa diretta!!!
IL db è  relazionato tra il treno (  tipo, n, staz origine, termine,
linea) e orari( stazione ora arrivo/partenza)
Il fronte lo prendo dalla tbl treno, il retro dalla tbl orari con l'id
treno( appunto la relazione.
Se la tua passione ti porta a Bari.....un giro nella mia sala controllo o
peggio ancora in cabina di guida è garantita
Saluti 



Vincenzo Turturro 
