Newsgroup: it.comp.appl.access
Titolo: Salvare PDF da report in modo consecutivo - Nome file come filtro query

Buongiorno a tutti!
Tramite il seguente codice (grazie ad un vecchio post di namor), posso
stampare il mio report di 600 pagine suddiviso per 98 agenti si carta e
in modo automatico gestisce la numerazione della pagine report 1 di x
...
... Se imposto come stampante predefinita ADOBE PDF, il sistema mi
chiede di nominare il file ...
io vorrei che le 98 stampe si salvassero recuperando come nome file il
valore del campo "CODICE" usato come filtro nella seguente formula.
Cosa fare e come?
Grazie a tutti per eventuali risposte e buon proseguimento,
'Codice utilizzato per stampare n report filtrati da campo "codice":
Private Sub Comando24_Click()
On Error GoTo Err_Comando24_Click
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("SELECT codice FROM
[2_Concessionario_DettaglioEvasioni] GROUP BY [codice] ORDER BY
codice;")
If rst.RecordCount > 0 Then
With rst
.MoveFirst
While Not .EOF
DoCmd.OpenReport "Dett_Evasioni_Concessionario", acViewNormal, ,
"codice=""" & !CODICE & """"
.MoveNext
Wend
End With
End If
rst.Close: Set rst = Nothing
Exit_Comando24_Click:
    Exit Sub
Err_Comando24_Click:
    MsgBox Err.Description
    Resume Exit_Comando24_Click
End Sub

[CUT]
Ciao,
se ho ben capito puoi crearti un'array di stinghe dove raccogliere il 
codice...qualcosa del genere insomma
Dim rst As DAO.Recordset
----
Dim contatore As Integer
Dim nomereport(98) As String
contatore = 0
----
Set rst = CurrentDb.OpenRecordset("SELECT codice FROM
[2_Concessionario_DettaglioEvasioni] GROUP BY [codice] ORDER BY
codice;")
If rst.RecordCount > 0 Then
With rst
.MoveFirst
While Not .EOF
DoCmd.OpenReport "Dett_Evasioni_Concessionario", acViewNormal, ,
"codice=""" & !CODICE & """"
---
nomereport(contatore) = CODICE & ".pdf"
.MoveNext
contatore=contatore + 1
---
Wend
End With
End If
rst.Close: Set rst = Nothing
--------
in questo modo ti rimangono in memoria tutti i codici...occhio a non andare 
al di là del 98esimo ;-)
Altre idee non me ne vengono :-(
Buona serata :-) 

 ha scritto nel messaggio 
news:SmOrh.188$tW3...@nntpserver.swip.net...

come al solito una l'ho sparata ( sto migliornado cmq ;-) il CODICE va 
convertito in stringa quindi
nomereport(contatore) = CStr(CODICE) & ".pdf"
...che vuoi...la terza età avanza ;-) 

[cut]
grazie Gaspare .... ni ... mi dava errore sul nome file quindi l'ho
corretta così:
Private Sub CMD_CREA_PDF_Click()
Dim rst As DAO.Recordset
Dim CONTATORE As Integer
Dim nomereport(94) As String
Dim nomevecchio, nomenuovo, nomefile As String
CONTATORE = 0
Set rst = CurrentDb.OpenRecordset("SELECT codice FROM
[2_Concessionario_DettaglioEvasioni] GROUP BY [codice] ORDER BY
codice;")
If rst.RecordCount > 0 Then
With rst
.MoveFirst
While Not .EOF
DoCmd.OpenReport "Dett_Evasioni_Concessionario", acViewNormal, ,
"codice=""" & !CODICE & """"
nomefile = !CODICE + ".pdf"
nomevecchio = "C:\Documents and
Settings\OEPOP1\Documenti\Dett_Evasioni_Concessionario.pdf"
nomenuovo = "C:\Documents and Settings\OEPOP1\Documenti\" & nomefile
Name nomevecchio As nomenuovo
.MoveNext
CONTATORE = CONTATORE + 1
Wend
End With
End If
rst.Close: Set rst = Nothing
End Sub
problema ... dopo la stampa su pdf mi si apre il file e blocca l'azione
successiva ... posso impedire l'apertura del pdf dopo la creazione?
Grazie per il prezioso aiuto!

[cut]
risolto dalle preferenze di stampa del pdf!