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

نسخة كاملة : طلب كود طابعة الصوره
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
سلام عليكم اخوتي الكرام ابي كود طابعة الصوره عن طريق اختيار اسم الصوره من التكس بوكس بحيث بعد ان يتم اختيار اسم الصوره  يتم طابعة الصوره بشكل كامل انا  سويت مثل للتطبيق عليه وجزاكم الله الف خير وبارك الله فيكم
السلام عليكم اخي الغالي تم تعديل المثال حسب مافهمت منك ارجو ان يكون هذا المطلوب  قم باستعراض اي صورة ثم انقر على زر طباعة 


[attachment=25127]
(24-06-20, 11:48 AM)awidan76 كتب : [ -> ]السلام عليكم اخي الغالي تم تعديل المثال حسب مافهمت منك ارجو ان يكون هذا المطلوب  قم باستعراض اي صورة ثم انقر على زر طباعة 

انا ابي اطبع صوره طابعة الصوره بكامل الورقه
وعليكم السلام ورحمة الله وبركاته

أهلا بك أخي الكريم , هذا كود طباعة الصورة الموجوده في أداة الصور Picture1 بكامل حجم صفحة الطابعة , بالتوفيق :

PHP كود :
With Printer
    
.PaintPicture Picture1.Picture00, .Width, .Height
    
.NewPage
    
.EndDoc
End With 
(25-06-20, 05:32 AM)Ahmed_Mansoor كتب : [ -> ]وعليكم السلام ورحمة الله وبركاته

أهلا بك أخي الكريم , هذا كود طباعة الصورة الموجوده في أداة الصور Picture1 بكامل حجم صفحة الطابعة , بالتوفيق :

PHP كود :
With Printer
    
.PaintPicture Picture1.Picture00, .Width, .Height
    
.NewPage
    
.EndDoc
End With 
والله يعجز اللسان عن شكرا جزاك الله الف خير يااخي الكريم وبارك الله فيك
(25-06-20, 06:28 AM)ahmed250 كتب : [ -> ]
(25-06-20, 05:32 AM)Ahmed_Mansoor كتب : [ -> ]وعليكم السلام ورحمة الله وبركاته

أهلا بك أخي الكريم , هذا كود طباعة الصورة الموجوده في أداة الصور Picture1 بكامل حجم صفحة الطابعة , بالتوفيق :

PHP كود :
With Printer
    
.PaintPicture Picture1.Picture00, .Width, .Height
    
.NewPage
    
.EndDoc
End With 
والله يعجز اللسان عن شكرا جزاك الله الف خير يااخي الكريم وبارك الله فيك

العفو أخي الكريم أهلا وسهلا بك جزاك الله كل خير وبالتوفيق والنجاح .
السلام عليكم ورحمة الله وبركاته

كيف الحال اخي واستاذنا الفاضل احمد اسال ان تكون في اتم الصحة والعافية

سؤالي ايضا نفس الموضوع بس عند عرض الصورة في الاكتيف ريبورت  بالشكل الكامل(يعني عرض الصورة قبل الطباعة)

وانا واضع الصورة بوضع stretch 
الا انها تصغر بالحجم عند عرضها للطباعه بحيث يتغير حجم الصورة الى اقل من المثبت عليه
هل يوجد كود يجعل الصورة في نفس حجم الصورة (كما ان الصورة واخذه المساحة كاملة في الاكتيف ريبورت دون تغيير صورة اخرى)



 تحياتي للجميع

اسباب الاحتمال فيها (تثبيت vb6)
عندما كان الويندوز 7 شغال ميه ميه
عندما غيرت جهاز اخر ويندوز 10 صارت هذه المشكلة

ايضا عندي تحميل الادوات الى الفورم مثل الكوماند يصير فارق بين الكوماند اللي انزلها والمكان اللى محدده؟
هل يوجد ضبط يحتاج الى تعديل
(25-06-20, 03:45 PM)عمور2016 كتب : [ -> ]السلام عليكم ورحمة الله وبركاته

كيف الحال اخي واستاذنا الفاضل احمد اسال ان تكون في اتم الصحة والعافية

سؤالي ايضا نفس الموضوع بس عند عرض الصورة في الاكتيف ريبورت  بالشكل الكامل(يعني عرض الصورة قبل الطباعة)

وانا واضع الصورة بوضع stretch 
الا انها تصغر بالحجم عند عرضها للطباعه بحيث يتغير حجم الصورة الى اقل من المثبت عليه
هل يوجد كود يجعل الصورة في نفس حجم الصورة (كما ان الصورة واخذه المساحة كاملة في الاكتيف ريبورت دون تغيير صورة اخرى)



 تحياتي للجميع

اسباب الاحتمال فيها (تثبيت vb6)
عندما كان الويندوز 7 شغال ميه ميه
عندما غيرت جهاز اخر ويندوز 10 صارت هذه المشكلة  

ايضا عندي تحميل الادوات الى الفورم مثل الكوماند يصير فارق بين الكوماند اللي انزلها والمكان اللى محدده؟
هل يوجد ضبط يحتاج الى تعديل
اخي الغالي احفظ الصوره بصيغة bdf افضل حتي تستطيع معاينة الصوره قبل الطابعة فيجوال بيسك 6 يعمل سوء علي ويندوز 7 او 10 عادي بدون اي مشكل بس ممكن انك مش متبتو بطريقه صحيحه