كيف اطبع ملف اكسل بوساطة زر امر في نموذج اكسس

[ASDewq1398]

اريد كود لزر امر في نموذج اكسس يقوم بطباعة ملف اكسل في موقع معين 

[Barna]

منذ ساعه, 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

 

[ASDewq1398]

بيض الله وجهك

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

[kkhalifa1960]

مشاركة مع الأستاذ  Barna   تفضل طلبك كامل بالمرفق.

اقرأ الملف جيداً وجرب أولاً بالموجود بالجدول. ثم

1- اضافتة ملف الأكسل حقك بمجلد البرنامج 

2- اضافة البيانات كما بالجدول (اسم ملف الأكسل بإمتداده - اسم ورقة الهمل التي تريدها) وإذا أكثر من ورقة كرر هذا السطر لكل ورقة عمل .

DD117.rar

[Barna]

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

 

[ASDewq1398]

الله يجزاكم خير والله يوفقكم في الدنيا والاخره