ASDewq1398 قام بنشر فبراير 25, 2023 مشاركة قام بنشر فبراير 25, 2023 اريد كود لزر امر في نموذج اكسس يقوم بطباعة ملف اكسل في موقع معين رابط هذا التعليق شارك More sharing options...
أفضل إجابة Barna قام بنشر فبراير 25, 2023 أفضل إجابة مشاركة قام بنشر فبراير 25, 2023 منذ ساعه, ASDewq1398 said: اريد كود لزر امر في نموذج اكسس يقوم بطباعة ملف اكسل في موقع معين جرب هذا ................. Dim ExcelObj As Excel.Application Set ExcelObj = CreateObject("Excel.Application") ExcelObj.Workbooks.Open "C:\file1.xlsx" ExcelObj.Sheets.PrintOut ExcelObj.Quit Set ExcelObj = Nothing 1 رابط هذا التعليق شارك More sharing options...
ASDewq1398 قام بنشر فبراير 26, 2023 الكاتب مشاركة قام بنشر فبراير 26, 2023 بيض الله وجهك سوال اخر لو سمحت عندي في مصنف اكسل اكثر من ورقة كيف احدد الوارقة التي اريد ان اطبعها في الكود رابط هذا التعليق شارك More sharing options...
kkhalifa1960 قام بنشر فبراير 26, 2023 مشاركة قام بنشر فبراير 26, 2023 مشاركة مع الأستاذ Barna تفضل طلبك كامل بالمرفق. اقرأ الملف جيداً وجرب أولاً بالموجود بالجدول. ثم 1- اضافتة ملف الأكسل حقك بمجلد البرنامج 2- اضافة البيانات كما بالجدول (اسم ملف الأكسل بإمتداده - اسم ورقة الهمل التي تريدها) وإذا أكثر من ورقة كرر هذا السطر لكل ورقة عمل . DD117.rar رابط هذا التعليق شارك More sharing options...
Barna قام بنشر فبراير 26, 2023 مشاركة قام بنشر فبراير 26, 2023 9 ساعات مضت, ASDewq1398 said: بيض الله وجهك سوال اخر لو سمحت عندي في مصنف اكسل اكثر من ورقة كيف احدد الوارقة التي اريد ان اطبعها في الكود ووجهك ابيض اخي الكريم انظر الصورة وغير اسم الورقة حسب ما تريد Dim ExcelObj As Excel.Application Set ExcelObj = CreateObject("Excel.Application") ExcelObj.Workbooks.Open "C:\file1.xlsx" ExcelObj.Sheets("ورقة1").PrintOut ExcelObj.Quit Set ExcelObj = Nothing 1 رابط هذا التعليق شارك More sharing options...
ASDewq1398 قام بنشر فبراير 26, 2023 الكاتب مشاركة قام بنشر فبراير 26, 2023 الله يجزاكم خير والله يوفقكم في الدنيا والاخره رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.