[VB.NET] محتاج طريقة طباعه Listviwe على ورقة الطابعات الصغيرة اسمها POS

[VB.NET] محتاج طريقة طباعه Listviwe على ورقة الطابعات الصغيرة اسمها POS - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] محتاج طريقة طباعه Listviwe على ورقة الطابعات الصغيرة اسمها POS (/showthread.php?tid=45950)

محتاج طريقة طباعه Listviwe على ورقة الطابعات الصغيرة اسمها POS - mac9 - 23-04-23

السلام عليكم
محتاح كود او طريقة اطبع فيها محتويات ( لست فيو )

على ورقة هذه الطابعه
قياس الورقة
183
273

مشكورين مقدمة على كل شي تقدمو والله يجزيكم خير ما تعملون

RE: محتاج طريقة طباعه Listviwe على ورقة الطابعات الصغيرة اسمها POS - Taha Okla - 23-04-23

وعليكم السلام ورحمة الله وبركاته

نفس الطريقة التي تعمل بها تقاريرك سواء بـ Report Viewer أو كريستال ريبورت
أو أي طريقة تعتمدها

أعمل التقارير مناسبة لعرض منتجات هذه الطابعة (تقليل عرض الصفحة - يعني أهتم بالعرض فقط)
وبالتجريب ستصل لنتيجة مناسبة

هناك دورات على اليوتيوب عن الطباعة بإستخدام أي طريقة تعتمدها
بكل اللغات أبحث وستجد دورات موسعة..
- - - - -
بمجرد اختيار اسم الطابعة، ستقوم هي بتحدد نوع الورق وطريقة الطباعة الطولية التي تراها بتقارير وفواتير الكاشير..

RE: محتاج طريقة طباعه Listviwe على ورقة الطابعات الصغيرة اسمها POS - mac9 - 23-04-23

(23-04-23, 03:58 PM)Taha Okla كتب : وعليكم السلام ورحمة الله وبركاته

نفس الطريقة التي تعمل بها تقاريرك سواء بـ Report Viewer أو كريستال ريبورت
أو أي طريقة تعتمدها

أعمل التقارير مناسبة لعرض منتجات هذه الطابعة (تقليل عرض الصفحة - يعني أهتم بالعرض فقط)
وبالتجريب ستصل لنتيجة مناسبة

هناك دورات على اليوتيوب عن الطباعة بإستخدام أي طريقة تعتمدها
بكل اللغات أبحث وستجد دورات موسعة..
- - - - -
بمجرد اختيار اسم الطابعة، ستقوم هي بتحدد نوع الورق وطريقة الطباعة الطولية التي تراها بتقارير وفواتير الكاشير..

صراحتا ماريد اعملها ريبورت فيو او كرستال
وجدت شرح لطباعه بنل ومحتواياته لكن ممكن يكون هناك طريقة لطباعه اللست فيو
طبعا سألتكم لانكم مبدعون صراحتاً

RE: محتاج طريقة طباعه Listviwe على ورقة الطابعات الصغيرة اسمها POS - mac9 - 24-04-23

لا يوجد حل ممكل حذف المنشور

RE: محتاج طريقة طباعه Listviwe على ورقة الطابعات الصغيرة اسمها POS - lar - 24-04-23

(23-04-23, 06:09 PM)mac9 كتب :
(23-04-23, 03:58 PM)Taha Okla كتب : وعليكم السلام ورحمة الله وبركاته

نفس الطريقة التي تعمل بها تقاريرك سواء بـ Report Viewer أو كريستال ريبورت
أو أي طريقة تعتمدها

أعمل التقارير مناسبة لعرض منتجات هذه الطابعة (تقليل عرض الصفحة - يعني أهتم بالعرض فقط)
وبالتجريب ستصل لنتيجة مناسبة

هناك دورات على اليوتيوب عن الطباعة بإستخدام أي طريقة تعتمدها
بكل اللغات أبحث وستجد دورات موسعة..
- - - - -
بمجرد اختيار اسم الطابعة، ستقوم هي بتحدد نوع الورق وطريقة الطباعة الطولية التي تراها بتقارير وفواتير الكاشير..

صراحتا ماريد اعملها ريبورت فيو او كرستال
وجدت شرح لطباعه بنل ومحتواياته لكن ممكن يكون هناك طريقة لطباعه اللست فيو
طبعا سألتكم لانكم مبدعون صراحتاً

ممكن شرح لطباعه بنل ومحتواياته اللي وجدتها Heart

RE: محتاج طريقة طباعه Listviwe على ورقة الطابعات الصغيرة اسمها POS - mac9 - 25-04-23

(24-04-23, 09:40 PM)lar كتب : ممكن شرح لطباعه بنل ومحتواياته اللي وجدتها

https://youtu.be/ykVte97Ey5s

RE: محتاج طريقة طباعه Listviwe على ورقة الطابعات الصغيرة اسمها POS - Taha Okla - 26-04-23

إذا كان المحتوى الذي تريد طباعته عبارة عن محتوى نصي
فالكود التالي يفي بالغرض ... الكود على ListBox ,وليس ListView

أفتح مشروع جديد :
1 - قم باستدعاء المكتبة :

كود :

Imports System.Drawing.Printing

الكود هو :

كود :

Dim Line1 As Integer = -1

Dim PPD1 As New PrintPreviewDialog

Dim PD1 As New PrintDocument()

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

    PPD1.Document = PD1

    AddHandler PD1.PrintPage,

        Sub(sender2 As Object, e2 As Printing.PrintPageEventArgs)

            e2.HasMorePages = False

            Dim f As Font = New Font(ListBox1.Font.Name, 12, FontStyle.Bold)

            Dim currentHigh1 As Integer = 0

            For i = Line1 To ListBox1.Items.Count - 1

                e2.Graphics.DrawString(ListBox1.Items(i), f, Brushes.Blue, 10, currentHigh1 + 50)

                Line1 += 1

                currentHigh1 += f.Height

                If e2.PageBounds.Height <= currentHigh1 + 100 Then

                    If Line1 - 1 <> ListBox1.Items.Count - 1 Then

                        e2.HasMorePages = True

                        Exit For

                    End If

                End If

            Next

        End Sub

End Sub

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

    If ListBox1.Items.Count <= 0 Then Exit Sub

    Line1 = 0

    If PPD1.ShowDialog() = DialogResult.OK Then

        PD1.Print()

    End If

End Sub

RE: محتاج طريقة طباعه Listviwe على ورقة الطابعات الصغيرة اسمها POS - aljzazy - 26-04-23

PHP كود :

Private Sub btnPrint_Click(sender As Object, e As EventArgs) Handles btnPrint.Click
    ' Create a new PrintDocument object
    Dim pd As New PrintDocument()

    ' Set the PrintPage event handler for the document
    AddHandler pd.PrintPage, AddressOf PrintListView

    ' Print the document
    pd.Print()
End Sub

Private Sub PrintListView(ByVal sender As Object, ByVal e As PrintPageEventArgs)
    ' Set the font and margins for the document
    Dim font As New Font("Arial", 12)
    Dim margin As Integer = e.MarginBounds.Top
    Dim xPos As Integer = e.MarginBounds.Left

    ' Loop through the items in the ListView control
    For Each item As ListViewItem In ListView1.Items
        ' Print each item on a new line
        e.Graphics.DrawString(item.Text, font, Brushes.Black, xPos, margin)
        margin += font.Height
    Next
End Sub 