waleedsh3alan قام بنشر يناير 20, 2018 مشاركة قام بنشر يناير 20, 2018 ارجو من الاساتذه الكرام مساعتدى فى هذا الملف wsh.rar رابط هذا التعليق شارك More sharing options...
ابراهيم الحداد قام بنشر يناير 20, 2018 مشاركة قام بنشر يناير 20, 2018 السلام عليكم ورحمة الله انظر الى هذا الملف ربما هذا ما تقصده wsh.rar رابط هذا التعليق شارك More sharing options...
waleedsh3alan قام بنشر يناير 21, 2018 الكاتب مشاركة قام بنشر يناير 21, 2018 10 ساعات مضت, زيزو العجوز said: وعليكم السلام ورحمه الله وبركاته اشكركم لاهتمام سيادتكم بموضوعى ولكن لى بعض الملاحظات لم يتم تفريغ الفاتوره بعد الترحيل ويكون رقم الفاتوره تلقائى وارجو من سيادتكم كود لطباعه الفورم ولكم جزيل الشكر رابط هذا التعليق شارك More sharing options...
ابراهيم الحداد قام بنشر يناير 21, 2018 مشاركة قام بنشر يناير 21, 2018 السلام عليكم ورحمة الله وبركاته الكود التالى للطباعة اربطه بالزر الموجود فى كل ورقة تريد طباعتها Sub Print_Invoice() ActiveSheet.PrintPreview y = ActiveSheet.[E2].Value z = MsgBox("هل حقا تريد طباعة الفاتورة رقم : " & y, vbYesNo) If z = vbYes Then ActiveSheet.PrintOut from:=1, to:=1, Copies:=1 Else Exit Sub End If End Sub اما السطرين التاليين ضعهم فى كل كود من الاكواد السابقة بعد كلمة Loop ws.Range("A7:E26").ClearContents x = x + 1 هذا وبالله التوفيق رابط هذا التعليق شارك More sharing options...
waleedsh3alan قام بنشر يناير 21, 2018 الكاتب مشاركة قام بنشر يناير 21, 2018 شكرا استاذى العزيز زيزو على الاهتمام وتقبل الله منكم صالح الاعمال الاستاذ الفاضل زيزو اشكرك على كود تفريغ الفاتوره ولكن هل من الممكن تفريغ الفاتور مع الحفاظ على المعادلات الموجوده بالفاتوره رابط هذا التعليق شارك 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.