طباعة الباركود - نسخة قابلة للطباعة

كود :
Imports MySql.Data.MySqlClient

Imports System.IO

Imports System.Drawing.Printing

Public Class add_barcode

    Public ToDo As String = "add"

    Public id As Integer



    Private Sub Butcaret_Click(sender As Object, e As EventArgs) Handles Butcaret.Click

        Dim Generator As New MessagingToolkit.Barcode.BarcodeEncoder

        Generator.IncludeLabel = True

        Generator.CustomLabel = Textcod.Text

        Try

            PictureBox1.Image = New Bitmap(Generator.Encode(MessagingToolkit.Barcode.BarcodeFormat.Code11, Textcod.Text))

        Catch ex As Exception



        End Try

    End Sub

    Sub claertext()

        Textcod.Clear()

        Textcat.Clear()

        Textnewcod.Clear()

        Textnewcod.Clear()

        Textnpro.Clear()





    End Sub

    Private Sub Butadd_Click(sender As Object, e As EventArgs) Handles Butadd.Click

        If Textcat.Text = String.Empty Or Textcod.Text = String.Empty Or Textnewcod.Text = String.Empty Or Textnpro.Text = String.Empty Then

            MsgBox("جميع الحقول  مطلوبة يا  صديقي  العزيز", MsgBoxStyle.Information, "تحذير")

            Exit Sub



        End If



        Try



            Dim query As String

            If ToDo = "add" Then

                query = "insert into parcode (name_pro,dic_pro,newcode,pacrcode_ro,imgparcod) values(@name_pro,@dic_pro,@newcode,@pacrcode_ro,@imgparcod) "

            Else

                query = "update parcode set name_pro=@name_pro,dic_pro=@dic_pro,newcode=@newcode,pacrcode_ro=@pacrcode_ro,imgparcod=@imgparcod where id= " & id



            End If

            Dim filesize As UInt32

            Dim mstrem As New System.IO.MemoryStream



            PictureBox1.Image.Save(mstrem, System.Drawing.Imaging.ImageFormat.Jpeg)

            Dim arrimage() As Byte = mstrem.GetBuffer

            filesize = mstrem.Length

            mstrem.Close()



            cmd = New MySqlCommand(query, con)

            cmd.Parameters.Add("@name_pro", MySqlDbType.VarChar, 200).Value = Textnpro.Text

            cmd.Parameters.Add("@dic_pro", MySqlDbType.VarChar, 200).Value = Textcod.Text

            cmd.Parameters.Add("@newcode", MySqlDbType.VarChar, 200).Value = Textnewcod.Text

            cmd.Parameters.Add("@pacrcode_ro", MySqlDbType.VarChar, 200).Value = Textcat.Text

            cmd.Parameters.Add("@imgparcod", MySqlDbType.Blob).Value = arrimage



            con.Open()





            cmd.ExecuteNonQuery()

            claertext()

            MsgBox("تم حفظ البيانات بنجاح شكرا لكم", MsgBoxStyle.Information, "الاضافة")



        Catch ex As Exception

            MsgBox(ex.Message)



        Finally



            con.Close()



        End Try

    End Sub



    Private Sub add_barcode_Load(sender As Object, e As EventArgs) Handles MyBase.Load



    End Sub



    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim SD As New SaveFileDialog

        SD.Filter = "PNG File|*.png"

        If SD.ShowDialog() = DialogResult.OK Then

            Try

                PictureBox1.Image.Save(SD.FileName, Imaging.ImageFormat.Png)

            Catch ex As Exception



            End Try

        End If

    End Sub



    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

        print_bar.PictureBox1.ImageLocation = PictureBox1.ImageLocation

    End Sub

    Friend WithEvents prntDoc As New PrintDocument()

    Private Print_Image As Image

    Declare Auto Function BitBlt Lib "GDI32.DLL" ( _

    ByVal hdcDest As IntPtr, _

    ByVal nXDest As Integer, _

    ByVal nYDest As Integer, _

    ByVal nWidth As Integer, _

    ByVal nHeight As Integer, _

    ByVal hdcSrc As IntPtr, _

    ByVal nXSrc As Integer, _

    ByVal nYSrc As Integer, _

    ByVal dwRop As Int32) As Boolean

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        'print picture   

        Dim prnDialog As New PrintDialog()

        'Get a Graphics Object from the form   

        Dim FormG As Graphics = Me.PictureBox1.CreateGraphics

        'Create a bitmap from that graphics   

        Dim i As New Bitmap(Me.Width, Me.Height, FormG)

        'Create a Graphics object in memory from that bitmap   

        Dim memG As Graphics = Graphics.FromImage(i)

        'get the IntPtr's of the graphics   

        Dim HDC1 As IntPtr = FormG.GetHdc

        Dim HDC2 As IntPtr = memG.GetHdc

        'get the picture   

        BitBlt(HDC2, 0, 0, Me.PictureBox1.Width, Me.PictureBox1.Height, HDC1, 0, 0, 13369376)

        'Clone the bitmap so we can dispose this one   

        Me.Print_Image = i.Clone()

        'Clean Up   

        FormG.ReleaseHdc(HDC1)

        memG.ReleaseHdc(HDC2)

        FormG.Dispose()

        memG.Dispose()

        i.Dispose()



        prnDialog.Document = prntDoc



        ' Optional Dialog:   

        Dim r As DialogResult = prnDialog.ShowDialog

        If r = DialogResult.OK Then

            prntDoc.Print()

        End If

    End Sub

    Private Sub prntDoc_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles prntDoc.PrintPage

        e.Graphics.DrawImage(Print_Image, 0, 0)

    End Sub

End Class