تقييم الموضوع :
  • 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 اذا مسحته تظهر نفس المشكلة
الرد }}}
تم الشكر بواسطة:



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


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