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

  • Genel Tartışma

  • 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.

    6 Nisan 2020 Pazartesi 08:40