Newsgroup: it.comp.appl.access
Titolo: Problemi con routine Lebans per la creazione autom del PDF

Ciao a tutti.Sto utilizzando l'esempio di Lebans per creeare in
automatico il PDF di un report.Nel mio DB ho importato sia imoduli che
il form che Lebans inserisce nel suo esempio.Ovviamente ho anche
inserito nel folder del DB le dll specifiche.Appena pero' apro il form
per la scelta del report,scelgo il report e clicco sul controllo per
creare il PDF mi esce il seguente Debug:
Public Function TdfSetOk(db As DAO.Database, tdf As DAO.TableDef, ctl
As Control, strErrMsg As String) As Boolean
con la descrizione "Tipo definito dall'utente non definito"
Sicuramente e' una mia dimenticanza, dovrei forse agg.qualche cosa nei
rifewrimenti???.
Allora per essere precisi io sto usando Access 2000(per precisione
vers. Office Premium) sul DB di prova di Lebans non mi da questo
prob.mentre nel mio sì.
Se e' possibile vorrei anche poter non scegliere il report da
trasformare in PDF ma generare gia' in automatico in PDF un report
specifico.
Grazie in anticipo Dino


questione di riferimenti DAO

 specifico.
Quindi devi farlo. Guarda il codice nella maschera di esempio di Stephen.
Devi solo cambiare il nome del report al tuo. Cio� qc come
ConvertReportToPDF "QuiNomeDelTuoReport" ...
E prima o dopo il prossimo errore, leggi
http://groups.google.com/group/microsoft.public.it.office.access/msg/52558536ca15e34b
-- 
Ciao
Karl
*********
Access FAQ: 
www.donkarl.com/it
 

 Access FAQ:
www.donkarl.com/it
Grazie a tutti per la risposta.Era proprio un prob. di DAO.Chissa'
perche' sono sempre convinto che ci siano nei riferimenti.
Quindi il primo prob. e' risolto.
Per quanto riguarda invece il secondo cioe' invece,ho ancora qualche
difficolta' Ho provato ad inserire il nome del mio report ma mi da
errore.
Sicuramente ho sbagliato qualcosa.
Allora di seguito ti riporto il codice che ho prelevato (copiato) dal
form di Lebans.Il codice riguarda il pulsante che dopo aver scelto il
report ci  crea il PDF:
Dim blRet As Boolean
' Call our convert function
' Please note the last param signals whether to perform
' font embedding or not. I have turned font embedding ON for this
example.
'blRet = ConvertReportToPDF([Bolla da masc], vbNullString, _
'Me.lstRptName.Value & "[]", False, True, 150, "", "", 0, 0, 0)
' To modify the above call to force the File Save Dialog to select the
name and path
' for the saved PDF file simply change the ShowSaveFileDialog param to
TRUE.
Mi sorge un dubbio nel tuo esempio "ConvertReportToPDF" ti riferivi al
codice sopra riportato o al codice del Shapshot dove tralaltro non ho
trovato il rif al codice di output che diceci nel link
Ciao e grazie ancora
Dino

 ...
Prima ci sono i ' che fanno un commento dal codice. ;-)
Poi guarda meglio cosa ti ho scritto e cosa dice anche l'intellisense
se digiti il parametro per il nome del report nella funzione di Stephen
(rptName As String = ""), cioè
blRet = ConvertReportToPDF("Bolla da masc", ...


 Access FAQ:
www.donkarl.com/it
Ciao Karl grazie per la risposta (e per la pazienza!!!!!).Allora penso
di aver localizzato la problematica o almeno credo.Nella funzione :
Private Sub cmdReportToPDF_Click()
Dim blRet As Boolean
' Save the Report as a PDF document.
' The selected report is first exported to Snapshot format.
' The Snapshot file is then broken out into its
' component Enhanced Metafiles(EMF), one for each page of the report.
' Finally, the EMF's are converted to PDF pages within the master
' PDF document.
' The function call is:
Public Function ConvertReportToPDF( _
Optional RptName As String = "Bolla da masc", _
Io ho tolto il rem solo alla funzione ConvertReportToPDF,come vedi ho
inserito il nome del report ma il debug mi dice "Errore di
compilazione!!! Prevista end sub".Ma alla fine della funzione oltre ad
end function ci ho messo anche end sub.
Dove sbaglio???E perlomeno e' corretto dove sto intervenendo????
NB:Ho notato che il PDF viene come default salvato sul Desktop se
invece da False metto true mi esce la finestra salva in.Ma per salvare
il file in un folder dove devo scrivere il path???
Grazie
Dino