منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - مشكلة في طباعة Tabpageg لا يطبعه كاملا ،، مهم يا اخوان

الصفحات : 1 2

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

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

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

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

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

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

واضح من الصورة أنك صممت الصفحة على أساس مقاس 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() 

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

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

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

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 

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

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

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

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 ظاهرة قبل الطباعة

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

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

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

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

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

الصفحات : 1 2

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

shado1796

shado1796

@@أبورائد@@

shado1796

@@أبورائد@@

shado1796

@@أبورائد@@

shado1796

@@أبورائد@@

shado1796