<br />
<b>Notice</b>:  Undefined offset: 2 in <b>/home2/icentarb/public_html/icentar/classes/class.permissions.php</b> on line <b>735</b><br />
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: