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)
'posle obrabotkata izbrisi go SNP

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")