Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Word Dosyasına Logo Getirme

cdenktas
cdenktas
Access Cevaplanmış Soruları
3
305

Word Dosyasına Logo Getirme

Çözüldü #1
cdenktas
Aktif Üye
cdenktas
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 45
Konum: -
Ofis Versiyonu: -
Son Oturumu: 22/04/2024,15:26
Yorumları: 161
Konuları: 37
Kayıt Tarihi: 19/09/2019
Teşekkür Puanı: 0
Değerli arkadaşlar;

Çalışmış olduğum datayı word aktarma yapabiliyorum ancak word dosyasına sol üst köşeye kurum logunu getiremiyorum.

Word şablon olarak kaydettim bu seferde veriler gelmiyor bir yerde hata yapıyorum bu konuda yardımcı olursanız sevinirim.
.rar Word_Logo_Getirme.rar (Dosya Boyutu: 179,69 KB | İndirme Sayısı: 4)
Cevapla
#2
atoykan
Uzman
atoykan
Bul
Uzman
Adı Soyadı:
Konum: İstanbul
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Bugün,09:09
Yorumları: 1.276
Konuları: 3
Kayıt Tarihi: 23/02/2020
Teşekkür Puanı: 162
Mesleğiniz: CIO, Yazılım
Merhaba Sayın @cdenktas
  1. Sizi uygulamalarınız ile ilgili olarak defalarca uyardık Türkçe karakter kullanımı, denetim adlandırmalarında boşluk kullanmak vs ile ilgili ancak bu alışkanlığınızdan vazgeçmiyorsunuz. Uygulamanız baştan sona hata dolu.
  2. DoCmd.OutputTo acReport, "Kisi_Bilgileri", acFormatRTF, CurrentProject.Path & "\frm_cikti.rtf", True kodu her ne kadar uzantı olarak rtf alıp Rich Text Format olarak görünse de, bu kod Rich Text ve image dosyalarını Word'e export etmez. Export edilen tüm metinlerde Plain Text formatındadır.
  3. İstediğiniz şekilde raporu export etmek için ya pdf olarak export etmeyi tercih etmelisiniz veya Word dosyasına formatlayarak export etmeyi öğrenmelisiniz.

Sorunuza gelecek olursak öğrenme eğiliminizdeki kararlılık noksanlığından yola çıkarak en basit yol olark önerim, raporunuzu önce pdf olarak export edip sonra worde çevirmeniz olacaktır. Aşağıda buna uygun örnek kod mevcut.
Private Sub Komut44_Click()

    If IsNull(Me.tc_goster) Then

        MsgBox "Hiç Bir Kayıt Seçilmedi"

    Else

        DoCmd.OutputTo acOutputReport, "Kisi_Bilgileri", acFormatPDF, CurrentProject.Path & "\frm_cikti.pdf", False ' Raporu önce PDF olarak kaydedin



        Dim WordApp As Object

        Set WordApp = CreateObject("Word.Application")

        WordApp.Visible = True ' Word uygulamasını ekrana getirir. False yaparsanız görünmez.



        Dim doc As Object

        Set doc = WordApp.Documents.Add(CurrentProject.Path & "\frm_cikti.pdf") ' Rapor pdfini Word'e dönüştürün



        ' Eğer resimler Word belgesine doğru bir şekilde eklenmediyse manuel olarak aşağıdaki gibi ekleyebilirsiniz.

        ' doc.Shapes.AddPicture "DosyaYolu\ResimDosyasi.jpg", LinkToFile:=False, SaveWithDocument:=True, Left:=100, Top:=100, Width:=50, Height:=50



        ' Kill CurrentProject.Path & "\frm_cikti.pdf" ' İsterseniz raporun pdfini silebilirsiniz

    End If

End Sub

Sizin uygulayacağınızı veya öğrenmek için çaba harcayacağınızı düşünmüyorum ancak, konudan fayda sağlamak isteyen diğer arkadaşlara bir başlangıç noktası kılavuzu olması açısından referanslardan MS Word Object Library eklemek sureti ile aşağıdaki gibi bir kod kullanarak, her bir denetim ve aktarmak istediğiniz içerik paragraf, yazı tipi, font, stil, çerçeve vs gibi formatlamalar uygulayarak export etmek için kullanılır.

Private Sub Komut44_Click()

    If IsNull(Me.tc_goster) Then

        MsgBox "Hiç Bir Kayıt Seçilmedi"

    Else

        Dim wrd As Word.Application

        Set wrd = New Word.Application

        

        ' wordü görmek istemiyorsanız aşağıdaki kodları kaldırabilirsiniz

        wrd.Visible = True

        wrd.Activate

        

        ' word dökümanı oluşturma

        wrd.Documents.Add

        With wrd.selection

            .ParagraphFormat.Alignment = wdAlignParagraphLeft

            .InlineShapes.AddPicture "c:\....\resiminizin adı"

            .ParagraphFormat.Alignment = wdAlignParagraphCenter

            .BoldRun

            .Font.Size = 14

            .TypeText Etiket33.Caption

            .BoldRun

            

            .TypeParagraph

            .ParagraphFormat.Alignment = wdAlignParagraphCenter

            .BoldRun

            .Font.Size = 11

            .TypeText Etiket34.Caption

            .BoldRun

            

            .TypeParagraph

            .ParagraphFormat.Alignment = wdAlignParagraphLeft

            .Font.Size = 11

            .TypeText Etiket2 & vbTab & [Adı ve Soyadı]

            

            .TypeParagraph

            .ParagraphFormat.Alignment = wdAlignParagraphLeft

            .Font.Size = 11

            .TypeText Etiket4 & vbTab & [T C Kimlik No]

        '

        '

        'diğer denetimler

        '

        '

         End With

         ActiveDocument.InlineShapes(1).Height = 50

         ActiveDocument.InlineShapes(1).Width = 100

        Set wrd = Nothing

    End If

End Sub
Cevapla
#3
cdenktas
Aktif Üye
cdenktas
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 45
Konum: -
Ofis Versiyonu: -
Son Oturumu: 22/04/2024,15:26
Yorumları: 161
Konuları: 37
Kayıt Tarihi: 19/09/2019
Teşekkür Puanı: 0
(28/02/2024, 03:52)atoykan yazdı: Merhaba Sayın @cdenktas
  1. Sizi uygulamalarınız ile ilgili olarak defalarca uyardık Türkçe karakter kullanımı, denetim adlandırmalarında boşluk kullanmak vs ile ilgili ancak bu alışkanlığınızdan vazgeçmiyorsunuz. Uygulamanız baştan sona hata dolu.
  2. DoCmd.OutputTo acReport, "Kisi_Bilgileri", acFormatRTF, CurrentProject.Path & "\frm_cikti.rtf", True kodu her ne kadar uzantı olarak rtf alıp Rich Text Format olarak görünse de, bu kod Rich Text ve image dosyalarını Word'e export etmez. Export edilen tüm metinlerde Plain Text formatındadır.
  3. İstediğiniz şekilde raporu export etmek için ya pdf olarak export etmeyi tercih etmelisiniz veya Word dosyasına formatlayarak export etmeyi öğrenmelisiniz.

Sorunuza gelecek olursak öğrenme eğiliminizdeki kararlılık noksanlığından yola çıkarak en basit yol olark önerim, raporunuzu önce pdf olarak export edip sonra worde çevirmeniz olacaktır. Aşağıda buna uygun örnek kod mevcut.
Private Sub Komut44_Click()

    If IsNull(Me.tc_goster) Then

        MsgBox "Hiç Bir Kayıt Seçilmedi"

    Else

        DoCmd.OutputTo acOutputReport, "Kisi_Bilgileri", acFormatPDF, CurrentProject.Path & "\frm_cikti.pdf", False ' Raporu önce PDF olarak kaydedin



        Dim WordApp As Object

        Set WordApp = CreateObject("Word.Application")

        WordApp.Visible = True ' Word uygulamasını ekrana getirir. False yaparsanız görünmez.



        Dim doc As Object

        Set doc = WordApp.Documents.Add(CurrentProject.Path & "\frm_cikti.pdf") ' Rapor pdfini Word'e dönüştürün



        ' Eğer resimler Word belgesine doğru bir şekilde eklenmediyse manuel olarak aşağıdaki gibi ekleyebilirsiniz.

        ' doc.Shapes.AddPicture "DosyaYolu\ResimDosyasi.jpg", LinkToFile:=False, SaveWithDocument:=True, Left:=100, Top:=100, Width:=50, Height:=50



        ' Kill CurrentProject.Path & "\frm_cikti.pdf" ' İsterseniz raporun pdfini silebilirsiniz

    End If

End Sub

Sizin uygulayacağınızı veya öğrenmek için çaba harcayacağınızı düşünmüyorum ancak, konudan fayda sağlamak isteyen diğer arkadaşlara bir başlangıç noktası kılavuzu olması açısından referanslardan MS Word Object Library eklemek sureti ile aşağıdaki gibi bir kod kullanarak, her bir denetim ve aktarmak istediğiniz içerik paragraf, yazı tipi, font, stil, çerçeve vs gibi formatlamalar uygulayarak export etmek için kullanılır.

Private Sub Komut44_Click()

    If IsNull(Me.tc_goster) Then

        MsgBox "Hiç Bir Kayıt Seçilmedi"

    Else

        Dim wrd As Word.Application

        Set wrd = New Word.Application

        

        ' wordü görmek istemiyorsanız aşağıdaki kodları kaldırabilirsiniz

        wrd.Visible = True

        wrd.Activate

        

        ' word dökümanı oluşturma

        wrd.Documents.Add

        With wrd.selection

            .ParagraphFormat.Alignment = wdAlignParagraphLeft

            .InlineShapes.AddPicture "c:\....\resiminizin adı"

            .ParagraphFormat.Alignment = wdAlignParagraphCenter

            .BoldRun

            .Font.Size = 14

            .TypeText Etiket33.Caption

            .BoldRun

            

            .TypeParagraph

            .ParagraphFormat.Alignment = wdAlignParagraphCenter

            .BoldRun

            .Font.Size = 11

            .TypeText Etiket34.Caption

            .BoldRun

            

            .TypeParagraph

            .ParagraphFormat.Alignment = wdAlignParagraphLeft

            .Font.Size = 11

            .TypeText Etiket2 & vbTab & [Adı ve Soyadı]

            

            .TypeParagraph

            .ParagraphFormat.Alignment = wdAlignParagraphLeft

            .Font.Size = 11

            .TypeText Etiket4 & vbTab & [T C Kimlik No]

        '

        '

        'diğer denetimler

        '

        '

        End With

        ActiveDocument.InlineShapes(1).Height = 50

        ActiveDocument.InlineShapes(1).Width = 100

        Set wrd = Nothing

    End If

End Sub

Merhabalar, emeğinize sağlık belki dediğniz için çok aktif olarak çaba harcamıyorum ama sizler sayesinde elimden geleni yapmaya çaışıyorum. Unvanım istatistikçi çok fazla Excel haşır neşir olmaktayım ama bazen biriminde arkadaşlara kolaylık olsun diye Access el atıyorum.

Sizin yollamış olduğunuz kodu accese yerleştirdiğimde pdf kısmı atıyor (Çizgiler halinde) ama word olmuyor. [img][Resim: do.php?img=16549][/img]
(28/02/2024, 09:21)cdenktas yazdı:
(28/02/2024, 03:52)atoykan yazdı: Merhaba Sayın @cdenktas
  1. Sizi uygulamalarınız ile ilgili olarak defalarca uyardık Türkçe karakter kullanımı, denetim adlandırmalarında boşluk kullanmak vs ile ilgili ancak bu alışkanlığınızdan vazgeçmiyorsunuz. Uygulamanız baştan sona hata dolu.
  2. DoCmd.OutputTo acReport, "Kisi_Bilgileri", acFormatRTF, CurrentProject.Path & "\frm_cikti.rtf", True kodu her ne kadar uzantı olarak rtf alıp Rich Text Format olarak görünse de, bu kod Rich Text ve image dosyalarını Word'e export etmez. Export edilen tüm metinlerde Plain Text formatındadır.
  3. İstediğiniz şekilde raporu export etmek için ya pdf olarak export etmeyi tercih etmelisiniz veya Word dosyasına formatlayarak export etmeyi öğrenmelisiniz.

Sorunuza gelecek olursak öğrenme eğiliminizdeki kararlılık noksanlığından yola çıkarak en basit yol olark önerim, raporunuzu önce pdf olarak export edip sonra worde çevirmeniz olacaktır. Aşağıda buna uygun örnek kod mevcut.
Private Sub Komut44_Click()

    If IsNull(Me.tc_goster) Then

        MsgBox "Hiç Bir Kayıt Seçilmedi"

    Else

        DoCmd.OutputTo acOutputReport, "Kisi_Bilgileri", acFormatPDF, CurrentProject.Path & "\frm_cikti.pdf", False ' Raporu önce PDF olarak kaydedin



        Dim WordApp As Object

        Set WordApp = CreateObject("Word.Application")

        WordApp.Visible = True ' Word uygulamasını ekrana getirir. False yaparsanız görünmez.



        Dim doc As Object

        Set doc = WordApp.Documents.Add(CurrentProject.Path & "\frm_cikti.pdf") ' Rapor pdfini Word'e dönüştürün



        ' Eğer resimler Word belgesine doğru bir şekilde eklenmediyse manuel olarak aşağıdaki gibi ekleyebilirsiniz.

        ' doc.Shapes.AddPicture "DosyaYolu\ResimDosyasi.jpg", LinkToFile:=False, SaveWithDocument:=True, Left:=100, Top:=100, Width:=50, Height:=50



        ' Kill CurrentProject.Path & "\frm_cikti.pdf" ' İsterseniz raporun pdfini silebilirsiniz

    End If

End Sub

Sizin uygulayacağınızı veya öğrenmek için çaba harcayacağınızı düşünmüyorum ancak, konudan fayda sağlamak isteyen diğer arkadaşlara bir başlangıç noktası kılavuzu olması açısından referanslardan MS Word Object Library eklemek sureti ile aşağıdaki gibi bir kod kullanarak, her bir denetim ve aktarmak istediğiniz içerik paragraf, yazı tipi, font, stil, çerçeve vs gibi formatlamalar uygulayarak export etmek için kullanılır.

Private Sub Komut44_Click()

    If IsNull(Me.tc_goster) Then

        MsgBox "Hiç Bir Kayıt Seçilmedi"

    Else

        Dim wrd As Word.Application

        Set wrd = New Word.Application

        

        ' wordü görmek istemiyorsanız aşağıdaki kodları kaldırabilirsiniz

        wrd.Visible = True

        wrd.Activate

        

        ' word dökümanı oluşturma

        wrd.Documents.Add

        With wrd.selection

            .ParagraphFormat.Alignment = wdAlignParagraphLeft

            .InlineShapes.AddPicture "c:\....\resiminizin adı"

            .ParagraphFormat.Alignment = wdAlignParagraphCenter

            .BoldRun

            .Font.Size = 14

            .TypeText Etiket33.Caption

            .BoldRun

            

            .TypeParagraph

            .ParagraphFormat.Alignment = wdAlignParagraphCenter

            .BoldRun

            .Font.Size = 11

            .TypeText Etiket34.Caption

            .BoldRun

            

            .TypeParagraph

            .ParagraphFormat.Alignment = wdAlignParagraphLeft

            .Font.Size = 11

            .TypeText Etiket2 & vbTab & [Adı ve Soyadı]

            

            .TypeParagraph

            .ParagraphFormat.Alignment = wdAlignParagraphLeft

            .Font.Size = 11

            .TypeText Etiket4 & vbTab & [T C Kimlik No]

        '

        '

        'diğer denetimler

        '

        '

        End With

        ActiveDocument.InlineShapes(1).Height = 50

        ActiveDocument.InlineShapes(1).Width = 100

        Set wrd = Nothing

    End If

End Sub

Merhabalar, emeğinize sağlık belki dediğniz için çok aktif olarak çaba harcamıyorum ama sizler sayesinde elimden geleni yapmaya çaışıyorum. Unvanım istatistikçi çok fazla Excel haşır neşir olmaktayım ama bazen biriminde arkadaşlara kolaylık olsun diye Access el atıyorum.

Sizin yollamış olduğunuz kodu accese yerleştirdiğimde pdf kısmı atıyor (Çizgiler halinde)  ama word olmuyor. [img][Resim: do.php?img=16549][/img]

[img][Resim: do.php?img=16551][/img]
.rar frm_cikti.rar (Dosya Boyutu: 401,37 KB | İndirme Sayısı: 0)
Son Düzenleme: 28/02/2024, 09:23, Düzenleyen: cdenktas.
Cevapla
#4
atoykan
Uzman
atoykan
Bul
Uzman
Adı Soyadı:
Konum: İstanbul
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Bugün,09:09
Yorumları: 1.276
Konuları: 3
Kayıt Tarihi: 23/02/2020
Teşekkür Puanı: 162
Mesleğiniz: CIO, Yazılım
Kod denediğimde bende sorunsuz çalışıyor. Word uygulamanızın tamamen kapalı olduğundan emin olun öncelikle. Uygulamanız özelinde Runtime Error: 5132 genelde wordünüz ve pdf uygulamanız uyumsuz ise ortaya çıkabilir. Kodun hata veren kısmında Documents.Add yerine Documents.Open kullanılabilir. İlgili kısmı aşağıdaki şekilde revize edip deneyin.
Set doc = WordApp.Documents.Open(CurrentProject.Path & "\frm_cikti.pdf") ' Rapor pdfini Word'e dönüştürün
End If den sonrasına da 
WordApp.Quit

Set WordApp = Nothing
kodunu ekleyin.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da