Yazdır, text dosyasına kaydet

[istanbulcahan]

İşyerimde kontrol çizelgesi var. Onu 39 ilçeden gelenlerden bordro evrakları teslim alacağız her defasında kontrol çizelgesini doldurmamız gerekiyor.
Bilgilerin doldurulduktan sonra yazdır butonu (yazdır butonun kodları var çalışmadı) tıklayıp, yazdırıp, Adı ve soyadı-İlçe, branşı, salon adı, müsabaka başlama bitiş tarihleri, teslim tarihini text dosyasına otomatikman kaydetmesini istiyorum nasıl yapılır.

Sub Yazdır()
ActiveSheet.PrintOut
End Sub
Private Sub yaz_Click()
On Error Resume Next
soru = MsgBox("Sayfa Yazdırılacak, Önizleme Yapmak İstiyor musunuz?", vbYesNo, "Önizleme")
If soru = vbYes Then
DataAc.Hide
Sheets("Print").PrintPreview
DataAc.Show
Range("A1").Select
Else
Sheets("Print").PrintOut
End If
End Sub