المشاركات : 675
المواضيع 68
الإنتساب : Oct 2012
السمعة :
1
الشكر: 38
تم شكره 68 مرات في 13 مشاركات
06-06-13, 12:49 AM
(آخر تعديل لهذه المشاركة : 06-06-13, 01:24 AM {2} بواسطة ahmed mohamed soliman.)
[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].
المشاركات : 675
المواضيع 68
الإنتساب : Oct 2012
السمعة :
1
الشكر: 38
تم شكره 68 مرات في 13 مشاركات
المشاركات : 901
المواضيع 34
الإنتساب : Nov 2012
السمعة :
65
الشكر: 517
تم شكره 1181 مرات في 245 مشاركات
السلام عليكم ورحمة الله وبركاته
واضح من الصورة أنك صممت الصفحة على أساس مقاس A4 ولكنك عند الطباعة طبعت على ورق مقاس Letter وهناك فرق في الحجم فمقاس A4 أصغر في العرض وأطول في الطول عن مقاس Letter لهذا ضهر لك جزء مفقود
السلام عليكم ورحمة الله وبركاته
المشاركات : 675
المواضيع 68
الإنتساب : Oct 2012
السمعة :
1
الشكر: 38
تم شكره 68 مرات في 13 مشاركات
@@أبورائد@@ كتب :
السلام عليكم ورحمة الله وبركاته
واضح من الصورة أنك صممت الصفحة على أساس مقاس a4 ولكنك عند الطباعة طبعت على ورق مقاس letter وهناك فرق في الحجم فمقاس a4 أصغر في العرض وأطول في الطول عن مقاس letter لهذا ضهر لك جزء مفقود
السلام عليكم ورحمة الله وبركاته
اهلا بك اخي ،، مع احترامي لك بس الي استخدمه a4
المشاركات : 901
المواضيع 34
الإنتساب : Nov 2012
السمعة :
65
الشكر: 517
تم شكره 1181 مرات في 245 مشاركات
06-06-13, 11:00 AM
(آخر تعديل لهذه المشاركة : 06-06-13, 11:04 AM {2} بواسطة Moo00ooN.)
السلام عليكم ورحمة الله وبركاته
جرب هذا التعديل
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()
السلام عليكم ورحمة الله وبركاته
المشاركات : 675
المواضيع 68
الإنتساب : Oct 2012
السمعة :
1
الشكر: 38
تم شكره 68 مرات في 13 مشاركات
@@أبورائد@@ كتب :
السلام عليكم ورحمة الله وبركاته
جرب هذا التعديل
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
المشاركات : 901
المواضيع 34
الإنتساب : Nov 2012
السمعة :
65
الشكر: 517
تم شكره 1181 مرات في 245 مشاركات
السلام عليكم ورحمة الله وبركاته
جرب هذا التعديل
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
السلام عليكم ورحمة الله وبركاته
المشاركات : 675
المواضيع 68
الإنتساب : Oct 2012
السمعة :
1
الشكر: 38
تم شكره 68 مرات في 13 مشاركات
@@أبورائد@@ كتب :
السلام عليكم ورحمة الله وبركاته
جرب هذا التعديل
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]
المشاركات : 901
المواضيع 34
الإنتساب : Nov 2012
السمعة :
65
الشكر: 517
تم شكره 1181 مرات في 245 مشاركات
السلام عليكم ورحمة الله وبركاته
لابد من أن تكون TabPage4 ظاهرة قبل الطباعة
السلام عليكم ورحمة الله وبركاته
المشاركات : 675
المواضيع 68
الإنتساب : Oct 2012
السمعة :
1
الشكر: 38
تم شكره 68 مرات في 13 مشاركات
@@أبورائد@@ كتب :
السلام عليكم ورحمة الله وبركاته
لابد من أن تكون TabPage4 ظاهرة قبل الطباعة
السلام عليكم ورحمة الله وبركاته
نعم ظاهرة قبل الطباعة ,,, الاول في الكود انا كنت احاول احل مشكلتي بدون فتح موضوع وف كود مسحته وسارت نفس المشكلة ,, يعني ناقص كود
مثل هذا Dim doc As New Printing.PrintDocument اذا مسحته تظهر نفس المشكلة
|