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

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

Showing results for tags 'طباعة'.



More search options

  • Search By Tags

    اكتب الكلمات المفتاحيه بينها علامه الفاصله
  • Search By Author

نوع المحتوي


الاقسام

  • الترحيب
    • نرحب بزوار الموقع
  • تطبيقات الأوفيس Msoffice
    • منتدى الاكسيل Excel
    • قسم الأكسيس Access
    • منتدي الوورد Word
    • منتدى الباوربوينت العام Powerpoint
    • منتدى الاوتلوك Outlook
    • منتدى الأوفيس العام
    • منتدى الفيزيو Visio
    • منتدي مايكروسوفت بروجكت Ms Project
    • منتدى الفرنت بيج العام Frontpage
    • انفو باث InfoPath
    • وان نوت One Note
    • الناشر بابليشر Publisher
    • Communicator
    • SQL Server
    • SharePoint
    • Expression Web
  • أقسام إدارة المشاريع
    • Management Topics
    • EFQM & DGEP
    • Primavera 3.1
    • Primavera Enterprise
  • الويب
    • برمجة الويب
  • القسم العام
  • دورات البث الحي و دورات الفيديو - قسم جديد

الاقسام

  • VBA Code Library
  • قسم الإكسيل
  • قسم الأكسيس
  • قسم الوورد
  • Project Management
  • Self development التطويرالذاتي
  • EFQM & DGEP
  • معلومات مفيدة
  • أدوات عامة

مدونات

  • M-Taher's Blog
  • Officena
  • مدونة محمد طاهر
  • اا الفاروق اا
  • ‎مدونة أخبار التكنولوجيا
  • M-Taher's Blog
  • يحيى حسين's Blog
  • خبور خير's Blog
  • Dr. AbdelMalek Abu Sheikh's Blog
  • m.hindawi's Blog
  • احمدزمان's Blog
  • الحسامي
  • مدونة أ / محمد صالح
  • yahiaoui's Blog
  • عبدالله المجرب's Blog
  • صيد الخواطر
  • حمادة عمر مدونة
  • مدونة عادل حنقي
  • مجدى يونس: لمسة وفاء لمنتدى اوفيسنا
  • Excel Expert Financial&Accounting
  • مدونة اعمال ايقونات الماس لمنتدى اوفيسنا
  • رقائق فى دقائق

الاقسام

  • Articles
    • Forum Integration
    • Frontpage
  • Pages
  • Miscellaneous
    • Databases
    • Templates
    • Media

الاقسام

  • New Features
  • Other

تم العثور علي 28 نتائج

  1. بسم الله الرحمن الرحيم وبه نستعين السادة الزملاء الافاضل السلام عليكم ورحمته الله وبركاته الكود التالى طلب للأخ الفاضل // ناصر المصرى على الرابط أدناه حيث يشمل الطلب على شقين حسب مافهمت منه عبر الخاص وقد وفقنى الله تعالى لتنفيذ الشق الاول ألا وهو منع وإخفاء وطباعة أوراق محددة فى مصنف أما عن الشق الثانى فقد حاولت فيه ولكن لم يوفقنى الله فى تنفيذه والتى تخص الاوراق من stor1 حتى stor10لذا يرجى من الاخ ناصر برفع موضوع جديد موضحا به الاضافة التى يريد إضافتها على الكود المشار اليه حتى يتمكن السادة الزملاء الافاضل بتقديم المساعدة تقبلوا وافر تقديرى واحترامى وجزاكم الله خيرا Option Explicit Sub Print_SalmaSaied() Dim CurVis As Long, sh As Worksheet, HidShts, S Application.ScreenUpdating = 0 HidShts = Array("List", "Add", "Main store", "Archives", "Collection items", "Suppliers", "Customers") For Each sh In ActiveWorkbook.Worksheets S = Application.Match(sh.Name, HidShts, 0) If Application.WorksheetFunction.CountBlank(sh.Range("A10:I10000")) <> sh.Range("A10:I10000").Count Then If IsError(S) Then With sh CurVis = .Visible If CurVis >= 0 Then .Visible = xlSheetVisible .PrintOut sh.Range("A10:I10000").ClearContents .Visible = CurVis End If End With End If End If Next sh End Sub منع وإخفاء وطباعة اوراق عمل محددة فى مصنف - سعيد بيرم.rar
  2. السلام عليكم ورحمته الله وبركاته سؤال بعد إذن حضراتكم بشأن طباعة مصنف يوجد به العديد من الصفحات المخفاه الملف بدون إخفاءات لتلك الصفحات يعمل بدون مشاكل أما بالإخفاءات تظهر رسائل خطأ فكيف يمكن التغلب عل هذة المشكلة أو ماهى الاضافة على أكواد الطباعة التى من شأنها تذليل تلك العقبة ***** شاكر فضل حضراتكم وجزاكم الله خيرا اعتذر عن رفع الموضوع مرتين لخطأ فنى بالنت لذا يرجى حذف أحد الرابطين مثال من ص 1 الى ص 8.rar مثال طباعة مع اخفاء صفحات مختلفه.rar
  3. السلام عليكم ورحمته الله وبركاته سؤال بعد إذن حضراتكم بشأن طباعة مصنف يوجد به العديد من الصفحات المخفاه الملف بدون إخفاءات لتلك الصفحات يعمل بدون مشاكل أما بالإخفاءات تظهر رسائل خطأ فكيف يمكن التغلب عل هذة المشكلة أو ماهى الاضافة على أكواد الطباعة التى من شأنها تذليل تلك العقبة ***** شاكر فضل حضراتكم وجزاكم الله خيرا اعتذر عن رفع الموضوع مرتين لخطأ فنى بالنت لذا يرجى حذف أحد الرابطين مثال من ص 1 الى ص 8.rar مثال طباعة مع اخفاء صفحات مختلفه.rar
  4. استاتذتي وأخواني الكرام السلام عليكم ورحمة الله وبركاته منذ فترة طلب مني ألاخ / أبوادم علي البريد فـورم لنموذج فاتورة مبيعات باللغة الانجليزية مع الطباعة وبعد ان صممت النموذج أحببت ان اشارككم فيه عسي ان يكون فيه النفع وان يكون عام ليستفيد منه الباحث عن شيء شبيه النموذج مفتوح(( يمكن تطويعه لاي عمل اخر )) تنويه (( العلامة التجارية "الشعار"" والاسماء بالنموذج من محض الخيال وليس لها علاقة باي علامة تجارية حالية وذلك حفاظا علي الحقوق ولا تعتبر نوع من انواع الدعاية لاي جهة )) أحببت ان انوه فقط ربما تصادف اسم شركة قائمة. ( نموذج الفورم ) ------------------------- ----------------------------- والله ولي التوفيق نموذج فاتورة.rar
  5. أخواني الكرام ارجوا المساعدة فى كيفية طباعة اوراق فى شيت اكسيل حسب الاتجاة المطلوب كما هو موضح بالمرفق ولكم الشكر والاحترام تحياتى للجميع طباعة.rar
  6. السلام عليكم ورحمة الله وبركاتة الاخوة الزملاء السلام عليكم ورحمة الله وبركاتة ساشرح اليوم بطريقة بسيطة كيفية عمل زر الطباعة في الاكسيل شرح بالفيديوهات مع الاكواد
  7. السلام عليكم ورحمة الله وبركاته "كل عام وأنتم بألف خير أخواني واحبائنا وعلمائناً وأساتذتنا الكبار في هذا الموقع أزادكم الله نوراً في طريق العلم والمعرفة ويظل هذا الموقع العملاق في الصدارة والتميز دائماً" "اللهم أمين" أخواني أن شاء الله يكون طلبي بسيط هو فكرة جديدة بعض الشي من خلال الموضوع نحن نتحدث أوامر الطباعة أريد أن أطبع صفحات متعددة وتبلغ حوالي 200 صفحة ولكن أريد كود يعطيني مجموع المبالغ لكل صفحة على حدا ويضع الرقم الأجمالي في اسفل الصفحة وهكذا كيف سوف تكون الطريقة والفكرة المتميزة من قبلكم طباعة ذكية.zip
  8. كيف اقوم بعمل طباعة سجل معين في قاعدة البيانات باستعمال مث الرقم التعريفي بحيث بعض المعلومات في تقرير
  9. السلام عليكم امثلة على طباعة السجل من (فورم ادخال وتعديل وبحث) الاصدار الثالث http://www.officena.net/ib/index.php?showtopic=51955 هذه ثلاثه امثله مختلفة في المرفق 1 - طباعة في مصنف جديد او من خلال الفورم اذا كانت الشاشة تظهر جميع بيانات السجل 2 - طباعة الى ورقة معينة في الملف حسب تنسيق معين لجميع بيانات السجل 3 - طباعة الى ورقة معينة في الملف حسب تنسيق معين لبعض بيانات السجل المرفقات 2003 فورم ادخال و تعديل مرن مع الطباعة 1.rar
  10. بسم الله الرحمن الرحيم مرحبا احبتي الكرام ,, اعذروني فها أنا اواصل سلسة استفادتي منكم عندي ملف اكسيل عايز كود يطبعلي عدد معين من الصفحات بس العدد ده حسب ماهو مذكور في خلية في الورقة يعني ممكن تشوفوا الكود كده Sheets("ورقة2").Select ActiveWindow.SelectedSheets.PrintOut From:=1, To:=5 أنا عايز بدل رقم 5 ويكون ثابت يطبع خمس صفحات لأ ازاي أخليه يقول إلى to مثلا إلى الرقم المكتوب في خلية a4 مع اعتبار أن الخية a4 فيها عدد الصفحات اتمني أنه يكون ينفع وشكراااااااااااااا بجد للمنتدي الرائع ده
  11. السلام عليكم ورحمته الله وبركاته السادة الزملاء برجاء الاطلاع على المرفق التالى ***** ربما هناك ماأغفو عنه الاضافة المطلوبة من داخل المرفق تقبلوا وافر تقديرى واحترامى **** وجزاكم الله خيرا طلب إضافة.xlsb.rar
  12. السلام عليكم ورحمنه الله وبركاته نشكر جميع الاخوة الافاضل عما يقدمه ابتغاء مرضاة الله المطلوب بإذن الله تعالى موضح من داخل المرفق شاكر فضل الجميع تعين طباعة ومعاينة اوراق متعدده.rar
  13. السلام عليكم ورحمته الله وبركاته بالمرفق التالى بيان أسعار بطريقة التليحق تم فى موضوع سابق بمعاونة زملائى الافاضل إخفاء المدى =فاتورة!$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
  14. السلام عليكم الأساتذة الافاضل يوجد كود للطباعة يعمل بشكل جيد ( 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) لكن لما اضفت حماية الورقة اصبح يظهر الخطأ كما في الصورة ولكن ليس دائما أحيانا واحيانا أخرى لما ازيل الخطأ واضغط على زر الطباعة يطبع دون ظهور الخطأ كما في اول مرة هل يوجد تعديل او إضافة على الحماية او على كود الطباعة جزكم الله خيرا
  15. حياكم الله ومساكم بالخير الطلب على النحو التالى معذرة إخوانى الافاضل بالمرفق التالى إجابة على تساؤلى بالرابط حيث كانت الافادة صائبة من الاخوين الكريمين الاستاذ / ياسر خليل والاستاذ / سعيد بيرم بعد الانتهاء من نقل البيانات تظهر رسالة تفيد أنتهاء نقل البيانات الاضافة المطلوبه هى إضافة رسائل MsgBox بالتوالى بطباعة محتوى الجدوال بالورقة 2 يتبع بعد ذلك مسح محتوى الورقة 1 من أول صف به بيانات حتى نهاية أخر صف يتبع بعد ذلك مسح محتوى نطاق البيانات بالورقة 2 من C8 الى X27 فقط دمتم بكل خير وشكرا جزيلا نقل بيانات كل 10 ثوانى.xlsb.rar
  16. بسم الله الرحمن الرحيم السلام عليكم الى الاساتدة الافاضل ابحث عن كود او طريقة (حفظ وطباعة ) السجل حالي نسختين بدون معاينة التقرير
  17. بسم الله الرحمن الرحيم اولا اريد ان اشكركم على المعلومات القيمة في هذا المنتدى الرائع ثانيا اريد ان استفسركم عن المشكل البرمجي الذي لم اعرفه حيث انني اريد ان اكتب عدد النسخ التي استطبع ان اطبعها و عند كتابتي للعدد في الخانة لا تطبع إلى صفحة واحدة فقط رغم انني حددت اكثر من صفحة وشكرا الملف المرفق http://www.gulfup.com/?eIUzfS
  18. بسم الله الرحمن الرحيم وبه نستعين الساده الزملاء الافاضل السلام عليكم جميعا ورحمته الله وبركاته وكل عام أنتم جميعا بخيرأينما كنتم داعيا المولى العلى القديرأن يتقبل منا جميعا صالح الاعمال انه ولى ذلك والقادرعليه تناول معظم الساده الزملاء الآفاضل بمنتدانا المتألق دوما موضوع تذيل اوراق العمل ومن خلال تنوع الافكارالتى قدمتومها حضراتكم تبين أن المشكلة مازلت قائمة حيث يعتمد موضوع التذيل على عدة عوامل أهمها ان يكون التذيل أسفل الجدول مباشرة سواء فى المطبوعات التجارية كالفواتير وايضا المطبوعات الحكومية ككشوف صرف المكافات والتى تعتمد على عدة توقيات فضلا عن عملية التفقيط فلابد من وجود فراغ ملائم ليحتوى على توقيعات الساده المسؤلون بالاضافة الى الاختام المطلوبه لاعتماد عملية الصرف فهناك فكرة ارجو من الله تعالى أن تكون موفقه لخدمة الجميع لذا نرجو من حضراتكم فضلا ان تساهموا فى تنفيذ هذه الفكرة لعلها تكون فيها النفع والافاده تعتمد فكرة الكود المطلوب على إدراك عدد 5 صفوف من بداية الصف الـــ 29 ثم نسخ محتوى التذيل المطلوب نسخة من الورقة "DATA" الى الورقة " مكافاة الثانويه العامه" ثم نسخ عدد 21 صف بنفس التنسيقات والمعادلات بداية من الـــ 8 الى 28 وهكذا وذلك من خلال فوروم بسيط يحتوى على الاوامرالتاليه ادرك الصفوف اولا ثم رساله " هل تريد نسخ محتوى التذيل المطلوب" ثم نعم ثم رساله أخرى " هل تريد نسخ الصفوف من 8 الى 28 " ثم نعم او كما تروه سيادتكم فضلا ملائما لتنفيذ هذه المحاولة دامت دياركم وديارنا عامرة بنورالايمان ...... تقبلوا وافر احترامى وتقديرى وجزاكم الله خيرا
  19. اخواني الاعزاء واستاذتي الفاضل لقد تناول اخواني بالمنتدي موضوعات كثيرة حول استخراج كشف حساب بالاكواد لكن اليوم سوف نتاول معا كشف الحساب عن طريق الفورم مع استخراج قيد اليومية الخاص بحركة معينة وقد استخدمت في الشرح مشاركة سابقة لاخي ومعلمي الاستاذ / عبدالله باقشير (بارك الله فيه وجعل جميع اعماله في ميزان حسناته) وبعد اذن ادارة المنتدي قمت بفتح مشاركة جديدة لتسهيل عملية الوصول للموضوع وحتي يستفيد منه عدد كبير ولسهولة البحث واضفت شرح تفصيلي لكشف الحساب بالفورم في موضوعي ((امثلة عن كيفية استخدام أدوات الفورم (( متجدد ان شاء الله)) علي الرابط التالي http://www.officena.net/ib/index.php?showtopic=47476&p=293524 ادعوا الله سبحانه وتعالي اكون وفقت في عرض وشرح الموضوع ولا تنسونا بدعوة بصلاح الحال في ظهر الغيب كشف الحساب.rar
  20. يحتوى برنامج الفيزيو 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
  21. السادة الخبراء اريد طباعة تحديد معين من صفحة شيت اكسل ولكن هذا التحديد اكبر من مقاس الورقة A4 فهل ممكن نجعل اكسل يصغر زوم الطباعة اتوماتك لكى يتناسب مع حدود الطباعة ارجو اكون وضحت الفكرة جزاكم الله كل خير
  22. بناء علي طلب اخي الحبيب// محمد مصطفى ابو حمزة في موضوع (كود طباعة كل الورق) المشاركة رقم (9) علي الرابط http://www.officena.net/ib/index.php?showtopic=47355 ففضلت ان تكون موضوع منفصل حتي تعم الفائدة مع امكانية اختيار الطابعة اذا كانت اكثر من طابعة مثبتة علي الجهاز الفورم بالمرفقات Print List.rar
  23. اريد طباعة محددة بستثناء الصفوف الفارغه من حيث إذا زاد أسم في صف من الصفوف الفارغه تشملة الطباعة . المرفق موجود طباعة.rar
  24. بسم الله الرحمن الرحيم الأخوة الأعضاء تحية طيبة ارفق لكم نسخة من ملف وهو عبارة عن مجهود عظيم لمجموعة عطرة من المشرفين وألأعضاء في هذا المنتدى الكريم الملف عبارة عن فورم استخلاص بيانات نقل وصرف مبلغ للسائق ولكن ماهو مطلوب اليوم استخراج نسختين من الفورم في ورقة واحدة بحيث اذا تمت الطباعة من ايقونة الطباعة او طباعة متعدده تخرج لي نسختان من كل سائق ( يحمل الرقم التسلسلي نفسه ) لاني اعاني من مسألة اعادة الطباعة لكل سائق كثرا ............ اتمنى قد اوصلت الفكرة لكم وتقبلوا تقديري اخوكم ابو شرف فورم نقل.rar
  25. السلام عليكم ورحمة الله تعالى وبركاته ومبارك عليكم الشهر أعاننا الله وإياكم على الصيام والقيام وصالح الأعمال ويسعدني تواجدي معكم في هذا المنتدى الجميل * * * نعاني يا أحباب من هذه المشكلة منذ فترة في العمل لدي ولدى عدد من الزملاء ظهرت فجأة ولا ندري ما السبب * * * با اختصار يتم تقسيم صفحة Excel إلى عدة صفحات وعند معاينة الطباعة يختفي هذا التقسيم ولكن عند النقر على زر الطباعة تظهر الصفحة الواحدة في الطابعة مجزأة إلى عدة صفحات كما هو واضح في الصور هنا في انتظار توجيهكم بارك الله في جهودكم