Bosna i Hercegovina



#1 26.11.2018-12:42
pmiroslav Offline
Clan
Registrovan/a od: 02.02.2009-10:32
Komentari: 1,376


Subject: 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

Ikona prilozene slike:
Racun PDF.jpg
Tip fajla: Informacije o fajlu: jpg jpg
Preuzimanja: 21
Veličina: 269.46 KB
Veličina slike: 1323 x 925 Pixels


Pozdrav
↑  ↓

#2 26.11.2018-17:21
Gjoreski Offline
Super Moderator
Registrovan/a od: 02.02.2009-22:24
Komentari: 1,548


Subject: 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 Offline
Clan
Registrovan/a od: 02.02.2009-10:32
Komentari: 1,376


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

#4 27.11.2018-16:18
Gjoreski Offline
Super Moderator
Registrovan/a od: 02.02.2009-22:24
Komentari: 1,548


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

Prilozi:
Informacije o fajlu: rar  PDF.rar
Preuzimanja: 14
Veličina: 860.67 KB

↑  ↓

#5 27.11.2018-17:00
pmiroslav Offline
Clan
Registrovan/a od: 02.02.2009-10:32
Komentari: 1,376


Subject: 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 Offline
Super Moderator
Registrovan/a od: 02.02.2009-22:24
Komentari: 1,548


Ocjena: Ocjena:100 Subject: Re: Access report u PDF
ne trebaju ti moje tablice ili raporte treba ti samo ovaj deo coda i modul koj sam stavio
DownloadIzvorni kod (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 Offline
Clan
Registrovan/a od: 02.02.2009-10:32
Komentari: 1,376


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

Stranice (1): 1


All times are GMT +01:00. Current time: 19.12.2018-17:31.