Stampa report

[Maurizio Miozzo]

Buonasera a tutti
A2003
livello conoscenza=principiante
voglia di apprendere=tanta
Vorrei stampare dei fogli il cu itesto deve essere un numero
Ho fatto la mi form con due textbox (TxtNumIni e TxtNumFinale) che sono il
numeo iniziale e quello finale che voglio stampare.
Esempio: Se TxtNumIni =1 e TxtNumFinale=5 vorrei ottenere 5 fogli con primo
foglio stampato 1,secondo foglio stampato 2,ecc
Lancio la stampa in questo modo
Passo il codice
Private Sub CmdStampa_Click()
Dim NumIni As Integer
Dim NumFin As Integer
NumIni = Me.TxtNumIni
NumFin = Me.TxtNumFinale
For i = NumIni To NumFin
'vorrei passare a RptNumPesca!txtnum .....ma non ci riesco
Reports!RptNumPesca!txtnum = (i)
'qui mi da errore 2451(il nome di report immesso è errato oppure fa
riferimento a un report non aperto o inesistente
'se anche porto il docmdopenreport sopra mi da lo stesso errore
DoCmd.OpenReport "RptNumPesca", acNormal
MsgBox (i), , "valore i2"
Next i
End Sub

Dove sbaglio ?
Grazie
Maurizio

[sv]

Maurizio Miozzo ha scritto:

> Buonasera a tutti
> A2003
> livello conoscenza=principiante
> voglia di apprendere=tanta
> Vorrei stampare dei fogli il cu itesto deve essere un numero
> Ho fatto la mi form con due textbox (TxtNumIni e TxtNumFinale) che sono il
> numeo iniziale e quello finale che voglio stampare.
> Esempio: Se TxtNumIni =1 e TxtNumFinale=5 vorrei ottenere 5 fogli con primo
> foglio stampato 1,secondo foglio stampato 2,ecc
> Lancio la stampa in questo modo
> Passo il codice
> Private Sub CmdStampa_Click()
> Dim NumIni As Integer
> Dim NumFin As Integer
> NumIni = Me.TxtNumIni
> NumFin = Me.TxtNumFinale
> For i = NumIni To NumFin
> 'vorrei passare a RptNumPesca!txtnum .....ma non ci riesco
> Reports!RptNumPesca!txtnum = (i)
> 'qui mi da errore 2451(il nome di report immesso è errato oppure fa
> riferimento a un report non aperto o inesistente
> 'se anche porto il docmdopenreport sopra mi da lo stesso errore
> DoCmd.OpenReport "RptNumPesca", acNormal
> MsgBox (i), , "valore i2"
> Next i
> End Sub

> Dove sbaglio ?
> Grazie
> Maurizio

Vedi se quest'esempio ti può essere utile:

http://lnx.accessgroup.it/community/...i-bollati.html

--
sv

--

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

[Maurizio Miozzo]

cut
è proprio quello che mi serve
grazie
ciao
maurizio