Vb WritePrinter olayında hata alıyorum acil yardım!!!!!

Question

Sub Send2Termal(ByVal kod As String)
        Try
            Dim lhPrinter As New System.IntPtr()
            Dim di As New DocInfo()
            Dim pcwritten As Integer = 0
            Dim st1 As String
            di.pDocName = "test"
            di.pDataType = Nothing
            di.pOutputFile = Nothing
            Form1.OpenPrinter("Eltron P310 Card Printer", lhPrinter, 0)
            Form1.StartDocPrinter(lhPrinter, 1, di)
            Form1.StartPagePrinter(lhPrinter)
            Dim ilk As char
            ilk = Convert.toChar(13)
            Dim son As char
            son =Convert.toChar(27)
            st1 = son.ToString() + kod + ilk.ToString()** bu kısımlarda
            Form1.WritePrinter(lhPrinter, st1, st1.Length, pcwritten)** hata veriyor
            Form1.EndPagePrinter(lhPrinter)
            Form1.EndDocPrinter(lhPrinter)
            Form1.ClosePrinter(lhPrinter)
            MsgBox("yaptım")
        Catch ex As Exception
            MessageBox.Show("HATA OLUSTU. \n\r" + ex.ToString())
        End Try
    End Sub

* ile gösterdiğim kısımlarda ha veriyor lütfen yardımcı olurmusunuz.