+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تكملة حل موضوع طباعة Tap Page هام للانتهاء (/showthread.php?tid=6765)
تكملة حل موضوع طباعة Tap Page هام للانتهاء - shado1796 - 30-10-12
السلام عليكم ورحمة الله وبركاته
وجد مشكلة بعد قفل الموضوع ولم استطع كتابة رد ففتحت موضوع جديد
اضغط هناااااااا لمشاهدة الموضوع المغلق
والمشروع في المشاركة رقم 9 الذي قام بخ الاخ مشكورا amgadtamer
يوجد فيه مشكلة وهي عندما اطبع واختار خيار قلب الورقة والطباعة بالعرض لا يطبق الامر ؟؟؟؟؟ وانه ايضا لا يطبق اوامر الخيارات الموجودة ؟؟؟ ما السبب لو سمحتم
وجد مشكلة بعد قفل الموضوع ولم استطع كتابة رد ففتحت موضوع جديد
اضغط هناااااااا لمشاهدة الموضوع المغلق
والمشروع في المشاركة رقم 9 الذي قام بخ الاخ مشكورا amgadtamer
يوجد فيه مشكلة وهي عندما اطبع واختار خيار قلب الورقة والطباعة بالعرض لا يطبق الامر ؟؟؟؟؟ وانه ايضا لا يطبق اوامر الخيارات الموجودة ؟؟؟ ما السبب لو سمحتم
تكملة حل موضوع طباعة Tap Page هام للانتهاء - amgadtamer - 30-10-12
[HTML]
قم بتغيير سطري الكود
pagesetupdialog1.pagesettings=document.defaultpagesettings
pagesetupdialog1.printersettings=document.printersettings
[/HTML]
تكملة حل موضوع طباعة Tap Page هام للانتهاء - shado1796 - 30-10-12
amgadtamer كتب :[HTML]
قم بتغيير سطري الكود
pagesetupdialog1.pagesettings=document.defaultpagesettings
pagesetupdialog1.printersettings=document.printersettings
[/HTML]
شكرا لك اخي صلح انقلاب الصفحة لكن لم يصلح اعدادات الصفحة وهي التوسيط بالاعدادت وعلى ما اعتقد ان كتبت في هذا الكود كود الاعدادات
pagesetupdialog1.printersettings=document.printersettings
لكن لم ينفع حاولت اكثر من مره ولم ينفع
تكملة حل موضوع طباعة Tap Page هام للانتهاء - amgadtamer - 30-10-12
قم باسناد اعدادات ال document الي اعدادات ال pagesetupdialog
مثل
[HTML]
document.defaultpagesettings.pagesettings.margins.bottom=pagesetupdialog.pagesettings.margins.bottom
وذلك بعد جملة الشرط التي تظهر ال dialog[/HTML]
تكملة حل موضوع طباعة Tap Page هام للانتهاء - shado1796 - 30-10-12
وضعتها بعد اداة الشرط في هذا الكود ولكن ظهرت لي اخطاء في الكلمات الحمراء
كود :
If PageSetupDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
[color=#FF0000]document.DefaultPageSettings.pagesettings[/color].margins.bottom = [color=#FF0000]PageSetupDialog.PageSettings[/color].margins.bottom
AddHandler document.PrintPage, New PrintPageEventHandler(AddressOf PrintDocument)
document.Print()
End Ifهل اخطآت انا ام ماذا ؟؟؟
تكملة حل موضوع طباعة Tap Page هام للانتهاء - amgadtamer - 30-10-12
سوف احاول تعديل المثال
تكملة حل موضوع طباعة Tap Page هام للانتهاء - shado1796 - 30-10-12
amgadtamer كتب :سوف احاول تعديل المثال
الله يعطيك العافية ،،، وانا بانتظارك ..
تكملة حل موضوع طباعة Tap Page هام للانتهاء - amgadtamer - 30-10-12
جرب هذا المثال
تكملة حل موضوع طباعة Tap Page هام للانتهاء - shado1796 - 30-10-12
amgadtamer كتب :جرب هذا المثال
اخي نفس المشكلة اذا اتيت اعدل جميع الخيارات 50 50 50 50 يصبح في الوسط لكنه لا يطبع في الوسط ماهو السبب ؟
تكملة حل موضوع طباعة Tap Page هام للانتهاء - amgadtamer - 30-10-12
المثال بعد التجربه