Newsgroup: it.comp.appl.access
Titolo: Stampare pagine report solo mese corrente

Ciao a tutti.Avrei esigenza di stampare le pagine di un report
inerenti al mese corrente.Di seguito vi riporto il codice che utilizzo
per la stampa del report.Questo codice (gentilmente scrittomi da
Antonio Bisio che ringrazio) mi stampa solo il record selezionato.Il
problema e' che se io voglio stampare il primo record si Dicembre apro
il report devo andare alla pagina in esame e poi cliccare su stampa
(pulsante personalizzato nella barra degli strumenti).Quello che
vorrei se fosse possibile e' aprire il report e visualizzare solo la
pag. del report inerente al record selezionato;oppure almeno
visualizzare solo le pag. inerenti al mese in corso.
Di seguito vi riporto il codice che mi permette la selezione del
record in esame e poi la stampa:
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE Tabsingrec.* from Tabsingrec"
DoCmd.SetWarnings True
Set rst = CurrentDb.openrecordset("Tabvenduto")
Set rst1 = CurrentDb.openrecordset("Tabsingrec")
rst.MoveFirst
Do Until rst.EOF
  rst1.AddNew
  rst1.Fields("IDvenduto") = rst.Fields("IDvenduto")
  If rst.Fields("IDvenduto") = IDvenduto Then
      For i = 1 To rst.Fields.Count - 1
        rst1.Fields(i) = rst.Fields(i)
      Next i
  End If
  rst1.Update
  rst.MoveNext
Loop
Set rst = Nothing
Set rst1 = Nothing
DoCmd.RunMacro "Report1"
end sub
Di seguito vi riporto anche la funzione abbinata al pulsante per
stampare la pag. del report selezionata:
Function stampaPagina()
    With Screen.ActiveReport
        If .Filter = vbNullString Then
            .FilterOn = True
            .Filter = " "
            .Filter = vbNullString
        Else
            .Filter = .Filter
            .FilterOn = True
        End If
        DoEvents
        DoCmd.SelectObject acReport, .Name
        DoCmd.PrintOut acSelection, .Page, .Page
  End With
Grazie in anticipo
Dino

 Dino
Questo codice mi puzza di mio.... lo avevo suggerito mesi fà ad
un'amico per un 3D di stampa della pagina selezionata.... ma fa
nulla... sò che Antonio
non è il tipo che si appropria di idee altrui....!
Se vuoi stampare solo UN record usa il Parametro WHERE della funzione
OPENREPORT passando il campo ID che ti consente il filtro...!
Nella guida in linea trovi anche uun'esempio.... se poi vuoi estrarre
solo i Report di Dicembre(mese corrente o solo Dicembre...?) allora è
necessario che quel criterio
applicato al parametro WHERE sia composto da una funzione di
confronto...
"Month([CampoData])=12" ... questo per dicembre..
"Month([CampoData])=Month(Now())"  mese corrente...
@Alex

 @Alex
--
sv
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 - Mostra testo citato -
No SV.Tu e dany mi avete aiutato per la stampa della pagina
selezionata sull'anteprima delv report.Io devo ribgraziare anche voi
per l'altro problema."ricordi il DB corrotto" che ti ha spedito
Daniele??.Quello riguardava la funzione StampaPagina() di Alex.Pero'
non c'entra niente con il codice che ho scritto oggi.Quindi io "in
primis devo ancora ringraziarti per la disponibilita' pero' senza far
polemiche e in amicizia ti rammento di fare "piu'" attenzione a quello
che scrivi;Il sottoscritto non vuole togliere gli "onori" a
nessuno.Quindi ricordati "date a Cesare quel che e' di Cesare"!!!!!!!
Detto questo ti voglio ringraziare (un grazie particolare a Daniele)
per il problema di Domenica scorsa "FUNZIONE" STAMPA PAGINA.Senza
rancore(devo solo e continuo a scriverlo ringraziarvi)
Dino
NB:Oggi provo il consiglio di Alex e poi vi faccio sapere

 ha scritto nel messaggio 
news:ac2224cf-9737-4417...@21g2000prv.googlegroups.com...



ciao Dino
non voglio fare polemiche....riporto dal tuo primo post:
---------------------------------------------------
Di seguito vi riporto il codice che utilizzo
per la stampa del report.Questo codice (gentilmente scrittomi da
Antonio Bisio che ringrazio) mi stampa solo il record selezionato.Il
problema e' che se io voglio stampare il primo record si Dicembre apro
il report devo andare alla pagina in esame e poi cliccare su stampa
(pulsante personalizzato nella barra degli strumenti).
--------------------------------------------------------------
dal che si deduce che Antonio abbia scritto TUTTO il codice e sia Alex
sia Salvino hanno sottolineato che la FUNZIONE STAMPAPAGINA l'aveva
scritta Alex.
Daniele 

 Daniele
Infatti avevo messo un bel [cut] nella prima parte del post per
sottolineare che mi stavo riferendo alla Funzione StampaPagina() quale
"FARINA" del sacco di Alex... 
:-))
--
sv
-- 
questo articolo e` stato inviato via web dal servizio gratuito 


 - Mostra testo citato -
Eccoci qua'.Non ne facciamo una polemica.C ireincontriamo nel week end
come sempre.Allora prob. non mi sono espresso bene.....ma e' anche
vero che ho postato un codice che sì voi avete visto ma che poi non ne
abbiamo parlato.Perche' un conto e' stampare il record selezionato
alla riga corretta (record 10 riga 10,record 11 riga 11) e un conto e'
stampare la pagina dove si trova questa riga.Si e' creata solo della
confusione e basta.Io so solo che il primo problema (cioe' di stampare
ilo record selezionato neela riga corretta della pag. me l'ha risolto
Antonio.Mentre il secondo problema stampare la pagina del report in
anteprima dove vi e' il record da stamapre me L'AVETE  risolto voi due
SV e Daniele e io mi permetto ancora di ringraziarvi ancora perche'
avete lavorato per me di Domenica.Quindi come vedete non voglio e non
devo dinmenticare nessuno.
Adesso provo il consiglio di Alex, e dopo ci sentiamo(se volete) per
quello.
NB:Forse come dice Dany "siamo un po tutti ispettore Rock
Dino

un super grazie in anticipo per tutto
Dino

 > > questo articolo e` stato inviato via web dal servizio gratuitohttp://
www.newsland.it/newssegnalagliabusi
 ad ab...@newsland.it- Nascondi testo citato

Ok ragazzi risolto tutto
Dino