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