İlginize çok teşekkür ederim. Ofis sürümü nedeni ile linkte belirttiğiniz örneği inceleyemedim.
Ofis Sürüm: 2007
Yapmak istediğim ekli dosyada "frm_risk" formu ve alt formlarda girilen bilgileri "S_risk" sorgusu ile acces rapor yerine ekli dosyada bulunan rapor.dotx içindeki şablona (resimler ile) kaydederek rapor almak istiyorum.
sorguda bulunan her alanı bu şablonda bulunan tablo içine satır satır aktarmak istiyorum.
Örnek uygulamaları inceleyip şu kod yordamı ile anaform üzerindeki bir alanı sorguda açtırıp Word dosyasına yazdıra biliyorum
Kod:
Kod:
If MsgBox("D İ K K A T" & Chr(13) & _
"Bilgiler Şablona Yazdırılacak. Onaylıyor musunuz?", vbInformation + vbOKCancel) = vbOK Then
Else
Exit Sub
End If
Dim rs As New ADODB.Recordset
Dim objWord As Word.Application 'word programı
Dim objDocument As Object 'word belgesi
Dim objselection As Object
Dim objtable As Word.Table
Dim objrange As Word.Range
DoCmd.OpenQuery "S_RISK"
Set objWord = New Word.Application
objWord.Visible = True 'word programını görünür hale getiriyoruz.
Set objDocument = objWord.Documents.Add
Set objselection = objWord.Selection()
objWord.Selection.Font.Size = 12 'Yazı Büyüklüğü
objWord.Selection.Paragraphs.SpaceAfter = 0
objWord.Selection.Paragraphs.SpaceBefore = 0
objWord.Selection.Font.Name = (Arial) ' Yazı Karakteri
With objWord.Selection
.TypeText (Me.Detay)
.Font.Bold = True
Set WordApp = Nothing
End Withyukarıdaki kod yordamında nasıl bir yol izlersem alt formdaki bir alanı sorguda açıp worde yazdırabilirim?
ilginize teşekkür ederim.
