+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Forumdaki veriyi Word e yazdırma (/konu-forumdaki-veriyi-word-e-yazdirma.html)
Forumdaki veriyi Word e yazdırma - av.fatihberber - 14/09/2010
Öncelikle bu form kullanıcılarına teşekkür ediyorum. Amatör yaptığımız çalışmalar yavaş yavaş profesyonelleşiyor. Ben de kendi alanımda bir hukuk otomasyonu yapıyorum. Buradan sürekli örneklerle destekliyorum. şimdi yapmak istediğim ise biraz daha profosyonellik istiyor.
Ekte gönderdiğim çalışmadaki forumdaki verilerden bazılarını yine ekteki word belgesine yazdırmak istiyorum. Mesela ben forumda yazdır dediğim zaman o istediğim alanlar o word belgesindeki yerlere geçsin istiyorum. ancak bunu kodsuz başaramadım. Yardımlarınız için şimdiden teşekkür ediyorum..
Cvp: Forumdaki veriyi Word e yazdırma - ercansahin - 14/09/2010
Aşağıda belirtilen konuları incelermisiniz.
https://accesstr.net/konu-word-aktarma.html
https://accesstr.net/konu-access-den-word-e-aktarma.html
Cvp: Forumdaki veriyi Word e yazdırma - İsmail Küçükşengün - 15/09/2010
Sayın av.fatihberber
Örneğinizi 2003 formatına çevirip ekleyebilir misiniz?
Cvp: Forumdaki veriyi Word e yazdırma - assenucler - 15/09/2010
Sayın İsmail Küçükşahin;
Günaydın dostum..
2003'e çevrilmiş dosya ektedir.
Hayırlı işler...Selam ve sevgiler..
Cvp: Forumdaki veriyi Word e yazdırma - av.fatihberber - 15/09/2010
Verdiğiniz örnekleri inceledim. Benim çalışmama entegre etmeye çalıştım. Ama anlamadığım bir yerde hata yapıyorum. Bir türlü word e yazdıramadım.
Kodu aşağıdaki gibi yazdım olmadı.
Alıntı:Option Compare Database[/vb]
Private Sub Komut22_Click()
' Word Şablonundan yeni belge oluşturma.
Dim WordApp As Word.Application
Dim strTemplateLocation As String
' Şablonun bulunduğu yer
strTemplateLocation = CurrentProject.Path & "\talepmernis.dot"
On Error Resume Next
Set WordApp = GetObject(, "Word.Application")
If Err.Number <> 0 Then
Set WordApp = CreateObject("Word.Application")
End If
On Error GoTo ErrHandler
WordApp.Visible = True
WordApp.WindowState = wdWindowStateMaximize
WordApp.Documents.Add Template:=strTemplateLocation, NewTemplate:=False
' Her satırı uygun olan kayıt ile değiştirmek.
With WordApp.Selection
.Goto what:=wdGoToBookmark, Name:="icradairesi"
.TypeText [VERİTABANI]![İcra Dairesi]
.Goto what:=wdGoToBookmark, Name:="esasno"
.TypeText [VERİTABANI]![Esas No]
.Goto what:=wdGoToBookmark, Name:="adisoyadi"
.TypeText [VERİTABANI]![Adı Soyadı]
.Goto what:=wdGoToBookmark, Name:="tcno"
.TypeText [VERİTABANI]![Tc veya Vergi no]
End With
DoEvents
WordApp.Activate
Set WordApp = Nothing
Exit Sub
ErrHandler:
Set WordApp = Nothing
End Sub
Private Sub Komut140_Click()
End Sub
Cvp: Forumdaki veriyi Word e yazdırma - Kur@l - 15/09/2010
Aşağıdaki mesajda bir çalışmam var inceleyiniz.
worde verme