Resimli Formu Worde Aktarma - Baskı Önizleme +- 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ığı: Resimli Formu Worde Aktarma (/konu-resimli-formu-worde-aktarma.html) |
Cvp: Resimli Formu Worde Aktarma - alperadn01 - 29/01/2018 (29/01/2018, 17:31)ozanakkaya yazdı:(29/01/2018, 12:05)alperadn01 yazdı: Word formatını farklı yolda gösterme şansımız var mı? ozan bey daha önce sizin yardımlarınızla bu örneği kullanılabilir hale getirilmişti. istediğim konu bu örnekte worde aktar buton olayında Dim WordApp As Word.Application Dim strTemplateLocation As String Dim newPicture strTemplateLocation = CurrentProject.Path & "/personeltanitimkarti.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 kodunda bir değişiklik yapılması gerekiyor sanırım. dosya içerisinde hazırlanan personeltanitimkarti.dot formatı farklı bir dosya içerisinde veya D'nin içerisinde olması durumunda nasıl aktarma yapabiliriz. teşekkür ederim Cvp: Resimli Formu Worde Aktarma - ozanakkaya - 29/01/2018
Bu kod, uygulama ile aynı dizinde bulunan personeltanitimkarti.dot isimli dosyayı ifade eder. Bu dosya D dizininde yeni isimli klasör içerisinde ise
kodunu kullanmalısınız.
Cvp: Resimli Formu Worde Aktarma - alperadn01 - 30/01/2018 Çok teşekkür ederim konuyu taşıyabilirsiniz |