Userformdan Word yazdırma

[tukayf]

Merhabalar değerli hocalarım aşağıdaki kodlar ile userform üzerinden Word şablonuna veri gönderip kaydediyorum. Ancak yapmak istediğim direk yazdırma. Kodlarda ne gibi düzenleme yapmam lazım yardımcı olabilirseniz çok sevinirim.
08.05.2023

 On Error GoTo ErrHandler
    Dim wd As Word.Application
    Dim wdDoc As Word.Document
    Dim wrdPic As Word.InlineShape
    Dim ImgName As String
    Dim xlSht As Worksheet
    On Error Resume Next
    Set wd = New Word.Application
    With wd
        .Visible = False
        .ScreenUpdating = False
    End With
    Set wdDoc = wd.Documents.Add(ThisWorkbook.Path & "\Gunici.dotx")
     With wdDoc
        .Bookmarks("ad").Range.Text = Me.ad.Text
        .Bookmarks("rutbe").Range.Text = Me.rutbe.Text
        .Bookmarks("sicil").Range.Text = Me.sicil.Text
        .Bookmarks("Tel_No").Range.Text = Me.Tel_No.Text
        .Bookmarks("Tarih").Range.Text = Me.tarih.Text
        .Bookmarks("Saat").Range.Text = Me.saat.Text
        .Bookmarks("mazeret").Range.Text = Me.mazeret.Text
        .Bookmarks("dilekcetarihi").Range.Text = Me.dilekcetarihi.Text

                    .SaveAs2 Filename:=ThisWorkbook.Path & "\dilekçe\" & "\" & Me.sicil.Value & " " & Me.ad.Value & ".docx", FileFormat:=wdFormatXMLDocument
        .Close
    End With
    With wd
        .ScreenUpdating = True
        .Quit
    End With
ErrExit:
    Set wd = Nothing
    Set wdDoc = Nothing
    Exit Sub
ErrHandler:
    wd.Quit
    Set wd = Nothing
    Set wdDoc = Nothing
Set wrdPic = Nothing
End Sub

 

[tukayf]

Çözümü buldum. Yer imlerinin altındaki satıra .Printout kodunu eklediğimde yazdırıyor.