Prikazi cijelu temu 27.11.2018 23:59
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Lokacija:Ohrid Makedonija


Predmet:Re: Access report u PDF
ne trebaju ti moje tablice ili raporte treba ti samo ovaj deo coda i modul koj sam stavio
PreuzmiIzvorni kôd (Visual Basic):
  1. Dim blRet As Boolean
  2. Dim sPDF As String
  3. Dim sName As String
  4. dim Raport as String    
  5.        Raport="rptTest"     ' Naziv Tvoga izvestaja
  6.   DoCmd.OutputTo acReport,Raport, "SnapshotFormat(*.snp)",  "C:\" & Raport & ".snp", False, "", 0
  7. sName =  "C:\" &Raport & ".snp"
  8.  
  9. If Len(sName & vbNullString) = 0 Then Exit Function
  10. sPDF = Mid(sName, 1, Len(sName) - 4)
  11. blRet = ConvertReportToPDF(vbNullString, sName, sPDF & ".PDF", False, True, 0, "", "", 0, 1)
  12. 'posle obrabotkata izbrisi go SNP
  13.  
  14. Dim z As Integer
  15. Dim Ime As String
  16.  
  17.  Ime = Dir$( "C:\" & Raport & ".snp")
  18.    Do While Len(Ime) > 0
  19.        z = z + 1
  20.        Ime = Dir$()
  21.    Loop
  22.  
  23.   If z > 0 Then Call Kill( "C:\" &Raport & ".snp")