[mac9]

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

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

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

[Taha Okla]

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

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

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

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

[mac9]

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

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

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

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

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

[mac9]

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

[lar]

(23-04-23, 06:09 PM)mac9 كتب :

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

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

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

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

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

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

[mac9]

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

https://youtu.be/ykVte97Ey5s

---

https://youtu.be/ykVte97Ey5s

[Taha Okla]

إذا  كان المحتوى الذي تريد طباعته عبارة عن محتوى نصي
فالكود التالي يفي بالغرض ... الكود على 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

[aljzazy]

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