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

[ابراهيم - ابو ريان]

ارفق لكم محاولتي وآمل مساعدتي وجزى الله خير كل من ساعدني او حاول مساعدتي

printpic.rar

[رياض الراوي]

الأخ العزيز:

أهلا بك في المنتدى

وهناك خطأ في الكود الأول حيث أن الصحيح هو:

Call picprint(Application.CodeProject.path & "\photos\" & [PICNO] & ".jpg", WIN_MAX2)

والحل في المرفق

printpic.rar

[ابراهيم - ابو ريان]

اخي الكريم جزاك الله خيرا ولكن كيف يتم طباعة الصورة مباشرة عن طريق الكود

[رياض الراوي]

الاخ العزيز:

لا يمكن طباعة الصورة عن طريق الكودالموجود قي الوحدة النمطية wordfileopen, لأنه خاص بفتح الصورة عن طريق التطبيق الافتراضي لفتح هذا النوع من الصور في نظام التشغيل الخاص بك ; ويمكنك طباعة الصورة عن طريق هذا التطبيق مباشرة وليس عن طريق الأكسس.

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

أرجو ان يؤدي الرد الغرض والسلام.

صورة.rar

تم تعديل نوفمبر 10, 2009 بواسطه riad

[ابراهيم - ابو ريان]

للرفع ارجو مساعدتي لاهمية الموضوع بالنسبة لي

[ابوخليل]

السلام عليكم

اخي ابراهيم :

طبعا حسب ما مر علينا و كذلك عليك أن الطباعة في الاكسس تكون للنماذج أو التقارير بكل ما تحويه من صور وغيرها ، وكذلك طباعة السجلات أو بعضها . عندي لك بعض الاقتراحات

الأول : ان تجلب الصورة الى نموذج مثلا وتنسق النموذج بحيث يبدو صورة فقط وهنا يمكن الطباعة من الكود بعد أمر الجلب فأنت هنا تطبع النموذج الذي يحتوي على الصورة .( لم اقم بتجربة هذه الطريقة )

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

تقبل تحياتي ،،،

[ابراهيم - ابو ريان]

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

لكن طباعة الصورة مباشرة من المجلد الموجوده به سوف يعطينا طباعةبالمقاس الحقيقي للصورة

عموما انا وضعت هذا الموضوع وانااعرف صعوبته ولكن املي ان يجدالاخوة الخبراء لها حل ويسعدونا به قريبا

تم تعديل نوفمبر 14, 2009 بواسطه ابراهيم - ابو ريان

[رياض الراوي]

الأخ المحترم أبو ريان:

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

والصورة تتم طباعتها وتحافظ على التناسب الصحيح لطول الصورة وعرضها ضمن الورق المحدد افتراضيًا على الطابعة الافتراضية، فإذا كانت الورقة أكبر من الصورة ستطبع بالحجم الحقيقي لها.

مع تحياتي.

printpic.rar

تم تعديل نوفمبر 14, 2009 بواسطه riad

[ابراهيم - ابو ريان]

اسأل الله العظيم رب العرش الكريم ان يجزيك خيرا وان يبارك لك في رزقك وان يجعلنا واياك من الصالحين

[ابراهيم - ابو ريان]

للاسف الصورة المطبوعه من التقرير الخفي ليست كتلك التي تطبع مباشرة عبر برنامج لعرض الصور حيث الصورة المطبوعه من التقرير الخفي تكون مصغره

اذا لنعد للتفكير مجددا في طريقة لطباعة الصورة مباشرة من المجلد المخزنه به

[ابراهيم - ابو ريان]

للرفع لعل وعسى

[رياض الراوي]

أخي العزيز:

لو تجرب مايلي في الكودالخاص بالطباعة .PictureSizeMode = 0 حيث أنه:

عندما يكون خيار .PictureSizeMode = 3

تكون الصورة في وضع zoom أي يتم تكبير الصورة إلى أكبر حد ممكن مع المحافظة على التناسب بين الطول والعرض.

وعندما يكون خيار .PictureSizeMode = 0 يتم عرض الصورة بالحجم الحقيقي وإذا كانت الصورة أكبر من التقرير (أي الصفحة حسب إعدادات الطابعة الافتراضية) يتم قصها.

وعندما يكون خيار .PictureSizeMode = 1 يتم مط الصورة طولياً أو عرضياً لتناسب التقرير

لقد جربت طباعة الصورةمن الفوتوشوب وحجمها الحقيقي(Actual size)هو21.7×15.88 يعني حجم صفحة A4 أفقي وتترك هوامش . ثم طبعتها عبر البرنامج بعد تغيير الخيار أعلاه إلى الصفر,مع تغيير تفضيلات الطابعة الافتراضية إلى صفحةA4 والاتجاه إلى أفقي Landscape فكانت النتيجة صورتان متماثلتان بالحجم الحقيقي.

مع تمنياتي لك بالتوفيق .

تم تعديل نوفمبر 17, 2009 بواسطه riad