Private Sub CommandButton5_Click()
With Sheets("belge")
.Range("E9") = Me.TextBox3
.Range("E10") = Me.TextBox4
.Range("E11") = Me.TextBox2
.Range("E12") = Me.TextBox5
.Range("E13") = Me.ComboBox8
.Range("E14") = Me.ComboBox4
.Range("E15") = Me.ComboBox6
.Range("E16") = Me.TextBox1
.Range("E18") = Me.ComboBox2
 
Range("A1:I41").ExportAsFixedFormat Type:=xlTypePDF, openafterpublish:=True
End With

Private Sub Command0_Click()
Dim objXl As Object
Set objXl = CreateObject("Excel.Application")
With objXl
    .Workbooks.Open ("D:\Cubuk.xlsx")
              With objXl.Sheets("belge")
                    .Range("E9") = Me.TextBox1
                    .Range("E10") = Me.TextBox2
                    .Range("E11") = Me.TextBox3
                    .Range("E12") = Me.TextBox4
                    .Range("A1:I41").ExportAsfixedFormat Type:=xlTypeXPS, openafterpublish:=True
            End With
    .Quit
End With
End Sub

Private Sub CommandButton3_Click()
    Dim xl As New Excel.Application
    Dim xlwkbk As New Excel.Workbook
    Set xl = Excel.Application
    Set xlwkbk = xl.Workbooks.Open(Application.ActiveWorkbook.Path & "\rapor.xlsx")
    xl.Visible = True
    With xl.Sheets("Sayfa1")
        .Select
         .Range("D4") = Me.TextBox1
         .Range("D6") = Me.ComboBox1
         .Range("D8") = Me.TextBox2
         .Range("D10") = Me.TextBox3
         .Range("D12") = Me.TextBox4
    End With
    xlwkbk.Save
    xlwkbk.Close
    Set xl = Nothing
    Set xlwkbk = Nothing
End Sub