Newsgroup: it.comp.appl.access
Titolo: salvataggio automatico del pdf

Ciao
Per mia esigenza, utilizzo  reporttopdf come indicato in: 
www.donkarl.com/it?FAQ5.17
adattato alle mie esigenze, in modo che da ogni maschera da cui desidero 
lanciare la stampa, mi avvii  il report adatto.
Per fare questo ho preso la maschera creata da Stephen Lebans, "howToUse", 
l'ho ridotta al singolo pulsante che mi crea il file pdf dal report.
Dalla quey che genera l'elenco reports, ho filtrato  il nome del solo report 
che mi serve per creare il file di stampa relativo alla maschera  di 
origine, tale report ha origine da una query  che nel campo [N�Documento] ha 
come criterio [Forms]![miamaschera]![mia 
sottomaschera].[Form]![N�Documento].
Funziona perfettamente, crea il pdf da cui poi io lancio la stampa, e 
successivamente salvo il file in una cartella che utilizzo come archivio, 
nominandolo con il n� univoco del documento generato da access.
Ora vorrei rendere automatiche le due ultime operazioni, cio� nel momento in 
cui si genera il file pdf, vorrei se possibile, salvarlo nella cartella che 
ho indicato come cartella di archivio, nominandolo automaticamente  con il 
n� del documento di origine ([Forms]![miamaschera]![mia 
sottomaschera].[Form]![N�Documento).
Si puo' fare?
grazie
Giacomo
 


        strRptName = "rptQuotation"
        strNomeAllegatoCompleto = GetFolderDesktop() & "\Offer.pdf"
        If Not ConvertReportToPDF(strRptName, vbNullString, 
strNomeAllegatoCompleto, False, True, 0, "", "", 0, 0) Then
            MsgBox "Non � stato possibile creare l'allegato PDF", 
vbExclamation, gcntNomeProgetto
            GoTo Exit_cmdCreaEmail_Click
        End If
Daniele

 ha scritto nel messaggio 
news:4b726ec9$0$1130$4faf...@reader3.news.tin.it...

Cos� mi visualizza direttamente  il pdf
Dim blRet As Boolean
blRet = ConvertReportToPDF(Me.lstRptName, vbNullString, _
Me.lstRptName.Value & ".pdf", false, True, 150, "", "", 0, 0, 0)
invece cos� mi apre una finestra di dialogo dove posso indicare path e nome 
file
blRet = ConvertReportToPDF(Me.lstRptName, vbNullString, _
Me.lstRptName.Value & ".pdf", True, True, 150, "", "", 0, 0, 0)
non � possibile predefinire la cartella (preventivi PDF) ed il nome file (= 
maschera "preventivi" "n�documento")
 

 file (= maschera "preventivi" "n�documento")
Non mi � chiaro di dove vuoi prendere il percorso.
Se p.e. si trova in una casella di testo "txtPercorso" prova cos�:
ConvertReportToPDF Me!lstRptName, vbNullString, _
Me!txtPercorso & "\" & Me!lstRptName & ".pdf", , True
-- 
HTH
Karl
*********
Access FAQ: 
www.donkarl.com/it
 

 ha scritto nel messaggio 
news:7tfpb9...@mid.individual.net...

il percorso inteso come  cartella+nome file  lo dovrei prendere dalla 
casella di testo "path" posizionata nella maschera "preventivi"
ho provato con
ConvertReportToPDF Me!lstRptName, vbNullString, _
 Me!path & "\" & Me!lstRptName & ".pdf", , True
ma mi da errore 2465 impossibile trovare il campo "path",
 

 ma mi da errore 2465 impossibile trovare il campo "path",
Se la tua maschera "preventivi" non � la stessa maschera
dove si trova il codice non devi usare Me!path ma:
Forms!preventivi!path


 ha scritto nel messaggio 
news:7tfsfk...@mid.individual.net...

Cos� non mi da pi� l'errore ma non mi salva il file pdf , lo crea perch� ho 
riabilitato la visualizzazione  ed lo snapshot del report c'e'
blRet = ConvertReportToPDF(Me.lstRptName, vbNullString, _
Forms![preventivi]!path & "\" & Me!lstRptName & ".pdf", False, True, 150, 


 ha scritto nel messaggio 
news:4b72c59a$0$828$4faf...@reader5.news.tin.it...

P.s.  il percorso completo visualizzato nel campo path �:
 G:\GESTIONE\agest 2010\PREVENTIVI PDF\20100153
dove 20100153 � il n� del documento nomefile
ed � il percorso corretto
 

 ha scritto nel messaggio 
news:4b72c847$0$824$4faf...@reader5.news.tin.it...

E' andata !
blRet = ConvertReportToPDF(Me.lstRptName, vbNullString, 
Forms![preventivi]!path & ".pdf", False, False, 150, "", "", 0, 0, 0)
con questo funziona !
ma se comunque mi volete spiegare  perch� ......& Me!lstRptName .. non 
centrasse piu' niente  ne sarei grato.
Grazie