Skip to main content

AccessTr.neT


Sorgudan word e veri aktarma

Sorgudan word e veri aktarma

Çözüldü #1
Arkadaşlar aşağıdaki kod aracılığı ile bir formdaki verileri wordde istediğm yere yazdırabiliyorum. Ancak bu bilgiler form üzerinde değilde formdaki liste kutusundaki bir veri ise aşağıdaki koyu işaretlenen alanda nasıl bir değişiklik yapmalıyım. frm_tutanaklar adlı form üzerinde bulunan lst_rapor liste kusundaki verileri nasıl tanımlayabilirim

Dim WordApp As Word.Application
Dim AYol As String
AYol = CurrentProject.Path & "\VDAraçSatışÜstYazısı1" & ".doc"

Application.FollowHyperlink AYol, , True, True
On Error Resume Next
Set WordApp = GetObject(, "Word.Application")
On Error GoTo ErrHandler
WordApp.Documents.Open (AYol)
WordApp.Visible = True
WordApp.WindowState = wdWindowStateMaximize
With WordApp.Selection
.Goto what:=wdGoToBookmark, Name:="DN"
.TypeText Dosya_No & " "
.Goto what:=wdGoToBookmark, Name:="VD"
.TypeText VD & " "
.Goto what:=wdGoToBookmark, Name:="ad2"
.TypeText ADISOYADI & " "
.Goto what:=wdGoToBookmark, Name:="sira"
.TypeText SIRANOEnd With
DoEvents
WordApp.Activate
'WordApp.Documents.Save 'Kaydetmek isterseniz tırnağı boşaltınız..

WordApp.Print
Set WordApp = Nothing
Exit Sub
ErrHandler:
Set WordApp = Nothing
Son Düzenleme: 27/01/2011, 18:22, Düzenleyen: ozmly.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Sorgudan word e veri aktarma - Yazar: ozmly - 27/01/2011, 18:21
Cvp: Sorgudan word e veri aktarma - Yazar: alpeki99 - 27/01/2011, 20:13
Cvp: Sorgudan word e veri aktarma - Yazar: ozmly - 28/01/2011, 11:26
Cvp: Sorgudan word e veri aktarma - Yazar: ercansahin - 01/02/2011, 23:54
Cvp: Sorgudan word e veri aktarma - Yazar: ozmly - 03/02/2011, 16:17
Cvp: Sorgudan word e veri aktarma - Yazar: ozmly - 28/02/2011, 14:02
Cvp: Sorgudan word e veri aktarma - Yazar: ensar236 - 18/02/2011, 14:20
Task