Vb.net 2008 Win Ce yüklü El terminali yazıcı

VB.NET için microsoft reportviewer ve chrystal reports gibi araçlar var. Ben Reportviewer kullanıyorum. Ama bunlar Windows CE de işe yararmı bilmiyorum.

bu kodlar ben baska bi arkdasa yaptırdım.  port acıyor ve yazdırmak ıstedıgın dosyayı porta gonderıyor
zaten eltermınalları artık bultut uzerınden yazdırıyor. yanı bultut com olarak goruyor yazıcıyı bu kod ilede port acıp dosyayı porta gonderıyorsun

NETCFv2.wce5.armv4i   termınalı yuklemelısın exe calısmaz ise yuklersın.

Imports System.IO
Public Class Form1

    Private Sub btnDosyaSec_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDosyaSec.Click
        If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
            txtDosyaAdi.Text = ofd.FileName
        End If
    End Sub

    Function KarakterDonustur(ByVal str As String) As String
        Dim find As String = "ĞğÜüŞşİıÖöÇç'"
        Dim yerine As String = "GgUuSsIiOoCc "
        Dim karakter As String = ""
        Dim i As Integer
        If Not str Is Nothing Then
            For i = 0 To find.Length - 1
                karakter = find.Substring(i, 1)
                str = str.Replace(karakter, yerine.Substring(i, 1))
            Next
        End If

        Return str
    End Function

    Private Sub btnYazdir_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnYazdir.Click
        Dim dosyaAdi As String = txtDosyaAdi.Text.Trim
        If Not File.Exists(dosyaAdi) Then
            MsgBox("Dosya Bulunamadı")
            Exit Sub
        Else
            Try
                Cursor.Current = Cursors.WaitCursor
                SerialPort1.BaudRate = 9600
                SerialPort1.WriteTimeout = 600
                SerialPort1.PortName = txtPort.Text
                SerialPort1.Open()
            Catch ex As Exception
                MsgBox("Seri Port Açılamadı" + vbCrLf + "Port Ayarlarını Kontrol Ediniz")
                Cursor.Current = Cursors.Default
                Exit Sub
            End Try

            Dim metin As String
            Dim fs As New FileStream(dosyaAdi, FileMode.Open, FileAccess.Read)
            Dim sr As New StreamReader(fs, System.Text.Encoding.GetEncoding(1254))
            sr.BaseStream.Seek(0, SeekOrigin.Begin)
            metin = sr.ReadToEnd
            sr.Close()

            'SerialPort1.WriteLine(Chr(156))
            'SerialPort1.WriteLine(Chr(156))
            'SerialPort1.WriteLine(Chr(156))
            'SerialPort1.WriteLine(Chr(156))
            'SerialPort1.WriteLine(Chr(156))
            'SerialPort1.WriteLine(Chr(156))
            SerialPort1.Write(metin)
            MsgBox("Yazdırma Tamamlandı")
            Cursor.Current = Cursors.Default
            SerialPort1.Close()
        End If

    End Sub
End Class

ben webservice le çözmüştüm yazdırma olayını.
foxda yazılmış masaüstü uygulamam var, mobile projesi c# yazdım, c# yazılmış web servis,
mobile uygulaması web servise gönderiyor, web servis fox datasına insert ettikten sonra bilgisayara bağlı fiş yazıcısına fiş döküyor.