Dim blRet As Boolean

Dim sPDF As String

Dim sName As String

dim Raport as String    

       Raport="rptTest"     ' Naziv Tvoga izvestaja

  DoCmd.OutputTo acReport,Raport, "SnapshotFormat(*.snp)",  "C:\" & Raport & ".snp", False, "", 0

sName =  "C:\" &Raport & ".snp"

 

If Len(sName & vbNullString) = 0 Then Exit Function

sPDF = Mid(sName, 1, Len(sName) - 4)

blRet = ConvertReportToPDF(vbNullString, sName, sPDF & ".PDF", False, True, 0, "", "", 0, 1)

 

Dim z As Integer

Dim Ime As String

 

 Ime = Dir$( "C:\" & Raport & ".snp")

   Do While Len(Ime) > 0

       z = z + 1

       Ime = Dir$()

   Loop

 

  If z > 0 Then Call Kill( "C:\" &Raport & ".snp")