Excel içerisinden word dosyası yazdırma

[MrSeker]

Merhabalar Excel çalışma kitabımın içerisinde sheetler mevcut bu sheetleri aşağıda kodu olan buton ile yazdırıyorum. Buraya eklemek istediğim yazdıra bastığımda çalışma kitabı dışında bir dizinde olan word dosyasını da yazdırması bu konuda yardımcı olabailecek arkadaşlara teşekkür ederim.

Private Sub CommandButton1_Click()

    ActiveWorkbook.Save
    Sheets("BİLGİ FORMU").PrintOut
    Sheets("SÖZLEŞME").PrintOut
    Sheets("AİLE BİLDİRİMİ").PrintOut
    Sheets("TAAHÜTNAME").PrintOut
    Sheets("MESAİ ONAY BELGESİ").PrintOut
    
    Dim ara1(), i As Byte, deg1 As String, a As Byte

    ara1 = Array("MERKEZ", "MUHASEBE", "İNŞAAT", "MERKEZ - ŞOFÖR") 'büyük harf yazın
    
    a = 0
    For i = 0 To UBound(ara1)
        deg1 = UCase(Replace(Replace(Range("C7"), "ı", "I"), "i", "İ"))
        If deg1 = ara1(i) Then
            a = a + 1
            Exit For
        End If
    Next i
    
    If a = 0 Then Sheets("ŞUBE BİLGİ").PrintOut
    
    ara2 = Array("MERKEZ", "ŞOFÖR") 'büyük harf yazın
    
    If UCase(Replace(Replace(Range("C7"), "ı", "I"), "i", "İ")) _
        Like "*" & "MERKEZ - ŞOFÖR" & "*" Then
        Sheets("ŞÖFÖR").PrintOut
    End If

    '--------------------------------------------------------
    
End Sub


Private Sub CommandButton8_Click()
    Call RDB_Sheet_Level_Names_To_PDF_And_Create_Mail
End Sub

 

[PLİNT]

Merhaba
Kodlarınızda bulunan işaretli bölüme aşağıdaki kodu ekleyip adresi düzeltiniz.

Dim s, y
  Set s = CreateObject("Word.Application")
  Set y = s.Documents.Open("[COLOR="Red"]D:\Belge.docx[/COLOR]")
  s.Visible = True
  y.PrintOut
  s.Quit

 

[MrSeker]

Merhabalar;

Öncelikle çok teşekkür ederim yukarıda verdiğim kodda tam olarak nereye eklemem lazım acaba ?

 

[expenty]

merhaba benim çalışmamda excelde bulunan word belgelerinin köprüsünü açmadan yazdır butunona basıp direk yazdırmak istiyorum makro vba deneyimlerim tutmadı bir türlü yardımcı olurmusnuz belgeyi buraya atsam
resim yada dosyayı atamıyorum buraya nasıl olacak bilmiyorum umarım yazdıgımdan anlatabilmişimdir