Treba ti neki od PDF convertera. jedan koji se lepo programira u VBA je WIn2PDF.

http://www.win2pdf.com/index.htm

Na sajtu imas Support/OnlIne user guide, pa tamo imas negd epri kraju primer kako se iz Accesa (VBA) salje report u PDF file, kome mozes da das proizvoljno ime i da ga cuvas u proizvoljnom folderu.

Win2PDF se moze downloadovati besplatno, ali ti dodaje jednu stranicu gde kaze "Ovo je neregistrovana kopija WinPDF". registraciaj kosta U$ 35.

:-)

Ta je opcija ugrađena u MS Office 2007 SP2, a ako nemaš instaliran Service Pack, može da se skine sa MS sajta besplatan dodatak (nažalost samo za verziju 2007)

Skines si pdfcreator, besplatan je, i njega instaliras kao printer, podesis ga da ti stampa ili snimi report
i onda si mozes iz menia, kojeg sam napravis i ubacis na reporte pozivat funkciju koja ti stampa report ili
prebacuje u pdf format i snima gdje zelis

Public Function trtpdf()


Dim imeliste As String
imeliste = ""

Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentProject

For Each obj In dbs.AllReports
If obj.IsLoaded = True Then
imeliste = obj.Name
End If
Next obj

If IsNull(imeliste) Or imeliste = "" Then
Exit Function
End If
DoCmd.Close acReport, imeliste

Dim sPDFName As String
Dim sPDFPath As String
Dim sPrinterName As String
Dim sReportName As String
Dim lPrinters As Long
Dim lPrinterCurrent As Long
Dim lPrinterPDF As Long
Dim prtDefault As Printer

sReportName = imeliste
sPDFName = sReportName & ".pdf"

sPrinterName = Application.Printer.DeviceName

On Error Resume Next
For lPrinters = 0 To Application.Printers.Count
Set Application.Printer = Application.Printers(lPrinters)

Set prtDefault = Application.Printer
Select Case prtDefault.DeviceName
Case Is = sPrinterName
lPrinterCurrent = lPrinters
Case Is = "PDFCreator"
lPrinterPDF = lPrinters
Case Else

End Select
Next lPrinters
On Error GoTo 0

Set Application.Printer = Application.Printers(lPrinterPDF)
Set prtDefault = Application.Printer
DoCmd.OpenReport (sReportName), acNormal

Set Application.Printer = Application.Printers(sPrinterName)
Set prtDefault = Application.Printer


End Function

Tvrtko probao sam,ali ovo nece da mi radi?

Sto ti tocno ne radi.

1. kad instaliras pdfcreator, on ti se postavi kao stampac i mora se bas tako i zvati
..... Case Is = "PDFCreator"

2. Ja sam si napravio svoj meni , u kojem je si tri naredbe , Štampaj, Prepis u PDF, Izlaz
..... i taj svoj meni stavljam na svoje reporte, kad odaberes Prepis U PDF, onda on pozove funkciju =Trtpdf()

3. I moras si podesiti na Options , u pdfcreatoru, kamo da ti snima tvoju listu, koju pretvori u pdf, u koji folder,
.....pa onda da li zelis da ti stampa dokument ili ne, itd....


na svim strojevima kod mene to radi , samo moras podesiti stampac

Pozdrav