Yazdır komutu arasına komut yazılabilir mi

[Altay3555]

Private Sub CommandButton4_Click() 'Yazdır KomutuUnload Me
sor = MsgBox(" Yazmadan Önce bir Bakalım... ", vbYesNoCancel)
If sor = vbYes Then
Application.ScreenUpdating = False
Worksheets("Onam F").PrintPreview
Application.ScreenUpdating = True
UserForm1.Show 0
sor2 = MsgBox(" Beğendiyseniz Yazdırayım mı? ", vbYesNo)
If sor2 = vbYes Then
Application.ScreenUpdating = False
Worksheets("Onam F").PrintOut
If sor2 = vbNo Then
UserForm1.Show
End If
End If
End If
If sor = vbNo Then
Application.ScreenUpdating = False
Worksheets("Onam F").PrintOut
UserForm1.Show
End If
If sor = vbCancel Then
UserForm1.Show
End If
End Sub


Yukarıdaki kodlar önizleme ve yazdır komutlarım,eklemek istediğim sadece listbox'da seçtiğim bir kayıta ait sayfa 2 de bulunan raporun
C3 de Adı Soyadı (Text 2 de Adı,Text 3 de Soyadı varmış)
C4 de Doğum Tarihi (Text 4)
C5 de Kayıt No (Text 15)
C6 da TC No (Text 1)

kısmına verileri alıp yazdırıp yazdıramayacağımı öğrenmek istiyorum.