Novo

Forum kao aplikacija na telefonu

Dodajte forum na početni ekran i koristite ga kao aplikaciju, sa menijem na dnu ekrana.

  • 4 odgovora
  • 3.997 pregleda

Najnovija ↓

Print .pdf-a iz Accessa 22.01.2015. u 08:38 · pre 143 meseca #1
Pozzz svima.

Trebala bi mi uputa, ili ako netko ima gotovu proceduru za printanje .pdf fajla iz Access front enda.

Naime, imam nekih 10-ak stranica skeniranih i prebačenih u .pdf i spremljenih u poseban folder gdje je i baza (uvijek istih), koje moram printati često, pa sam mislio da bi to bilo lijepo povezati sa aplikacijom koju koristim, da se to printa odmah iz aplikacije. Ne treba se otvarati fajli, nego samo print on click.

Unaprijed hvala!
Re: Print .pdf-a iz Accessa 22.01.2015. u 09:40 · pre 143 meseca #2
Ovu funkciju
Code:
Function OpenPDF(Folder, File) ' Folder je folder u kome se nalaze pdf fajlovi,a File PDF fajl koji treba da se otvori

On Error GoTo EndNow

Dim strAddress As String
strAddress = Nz(Folder)
strAddress = strAddress & IIf(strAddress = "", "", "/") & Nz(File)
strAddress = strAddress & IIf(strAddress = "", "", ".pdf")
If strAddress = "" Then
MsgBox "There is no text to search."
Else
Application.FollowHyperlink "C:\Users\" & strAddress  'putanja do foldera u kome se nalaze pdf fajlovi
End If

Exit Function
EndNow:
MsgBox "Ne postoji PDF", vbInformation, "Greska!"

End Function

ubaci u novi modul,a zatim je pozovi sa forme na onclick dugmeta
Code:
 Call OpenPDF("Naziv foldera u kome su smesteni pdf fajlovi", "Naziv pdf fajla bez .pdf")(
.
Pozdrav.
Potpis
Jednog dana...
Re: Print .pdf-a iz Accessa 22.01.2015. u 13:19 · pre 143 meseca #3
Sloj, hvala na kodu, radi za 5. Provjereno u A2010.

Mada, radije bih da odmah printa direktno bez otvaranja .pdf-a, ali i ovo može poslužiti :)

Još jednom, velika hvala!
Re: Print .pdf-a iz Accessa 22.01.2015. u 18:01 · pre 143 meseca #4
Moze i odmah.Evo fantasticnog koda koji stampa odmah fajl,bez obzira kojeg je tipa:excel.word,pdf...Treba samo na kraju posle tacke naznaciti koji je tip datoteke.
Code:
CreateObject("Shell.Application").Namespace(0).ParseName("C:\putanja do trazenog fajla\nazivfajla.pdf").InvokeVerb ("Print")

Zamolio bih moderatore da ubace u bazu znanja,jer je verovatno ovo svima bar jednom u zivotu zatrebalo.
PS:Nije moj kod,iščupao sam ga od nekud pre nekoliko nedelja.
Našao sam link
Potpis
Jednog dana...
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme