اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

الخبراء الافاضل 

بعد التحية

اريد تقرير pdf او الصور تكون بالكامل داخل اطار العرض فقط ولا احتاج الى اشرطة التمرير  اليكم القاعدة للتعديل

Untitled.jpg

JO.rar

قام بنشر

 بالنسبة لشرئط التمرير وعرض الصورة في اطار محدد من معلوماتي وحسب ما جربت يصير بكل أنواع الصور حتى المتحركة أما  صور PDF لا ........ أما اذا أحد الزملاء عنده طريقة يتفضل ....

وكله بيتعلم وأنا منهم .:fff:

قام بنشر

انشئ نموذج جديد

وا ضف فيه مستعرض ويب

و في حدث عند النقر على قائمة الملفات ضع الكود التالي

Dim wb As Object
Set wb = WebBrowser0.Object        ' ضورة اضافة اسم عنصر التحكم لمستعرض الويب
Dim filelocation As String
filelocation = "C:\Users\File1.pdf"     ' ضع هنا اسم عنصر التحكم الذي يحتوي على اسم الملف لعرضه
wb.silent = True
With wb
    .navigate2 "about:blank"
    Do Until .ReadyState = 4
        DoEvents
    Loop
    .Document.Open
    .Document.write "<!doctype html><html><head><title>my title</title></head><body scroll=""auto"" style=""margin: 0px; padding: 0px;"">" & _
                        "<embed style='padding: 70px;' src=""" & filelocation & """  width=""50%"" height=""100%"" />" & _
                        "</body></html>"
    .Document.close
End With

 

قام بنشر
في 18‏/11‏/2023 at 00:19, دروب مبرمج said:

انشئ نموذج جديد

وا ضف فيه مستعرض ويب

و في حدث عند النقر على قائمة الملفات ضع الكود التالي

Dim wb As Object
Set wb = WebBrowser0.Object        ' ضورة اضافة اسم عنصر التحكم لمستعرض الويب
Dim filelocation As String
filelocation = "C:\Users\File1.pdf"     ' ضع هنا اسم عنصر التحكم الذي يحتوي على اسم الملف لعرضه
wb.silent = True
With wb
    .navigate2 "about:blank"
    Do Until .ReadyState = 4
        DoEvents
    Loop
    .Document.Open
    .Document.write "<!doctype html><html><head><title>my title</title></head><body scroll=""auto"" style=""margin: 0px; padding: 0px;"">" & _
                        "<embed style='padding: 70px;' src=""" & filelocation & """  width=""50%"" height=""100%"" />" & _
                        "</body></html>"
    .Document.close
End With

 

معلمى الفاضل   دروب مبرمج

امكانياتى محدودة بالبرمجة ممكن لو تكرمت التعديل على النموذج المرفق باعلى

قام بنشر (معدل)

اخي الفاضل ، بعد البحث والتقصي لم أجد ما يخفي شريط التمرير في مستعرض الـ PDF ، وذلك من وجهة نظري يعود إلى أنه لو افترضنا أن المرفق أكثر من صفحة !! فكيف سيتم التنقل بين الصفحات في الـ Pdf المعروض ؟؟؟؟؟

 

كذلك الأمر قمت بتجربة الكود التالي ولم يقم بالإخفاء ، هذا من وجهة نظري و إن كان للأساتذة معلومة أخرى فمنهم نستفيد .

Me.WebBrowserControlName.ScrollBars = 0

 

تم تعديل بواسطه Foksh
  • Like 1
قام بنشر
14 ساعات مضت, Foksh said:

اخي الفاضل ، بعد البحث والتقصي لم أجد ما يخفي شريط التمرير في مستعرض الـ PDF ، وذلك من وجهة نظري يعود إلى أنه لو افترضنا أن المرفق أكثر من صفحة !! فكيف سيتم التنقل بين الصفحات في الـ Pdf المعروض ؟؟؟؟؟

 

كذلك الأمر قمت بتجربة الكود التالي ولم يقم بالإخفاء ، هذا من وجهة نظري و إن كان للأساتذة معلومة أخرى فمنهم نستفيد .

Me.WebBrowserControlName.ScrollBars = 0

 

اخى الفاضل شكرا للاهتمام معك كل الحق فى ال pdf

ولكن مع الصور اعتقد لن تكون هناك غير صورة واحدة

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information