doğrudan veri yazdırma kodu

[kelkitli]

Değerli Dostlar Selamlar,
Aşağıdaki kodlarla doğrudan nokta vuruşlu yazıcıya veri gönderiyorum.
33 satıra ayarlı
" & WorksheetFunction.CountIf(Sayfa5.Columns(4), Date) & ""
bu şekilde bu günkü tarihli kayıtları saydırmak istiyorum ama "0" yazıyor. Neden saymıyor. Nasıl olması gerekli?

Sub yazdır()
On Error Resume Next
Open "lpt1" For Output As #1
Print #1, ""
Print #1, ""
Print #1, " "
Print #1, ""
Print #1, ""
Print #1, ""
Print #1, ""
Print #1, ""
Print #1, " " & UserForm1.TextBox9.Text & " TL." & " KDV DAHİLDİR."
Print #1, ""
Print #1, " " & UserForm1.TextBox16.Text & " "
Print #1, ""
Print #1, ""
Print #1, " " & UserForm1.ComboBox1.Text & " " & UserForm1.TextBox1.Text & ""
Print #1, ""
Print #1, " ÖHO - ÖTA " & UserForm1.TextBox3.Text & " TAM " & UserForm1.TextBox4.Text & " İNDİRİMLİ BİLET BASIM BEDELİ"
Print #1, ""
Print #1, ""
Print #1, ""
Print #1, " " & Date & " " & Time & " " & WorksheetFunction.CountIf(Sayfa5.Columns(4), UserForm1.TextBox17.Text) & ""
Print #1, ""
Print #1, ""
Print #1, ""
Print #1, ""
Print #1, ""
Print #1, ""
Print #1, " " & WebBrowser1.Document.all.txtDuzenleyen.Text & ""
Print #1, ""
Print #1, ""
Print #1, ""
Print #1, ""
Print #1, ""
Print #1, ""
Close #1

End Sub