تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكلة في طباعة Tabpageg لا يطبعه كاملا ،، مهم يا اخوان
#1
[COLOR="#696969"]السلام عليكم ورحمة الله وبركاته [/COLOR]
[COLOR="#008080"]
انشاء الله مشكلتي واضحة من العنوان ،،، وهي مشكلة في طباعة Tabpagegh لا يطبعه كاملا

انا عندي الكود لكن لا يطبع الصفحة كاملة هذا الكود :

كود :
'  ابتداء اوامر الطباعة للتفصيل
    Public Sub PrintDocument(ByVal obj As Object, ByVal ev As Printing.PrintPageEventArgs)
        Dim Img As New Bitmap(TabPage4.Width, TabPage4.Height)
        TabPage4.DrawToBitmap(Img, New Rectangle(1, 1, TabPage4.Width, TabPage4.Height))
        ev.Graphics.DrawImage(Img, New Point(0, 0))
    End Sub

كود :
' زر امرالطباعة
            Dim Print As New PrintPreviewDialog
            Print.Document = New Printing.PrintDocument
            Print.Document.DefaultPageSettings.Landscape = True
            AddHandler Print.Document.PrintPage, AddressOf PrintDocument
            Print.ShowDialog()


وهذي صورة المشكلة
http://vb4arb.com/vb/uploaded/521_01370467329.png

اتمنى تعدلولي على الكود او كود اخر وشكرا ،، [/COLOR].
الرد }}}}
تم الشكر بواسطة:
#2
هل من حل جزاكم الله خير
الرد }}}}
تم الشكر بواسطة:
#3

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






واضح من الصورة أنك صممت الصفحة على أساس مقاس A4 ولكنك عند الطباعة طبعت على ورق مقاس Letter وهناك فرق في الحجم فمقاس A4 أصغر في العرض وأطول في الطول عن مقاس Letter لهذا ضهر لك جزء مفقود








السلام عليكم ورحمة الله وبركاته
 
 
@@@ سامحوني، منقطع نهائياً @@@

 
الرد }}}}
تم الشكر بواسطة:
#4
@@أبورائد@@ كتب :
السلام عليكم ورحمة الله وبركاته






واضح من الصورة أنك صممت الصفحة على أساس مقاس a4 ولكنك عند الطباعة طبعت على ورق مقاس letter وهناك فرق في الحجم فمقاس a4 أصغر في العرض وأطول في الطول عن مقاس letter لهذا ضهر لك جزء مفقود








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


اهلا بك اخي ،، مع احترامي لك بس الي استخدمه a4
الرد }}}}
تم الشكر بواسطة:
#5

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





جرب هذا التعديل


PHP كود :
'' زر امرالطباعة
Dim doc 
As New Printing.PrintDocument
AddHandler doc
.PrintPageAddressOf PrintDocument

Dim PrinterSettings1 
As New Printing.PrinterSettings
PrinterSettings1
.DefaultPageSettings.PaperSize = New System.Drawing.Printing.PaperSize("A4"826.91169.4)
''PrinterSettings1.DefaultPageSettings.PaperSize = New System.Drawing.Printing.PaperSize("Letter"8501100)

doc.PrinterSettings PrinterSettings1
doc
.DefaultPageSettings.Landscape True

Dim 
Print As New PrintPreviewDialog
Print.Document doc
Print.ShowDialog() 





السلام عليكم ورحمة الله وبركاته
 
 
@@@ سامحوني، منقطع نهائياً @@@

 
الرد }}}}
تم الشكر بواسطة:
#6
@@أبورائد@@ كتب :
السلام عليكم ورحمة الله وبركاته





جرب هذا التعديل


PHP كود :
'' زر امرالطباعة
Dim doc 
As New Printing.PrintDocument
AddHandler doc
.PrintPageAddressOf PrintDocument

Dim PrinterSettings1 
As New Printing.PrinterSettings
PrinterSettings1
.DefaultPageSettings.PaperSize = New System.Drawing.Printing.PaperSize("A4"826.91169.4)
''PrinterSettings1.DefaultPageSettings.PaperSize = New System.Drawing.Printing.PaperSize("Letter"8501100)

doc.PrinterSettings PrinterSettings1
doc
.DefaultPageSettings.Landscape True

Dim 
Print As New PrintPreviewDialog
Print.Document doc
Print.ShowDialog() 





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


اخي عند المعاينة توسع شوي ولمن رفعت عدد رقم العرض ضبط المعاينة لكن عند طباعتي لم يفعل اي شئ ,, هل اعدل على الكود التعريفي للطباعة وهو : لاني عدلت الامر فقط
كود :
'  ابتداء اوامر الطباعة للتفصيل
    Public Sub PrintDocument(ByVal obj As Object, ByVal ev As Printing.PrintPageEventArgs)
        Dim Img As New Bitmap(TabPage4.Width, TabPage4.Height)
        TabPage4.DrawToBitmap(Img, New Rectangle(1, 1, TabPage4.Width, TabPage4.Height))
        ev.Graphics.DrawImage(Img, New Point(0, 0))
    End Sub
الرد }}}}
تم الشكر بواسطة:
#7

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





جرب هذا التعديل

PHP كود :
''  ابتداء اوامر الطباعة للتفصيل
Public Sub PrintDocument(ByVal obj As ObjectByVal e As Printing.PrintPageEventArgs)
Dim Img As New Bitmap(TabPage4.WidthTabPage4.Height)
TabPage4.DrawToBitmap(Img, New Rectangle(00TabPage4.WidthTabPage4.Height))
e.Graphics.DrawImage(Img, New Rectangle(e.MarginBounds.Lefte.MarginBounds.Top_
                                                e
.PageBounds.Width e.MarginBounds.Left - (e.PageBounds.Width e.MarginBounds.Right), _
                                                e
.PageBounds.Height e.MarginBounds.Top - (e.PageBounds.Height e.MarginBounds.Bottom)))
End Sub 





السلام عليكم ورحمة الله وبركاته
 
 
@@@ سامحوني، منقطع نهائياً @@@

 
الرد }}}}
تم الشكر بواسطة:
#8
@@أبورائد@@ كتب :
السلام عليكم ورحمة الله وبركاته





جرب هذا التعديل

PHP كود :
''  ابتداء اوامر الطباعة للتفصيل
Public Sub PrintDocument(ByVal obj As ObjectByVal e As Printing.PrintPageEventArgs)
Dim Img As New Bitmap(TabPage4.WidthTabPage4.Height)
TabPage4.DrawToBitmap(Img, New Rectangle(00TabPage4.WidthTabPage4.Height))
e.Graphics.DrawImage(Img, New Rectangle(e.MarginBounds.Lefte.MarginBounds.Top_
                                                e
.PageBounds.Width e.MarginBounds.Left - (e.PageBounds.Width e.MarginBounds.Right), _
                                                e
.PageBounds.Height e.MarginBounds.Top - (e.PageBounds.Height e.MarginBounds.Bottom)))
End Sub 





السلام عليكم ورحمة الله وبركاته
[COLOR="#2F4F4F"]
لم تنجح ..هذه صورة المشكلة التي ظهرتلي ..
http://vb4arb.com/vb/uploaded/521_01370504755.png

[/COLOR]
الرد }}}}
تم الشكر بواسطة:
#9

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






لابد من أن تكون TabPage4 ظاهرة قبل الطباعة





السلام عليكم ورحمة الله وبركاته
 
 
@@@ سامحوني، منقطع نهائياً @@@

 
الرد }}}}
تم الشكر بواسطة:
#10
@@أبورائد@@ كتب :
السلام عليكم ورحمة الله وبركاته






لابد من أن تكون TabPage4 ظاهرة قبل الطباعة





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

نعم ظاهرة قبل الطباعة ,,, الاول في الكود انا كنت احاول احل مشكلتي بدون فتح موضوع وف كود مسحته وسارت نفس المشكلة ,, يعني ناقص كود
مثل هذا Dim doc As New Printing.PrintDocument اذا مسحته تظهر نفس المشكلة
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  حل مشكلة الكود الاتي - سهل- CLARO 3 57 منذ 10 ساعة مضت
آخر رد: ali.alfoly
  كيف يتم حل مشكلة ظهور رسالة عند الضغط علي هيد داتا جريد فيو السيد الجوهري 4 48 30-11-16, 10:08 PM
آخر رد: السيد الجوهري
  [VB.NET] مشكلة عند عمل تحديث للبيانات Asmaa adel 3 67 27-11-16, 03:56 PM
آخر رد: Adrees
Rainbow [VB.NET] مشكلة طابعة الباركود محمد اسماعيل 3 260 27-11-16, 10:30 AM
آخر رد: adel27
  [SQL] مشكلة عند الاتصال بالسيكوال سيرفر تظهر الرسالة التالية Asmaa adel 8 178 21-11-16, 11:58 PM
آخر رد: Asmaa adel
  [سؤال] مشكلة في إعادة تنفيذ البرنامج wael khlak 1 51 21-11-16, 11:48 PM
آخر رد: السرور
  [VB.NET] مشكلة في كود البحث khalid475 14 212 11-11-16, 07:52 PM
آخر رد: khalid475
  [VB.NET] كيفية طباعة شهادات بصيغة PDF Programmer_2017 9 244 10-11-16, 10:02 PM
آخر رد: Programmer_2017
Question [سؤال] مشكلة محيرتني هل من مساعدة shwehdi4pc 14 2,089 10-11-16, 03:55 PM
آخر رد: أبوبكر سويدان
  [VB.NET] مشكلة في Timer 3asfa~mdmra 1 79 07-11-16, 02:09 PM
آخر رد: hassan

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم