Centar za edukaciju-BiH

Predmet:Access izvjestaj u word-u ili eksport podataka u word obrazac

---

Postoji li negdje na forumu primjer za eksport podataka u word?

Konkretno, imam program za plate radnika i zelio bih da na osnovu podataka iz programa odstampam ugovor o radu.

Access-ov report mi ne odgovara iz razloga sto je vrlo cesto potrebno dijelove ugovora izmijeniti tj dodati ili brisati dio teksta.

Predmet:Re:Access izvjestaj u word-u ili eksport podataka u word obrazac

---

DoCmd.OutputTo acOutputReport, "rptUgovor", acFormatRTF, "C:\Temp\Ugovor.rtf", True

---

Predmet:Re:Access izvjestaj u word-u ili eksport podataka u word obrazac

---

Ako bas hoces u docx:

---

Predmet:Re:Access izvjestaj u word-u ili eksport podataka u word obrazac

---

Isto mozes u .pdf:

DoCmd.OutputTo acOutputReport, "rptUgovor", acFormatPDF, "C:\Temp\Ugovor.pdf", False

Poslije Ugovor.pdf mozes editovati sa PDF-XChange editorom ili sa drugim editorima.

---

Predmet:Re:Access izvjestaj u word-u ili eksport podataka u word obrazac

---

Uz drugu funkciju dodao sam ovo, da mi odmah otvori dokument:

Private Sub Command1_Click()

Dim LWordDoc As String
Dim oApp As Object

'Path to the word document
LWordDoc = "C:\Ugovori\Ugovor.docx"

If Dir(LWordDoc) = "" Then
MsgBox "Document not found."

Else
'Create an instance of MS Word
Set oApp = CreateObject(Class:="Word.Application")
oApp.Visible = True

'Open the Document
oApp.Documents.Open filename:=LWordDoc
End If

End Sub

Predmet:Re:Access izvjestaj u word-u ili eksport podataka u word obrazac

---

Hvala puno!