27/01/2011, 18:21
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
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