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.
Kod:
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