Centar za edukaciju-BiH


Stranice (1):1

#1 26.11.2018 12:42
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Access report u PDF
Pozdrav.
Imama Access 2003 bazu iz koje između ostalog Å¡tampam i račune. Svaki račun također spremim na disk u PDF formatu. Za to koristim "Microsoft Print to PDF".
Zanima me dali je moguće kod toga automatski ispisa ti naziv dokumenta u polje "Save As" , a na temelju broja računa.
To sada svaki puta upisujem ručno.
Hvala

Slicice prilozenih slika:
Racun PDF.jpg
Tip datoteke:Informacije o tipu datoteke za:jpg jpg
Preuzimanja:329
Velicina datoteke:269.46 KB
Velicina slike: 1323 x 925 Pikseli


Pozdrav
↑  ↓

#2 26.11.2018 17:21
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,828


Predmet:Re: Access report u PDF
jas imam dll so koj pravam pdf od Access .
Mozam da pobaram primer da stavam.
↑  ↓

#3 26.11.2018 20:08
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Access report u PDF
Pa ako možeš
Pozdrav
↑  ↓

#4 27.11.2018 16:18
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,828


Predmet:Re: Access report u PDF
Eve primer , od moite programi.

Prilozi:
Informacije o tipu datoteke za:rar  PDF.rar
Preuzimanja:321
Velicina datoteke:860.67 KB

↑  ↓

#5 27.11.2018 17:00
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Access report u PDF
U primjeru nema pripadajuče tablice i reporta pa primjer ne radi.
Ne mogu provjeriti kako VBA kod funkcionira.
Pozdrav
↑  ↓

#6 27.11.2018 22:59
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,828


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

#7 28.11.2018 09:21
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Access report u PDF
Hvala na pomoći, uspio sam namjestiti da radi.
Pozdrav
↑  ↓

Stranice (1):1


Sva vremena su GMT +01:00. Trenutno vrijeme: 11: 43 pm.