[shado1796]

[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].

[shado1796]

هل من حل جزاكم الله خير

[@@أبورائد@@]

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






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








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

[shado1796]

@@أبورائد@@ كتب :
السلام عليكم ورحمة الله وبركاته






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








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

اهلا بك اخي ،، مع احترامي لك بس الي استخدمه a4

[@@أبورائد@@]

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





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

PHP كود :

'' زر امرالطباعة
Dim doc As New Printing.PrintDocument
AddHandler doc.PrintPage, AddressOf PrintDocument

Dim PrinterSettings1 As New Printing.PrinterSettings
PrinterSettings1.DefaultPageSettings.PaperSize = New System.Drawing.Printing.PaperSize("A4", 826.9, 1169.4)
''PrinterSettings1.DefaultPageSettings.PaperSize = New System.Drawing.Printing.PaperSize("Letter", 850, 1100)

doc.PrinterSettings = PrinterSettings1
doc.DefaultPageSettings.Landscape = True

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


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

[shado1796]

@@أبورائد@@ كتب :
السلام عليكم ورحمة الله وبركاته





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

PHP كود :

'' زر امرالطباعة
Dim doc As New Printing.PrintDocument
AddHandler doc.PrintPage, AddressOf PrintDocument

Dim PrinterSettings1 As New Printing.PrinterSettings
PrinterSettings1.DefaultPageSettings.PaperSize = New System.Drawing.Printing.PaperSize("A4", 826.9, 1169.4)
''PrinterSettings1.DefaultPageSettings.PaperSize = New System.Drawing.Printing.PaperSize("Letter", 850, 1100)

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

[@@أبورائد@@]

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





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

PHP كود :

''  ابتداء اوامر الطباعة للتفصيل
Public Sub PrintDocument(ByVal obj As Object, ByVal e As Printing.PrintPageEventArgs)
Dim Img As New Bitmap(TabPage4.Width, TabPage4.Height)
TabPage4.DrawToBitmap(Img, New Rectangle(0, 0, TabPage4.Width, TabPage4.Height))
e.Graphics.DrawImage(Img, New Rectangle(e.MarginBounds.Left, e.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 


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

[shado1796]

@@أبورائد@@ كتب :
السلام عليكم ورحمة الله وبركاته





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

PHP كود :

''  ابتداء اوامر الطباعة للتفصيل
Public Sub PrintDocument(ByVal obj As Object, ByVal e As Printing.PrintPageEventArgs)
Dim Img As New Bitmap(TabPage4.Width, TabPage4.Height)
TabPage4.DrawToBitmap(Img, New Rectangle(0, 0, TabPage4.Width, TabPage4.Height))
e.Graphics.DrawImage(Img, New Rectangle(e.MarginBounds.Left, e.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]

[@@أبورائد@@]

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






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





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

[shado1796]

@@أبورائد@@ كتب :
السلام عليكم ورحمة الله وبركاته






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





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

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