البحث في الموقع

السلام عليكم ورحمته الله وبركاته بالمرفق التالى بيان أسعار بطريقة التليحق تم فى موضوع سابق بمعاونة زملائى الافاضل إخفاء المدى =فاتورة!$F$8:$J$37;فاتورة!$A$38:$J$38 عند طباعة النسخة الاولى ومن ثم إظهاره بداية من النسخة الثانيه فهل من سبيل لتعديل الكود المبين بالموديل رقم 3 بهذا الجزء من الكود End With Application.Goto Reference:="del_range" Selection.NumberFormat = ";;;" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False Application.Goto Reference:="del_range" Selection.NumberFormat = "00" ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _ IgnorePrintAreas:=False Range(Cells(lr + 1, "B"), Cells(lr + 1, "C")) = "" End Sub ليشمل إخفاء تذييل بيانات بيان الاسعار "الذى يتم نسخة من الورقة data " واجمالى ماقبله على ان يتم اخفاؤهم عند طباعة النسخة الاولى ومن ثم إظهارهم مرة أخرى بداية من النسخة الثانية او كما يترأى لحضراتكم من تعديل وذلك كلما فتحنا بيان جديد وذلك بالضغط على F2 بالاضافة الى 2 انتر " الاولى لنسخ التذييل والثانية لنسخ الجدول " أرجو بأن لاأكون مثقلا على حضراتكم ولله الأمرمن قبل ومن بعد وافر تقديرى واحترامى وجزاكم الله خيرا طباعة بشرط إخفاء تذييل بيان أسعار عند طباعة النسخة الاولى.xlsb.rar

السلام عليكم الأساتذة الافاضل يوجد كود للطباعة يعمل بشكل جيد ( Sub الصف_كل() Range("h1").Select ActiveCell.FormulaR1C1 = "1" ActiveSheet.PageSetup.PrintArea = "$h$3:$O$36" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Do ActiveCell = ActiveCell + 2 ActiveWindow.SelectedSheets.PrintOut Loop Until ActiveCell.Value >= Range("N1").Value Range("a1").Select End Sub) لكن لما اضفت حماية الورقة اصبح يظهر الخطأ كما في الصورة ولكن ليس دائما أحيانا واحيانا أخرى لما ازيل الخطأ واضغط على زر الطباعة يطبع دون ظهور الخطأ كما في اول مرة هل يوجد تعديل او إضافة على الحماية او على كود الطباعة جزكم الله خيرا

حياكم الله ومساكم بالخير الطلب على النحو التالى معذرة إخوانى الافاضل بالمرفق التالى إجابة على تساؤلى بالرابط حيث كانت الافادة صائبة من الاخوين الكريمين الاستاذ / ياسر خليل والاستاذ / سعيد بيرم بعد الانتهاء من نقل البيانات تظهر رسالة تفيد أنتهاء نقل البيانات الاضافة المطلوبه هى إضافة رسائل MsgBox بالتوالى بطباعة محتوى الجدوال بالورقة 2 يتبع بعد ذلك مسح محتوى الورقة 1 من أول صف به بيانات حتى نهاية أخر صف يتبع بعد ذلك مسح محتوى نطاق البيانات بالورقة 2 من C8 الى X27 فقط دمتم بكل خير وشكرا جزيلا نقل بيانات كل 10 ثوانى.xlsb.rar

بسم الله الرحمن الرحيم السلام عليكم الى الاساتدة الافاضل ابحث عن كود او طريقة (حفظ وطباعة ) السجل حالي نسختين بدون معاينة التقرير

بسم الله الرحمن الرحيم اولا اريد ان اشكركم على المعلومات القيمة في هذا المنتدى الرائع ثانيا اريد ان استفسركم عن المشكل البرمجي الذي لم اعرفه حيث انني اريد ان اكتب عدد النسخ التي استطبع ان اطبعها و عند كتابتي للعدد في الخانة لا تطبع إلى صفحة واحدة فقط رغم انني حددت اكثر من صفحة وشكرا الملف المرفق http://www.gulfup.com/?eIUzfS

بسم الله الرحمن الرحيم وبه نستعين الساده الزملاء الافاضل السلام عليكم جميعا ورحمته الله وبركاته وكل عام أنتم جميعا بخيرأينما كنتم داعيا المولى العلى القديرأن يتقبل منا جميعا صالح الاعمال انه ولى ذلك والقادرعليه تناول معظم الساده الزملاء الآفاضل بمنتدانا المتألق دوما موضوع تذيل اوراق العمل ومن خلال تنوع الافكارالتى قدمتومها حضراتكم تبين أن المشكلة مازلت قائمة حيث يعتمد موضوع التذيل على عدة عوامل أهمها ان يكون التذيل أسفل الجدول مباشرة سواء فى المطبوعات التجارية كالفواتير وايضا المطبوعات الحكومية ككشوف صرف المكافات والتى تعتمد على عدة توقيات فضلا عن عملية التفقيط فلابد من وجود فراغ ملائم ليحتوى على توقيعات الساده المسؤلون بالاضافة الى الاختام المطلوبه لاعتماد عملية الصرف فهناك فكرة ارجو من الله تعالى أن تكون موفقه لخدمة الجميع لذا نرجو من حضراتكم فضلا ان تساهموا فى تنفيذ هذه الفكرة لعلها تكون فيها النفع والافاده تعتمد فكرة الكود المطلوب على إدراك عدد 5 صفوف من بداية الصف الـــ 29 ثم نسخ محتوى التذيل المطلوب نسخة من الورقة "DATA" الى الورقة " مكافاة الثانويه العامه" ثم نسخ عدد 21 صف بنفس التنسيقات والمعادلات بداية من الـــ 8 الى 28 وهكذا وذلك من خلال فوروم بسيط يحتوى على الاوامرالتاليه ادرك الصفوف اولا ثم رساله " هل تريد نسخ محتوى التذيل المطلوب" ثم نعم ثم رساله أخرى " هل تريد نسخ الصفوف من 8 الى 28 " ثم نعم او كما تروه سيادتكم فضلا ملائما لتنفيذ هذه المحاولة دامت دياركم وديارنا عامرة بنورالايمان ...... تقبلوا وافر احترامى وتقديرى وجزاكم الله خيرا

اخواني الاعزاء واستاذتي الفاضل لقد تناول اخواني بالمنتدي موضوعات كثيرة حول استخراج كشف حساب بالاكواد لكن اليوم سوف نتاول معا كشف الحساب عن طريق الفورم مع استخراج قيد اليومية الخاص بحركة معينة وقد استخدمت في الشرح مشاركة سابقة لاخي ومعلمي الاستاذ / عبدالله باقشير (بارك الله فيه وجعل جميع اعماله في ميزان حسناته) وبعد اذن ادارة المنتدي قمت بفتح مشاركة جديدة لتسهيل عملية الوصول للموضوع وحتي يستفيد منه عدد كبير ولسهولة البحث واضفت شرح تفصيلي لكشف الحساب بالفورم في موضوعي ((امثلة عن كيفية استخدام أدوات الفورم (( متجدد ان شاء الله)) علي الرابط التالي http://www.officena.net/ib/index.php?showtopic=47476&p=293524 ادعوا الله سبحانه وتعالي اكون وفقت في عرض وشرح الموضوع ولا تنسونا بدعوة بصلاح الحال في ظهر الغيب كشف الحساب.rar

يحتوى برنامج الفيزيو 2010 على خاصية اضافة الملاحظات و علامات المراجعة Mark up و لكن للاسف لا يحوي امكانيات متقدمة مثل برنامج الوورد للتحكم فى طباعتها و لكن يوجد حل بديل عن طريق الماكرو حيث يتم انشاء مربع نص و نسخ قائمة بالتعديلات اليه و ذلك بجوار الرسم المصدر http://support.microsoft.com/kb/898514/en-us و هذا هو الكود Public Sub GetComments() Dim pagMarkup As Visio.Page Dim pag As Visio.Page Dim shp As Visio.Shape Dim sText As String Dim iRow As Integer Set pag = Visio.ActivePage sText = "Reviewer" & vbTab & "Date" & vbTab & "Comment" If pag.PageSheet.SectionExists(Visio.visSectionAnnotation, Visio.visExistsAnywhere) Then For iRow = 0 To pag.PageSheet.RowCount(Visio.visSectionAnnotation) - 1 sText = sText & vbCrLf & pag.Document.DocumentSheet.CellsSRC(Visio.visSectionReviewer, pag.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationReviewerID).ResultIU - 1, Visio.visReviewerInitials).ResultStr("") sText = sText & pag.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationMarkerIndex).ResultIU sText = sText & vbTab & Format(pag.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationDate).ResultIU, "ddddd") sText = sText & vbTab & pag.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationComment).ResultStr("") Next iRow End If For Each pagMarkup In pag.Document.Pages If pagMarkup.Type = visTypeMarkup Then If pagMarkup.OriginalPage = pag Then If pagMarkup.PageSheet.SectionExists(Visio.visSectionAnnotation, Visio.visExistsAnywhere) Then sText = sText & vbCrLf sText = sText & vbCrLf & pag.Document.DocumentSheet.CellsSRC(Visio.visSectionReviewer, pagMarkup.ReviewerID - 1, Visio.visReviewerName).ResultStr("") For iRow = 0 To pagMarkup.PageSheet.RowCount(Visio.visSectionAnnotation) - 1 sText = sText & vbCrLf & pag.Document.DocumentSheet.CellsSRC(Visio.visSectionReviewer, pagMarkup.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationReviewerID).ResultIU - 1, Visio.visReviewerInitials).ResultStr("") sText = sText & pagMarkup.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationMarkerIndex).ResultIU sText = sText & vbTab & Format(pagMarkup.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationDate).ResultIU, "ddddd") sText = sText & vbTab & pagMarkup.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationComment).ResultStr("") Next iRow End If End If End If Next pagMarkup Dim iAutoSize as Integer 'new iAutoSize = pag.AutoSize 'new pag.AutoSize = 0 'new Set shp = pag.DrawRectangle(-pag.PageSheet.Cells("PageWidth").ResultIU, 0, 0, pag.PageSheet.Cells("PageHeight").ResultIU) pag.AutoSize = iAutoSize 'new shp.AddSection visSectionUser 'new shp.AddNamedRow visSectionUser, "msvNoAutoSize", visTagDefault 'new shp.CellsU("User.msvNoAutoSize").FormulaU = 1 'new shp.Cells("Para.HorzAlign").Formula = "0" shp.Cells("VerticalAlign").Formula = "0" shp.Name = "Reviewers Comments" shp.Text = sText End Sub

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

اريد طباعة محددة بستثناء الصفوف الفارغه من حيث إذا زاد أسم في صف من الصفوف الفارغه تشملة الطباعة . المرفق موجود طباعة.rar

بسم الله الرحمن الرحيم الأخوة الأعضاء تحية طيبة ارفق لكم نسخة من ملف وهو عبارة عن مجهود عظيم لمجموعة عطرة من المشرفين وألأعضاء في هذا المنتدى الكريم الملف عبارة عن فورم استخلاص بيانات نقل وصرف مبلغ للسائق ولكن ماهو مطلوب اليوم استخراج نسختين من الفورم في ورقة واحدة بحيث اذا تمت الطباعة من ايقونة الطباعة او طباعة متعدده تخرج لي نسختان من كل سائق ( يحمل الرقم التسلسلي نفسه ) لاني اعاني من مسألة اعادة الطباعة لكل سائق كثرا ............ اتمنى قد اوصلت الفكرة لكم وتقبلوا تقديري اخوكم ابو شرف فورم نقل.rar

السلام عليكم ورحمة الله تعالى وبركاته ومبارك عليكم الشهر أعاننا الله وإياكم على الصيام والقيام وصالح الأعمال ويسعدني تواجدي معكم في هذا المنتدى الجميل * * * نعاني يا أحباب من هذه المشكلة منذ فترة في العمل لدي ولدى عدد من الزملاء ظهرت فجأة ولا ندري ما السبب * * * با اختصار يتم تقسيم صفحة Excel إلى عدة صفحات وعند معاينة الطباعة يختفي هذا التقسيم ولكن عند النقر على زر الطباعة تظهر الصفحة الواحدة في الطابعة مجزأة إلى عدة صفحات كما هو واضح في الصور هنا في انتظار توجيهكم بارك الله في جهودكم

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

العنوان لا يحتاج الى زيادة شرح او تفصيل في المرفقات مثال فريد لتحقيق المطلوب فريد : لاعتماده على جملة برمجية صغيرة ، بعيدا عن الوحدات النمطية المطولة Private Declare Function SetDefaultPrinter Lib "winspool.drv" Alias "SetDefaultPrinterA" (ByVal pszPrinter As String) As Long Private Sub Form_Open(Cancel As Integer) Dim Prn As Printer For Each Prn In Application.Printers PrinterList.AddItem Prn.DeviceName Next Prn End Sub Private Sub PrinterList_DblClick(Cancel As Integer) SetDefaultPrinter (PrinterList) DoCmd.Close acForm, Me.Name End Sub اختيار الطابعة الافتراضية من قائمة.rar

السلام عليكم ورحمة الله وبركاته لقد طرح أخي معلمي الأستاذ // عبدالله باقشير (( حفظه الله)) نموذج فورم فاتورة بكود سهل بعد أذنه قمت بالتعديل الطفيف لتتناسب مع الاعمال التجارية جميع البيانات في الفورم من بيانات الشركة والبيانات التي تظهر اسفل الفورم يمكن تغيرها بسهولة من (( شيت 1)) وكذلك جميع البيانات الخاصة بالعميل - رقم الفاتورة التاريخ - الكمية - كود الصنف - اسم الصنف - سعر الوحدة - الاجمالي ) يمكن التغير عليها من الشيت الاول وذلك لسهولة تغيير البيانات واستخدمها بما يتناسب اغلبية الطلبات بالمنتدي الحبيب والشكر كل الشكر لاخي ومعلمنا الاستاذ // عبدالله باقشير علي طروحاته القيمة التي نتعلم منها جعل جميع اعماله في ميزان حسناته والله ولي التوفيق نموذج الفورم نموذج فاتورة مع الطباعة (E) علي الرابط التالي http://www.officena.net/ib/index.php?showtopic=46761#entry280633 ولا تنسونا بدعوة بظهر الغيب بصلاح الحال فاااااااتورة خبورية 2.rar