Salvare report in pdf

Question

Nei report che ho creato ho inserito un pulsante che al click salva il report in pdf.

Di seguito il codice:

Private Sub CreaPDF_Click()

DoCmd.OutputTo acOutputReport, "TotalexCampagna", acFormatPDF, "F:\fausto\TotalexCampagna.PDF", False

End Sub

Vorrei che il file venisse salvato nella stessa cartella in cui si trova il database. Il problema è che non so dove

l'operatore salverà il database nel suo pc. C'è un modo per ovviare a questo problema?? Nel caso in cui

decidessi di dividere il database (tabelle in una cartella che non conosco, e maschere, query e report in un'altra cartella che non conosco), si potrebbe optare per salvare il file nella cartella in cui ci sono le maschere, report e query??

Spero di essere stato chiaro nella spiegazione e vi ringrazio anticipatamente per l'aiuto.

Fausto.

P.s.: Sono quasi alla fine, poi non vi disturbo più!! :)

Answer 1

P.s.: Sono quasi alla fine, poi non vi disturbo più!! :)

ciao Fausto,

prova in questo modo :

Private Sub CreaPDF_Click()

DoCmd.OutputTo acOutputReport, "TotalexCampagna", acFormatPDF, CurrentProject.Path & "" & "TotalexCampagna.PDF", False

End Sub

al posto di currentproject.path che restituisce appunto il path del db corrente, imposta un percorso a piacer in cui salvi tutti i report estratti in pdf.

ciao, Sandro.

ps :

P.s.: Sono quasi alla fine, poi non vi disturbo più!! :)

nessun disturbo.

Answer 2

ciao Fausto,

posta sei il benvenuto! :-)

Ciao, Sandro

Answer 3

Come al solito siete IMPECCABILI !!!!!

P.s. Ho detto una bugia prima... ho ancora bisogno del vostro aiuto... nn riesco a inviare il report x e-mail... Stasera posto il codice in un altro thread....