Newsgroup: it.comp.appl.access
Titolo: filtrare creazione pdf

Non riesco a capire come filtrare la creazione di un pdf, uso la routine 
sotto per stampare o creare il pdf ma nell'intelisense non mi visualizza la 
dicitura WhereCondition:="", come posso fare?
 If Me.FilterOn Then
           strFilter = Me.Filter
 End If
    If MsgBox("vuoi creare un pdf?", vbQuestion + vbYesNo, "Creo Pdf") = 
vbYes Then
        Dim blRet As Boolean
        blRet = ConvertReportToPDF("listini", vbNullString, "ord_to_print" & 
".pdf", False, True, 0, "", "", 0, 0)
    Else
        If MsgBox("Vuoi stampare gli ordini selezionati?", vbQuestion + 
vbYesNo, "Stampo") = vbYes Then
            DoCmd.OpenReport ReportName:="c", View:=acNormal, 
WhereCondition:=strFilter
        Else
            Exit Sub
        End If
    End If
Grazie!
-- 
Access che passione! 

Va modificato il codice di Lebans che originariamente non supporta
tale possibilità...
Se non ricordo male avevo postato in questo NG o nel NG di MS la
Routine modificata...
Prova a vedere questo:
http://tinyurl.com/56kdjy
@Alex

 ha scritto nel messaggio 
news:47fbe5d3$0$17953$4faf...@reader1.news.tin.it...

La WhereCondition è la quarta opzione, non hai bisogno di indicare la 
costante se il valore di default dei parametri omessi, ti vanno bene:
...
    DoCmd.OpenReport "c", , ,strFilter
...
Ciao.
-- 
Sergio MAZZA 

 ha scritto nel messaggio 
news:53c2a666-fe10-4b11...@f63g2000hsf.googlegroups.com...


Grazie, l'ho sostituita e a parte qualche accapo da risistemare sono 
riuscito a sistemarla, ancora non ho provato ad usarla per il report 
filtrato ma ho già visto che in un'altra form che uso la funzione, mi crea 
problemi per il semplice fatto che non vuole più questo:
blRet = ConvertReportToPDF("ord_to_print", vbNullString, _
        "ord_to_print" & ".pdf", False, True, 0, "", "", 0, 0)
Quindi mi sorge il primo problema, se non devo filtrare come mi comporto?
Devo modificare quanto sopra oppure devo intervenire sulla nuova chiamata?
Dim rs as DAO.Recordset
Set rs=CurrentDb.OpenRecordset("NomeTabella")
rs.MoveFirst
Do until rs.Eof
     blRet = ConvertReportToPDF("NomeReport", "idPK=" &
rs.Fields("idPK").Value, vbNullString, strName, False, false, 0, "", "", 0,
0)
     rs.movenext
Loop
rs.Close
Set Rs=nothing
Grazie
-- 
Saluti @ndrea

 ha scritto nel messaggio 
news:53c2a666-fe10-4b11...@f63g2000hsf.googlegroups.com...


Ho provato, ma ad un certo punto mi dava errore la function e non ci levavo 
le gambe, ho preferito (vista la mia difficoltà) creare una temp e 
utilizzarla così:
Dim rs As DAO.Recordset
Dim db As DAO.Database
Set rs = CurrentDb.OpenRecordset("listini_tmp")
DoCmd.RunSQL "delete * from listini_tmp"
 DoCmd.RunSQL "INSERT INTO listini_tmp ( Codice, descrizionelavoro, 
descrizionelavoro1, quantita, colori, imponibile, idtipolistino, 
idpreventivo, l1, l2, data )" _
 & "SELECT listini.Codice, listini.descrizionelavoro, 
listini.descrizionelavoro1, listini.quantita, listini.colori, 
listini.imponibile, listini.idtipolistino, listini.idpreventivo, listini.l1, 
listini.l2, listini.data " _
 & "FROM listini WHERE listini.idtipolistino=" & cbonomelistino
     Dim blRet As Boolean
        blRet = ConvertReportToPDF("listini_to_print_filtr", vbNullString, 
"listini_tmp" & ".pdf", False, True, 0, "", "", 0, 0)
rs.Close
Set rs = Nothing
Saluti @ndrea