علي المصري

كود كامل للطباعة sub macro1 Application.ScreenUpdating = False With ActiveSheet.PageSetup .Zoom = False .FitToPagesWide = 2 .FitToPagesTall = 1 On Error Resume Next End With ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False end sub انسخ هذا الكود في موديول جديد ثم ارسم أي شكل تلقائي دلخل الصفحة المراد طباعتها وواربطه بهذا الماكرو مرفق ملفك بعد التعديل طباعة.rar

جرب الكود التالي حيث الكود التالي يعمل على الطباعة في صفحة واحد افقية وعرضية Application.ScreenUpdating = False With ActiveSheet.PageSetup .Zoom = False .FitToPagesWide = 1 .FitToPagesTall = 1 On Error Resume Next End With لصفحتين طوليا Application.ScreenUpdating = False With ActiveSheet.PageSetup .Zoom = False .FitToPagesWide = 1 .FitToPagesTall = 2 On Error Resume Next End With أو عرضيا Application.ScreenUpdating = False With ActiveSheet.PageSetup .Zoom = False .FitToPagesWide = 2 .FitToPagesTall = 1 On Error Resume Next End With جرب ووافني بالنتيجة

بالتوفيق إن شاء الله

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

أي ان المطلوب حتى ولو كان موجود صف أو صفين لابد من اظهار باقي العشرة فارغ

تفضل استاذ محمدعوض المطلوب في المرفق New Microsoft Office Access 2007 Database (4).rar

بعد اذن الاستاذ أبو خليل يمكن كتابة الكود بطريقة مختصرة جدا عن طريق خاصية ForceNewPage كما يلي مع وضع الكود في تنسيق التفصيل Detail_format text9 = هو حقل التسلسل في التقرير لابد من جعل مصدر هذا الحقل: = 1 واجراء الجمع على الكل أي control Source : =1 Running Sum : Over All ولو احببت ان تكون كل صفحة لها ترقيم خا ص أي يبدأ من 1 إلى 10 اجعل عملية الجمع على المجموعة Running Sum : Over Group ( لان العملية الحسابة مع mod ) بتبحث عن الرقم الذي يقب القسمة على 10 فإذا وجد رقم يقبل القسمة على 10 بعد 3 حقول سوف ينتقل إلى الصفحة التالية للتقرير ولذلك لابد من ضبط خاصية text9 إلى ما سبق توضيحه في كل من Control Source و Running Sum Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) If [Text9] Mod 10 = 0 Then Me.Detail.ForceNewPage = 10 Else Me.Detail.ForceNewPage = 0 End If End Sub اتمنى ان تنال اعجابكم item3.rar

الاستاذ الفاضل أبوخليل اتمنى ان تقوم بالتعديل على المرفق في المشاركة الاخيرة وجزاك الله خيرا

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

جرب الطريقة التالية عن طريق التنسيق الشرطي Visible Current Record.rar

-

السلام عليكم ورحمة الله وبركاته الجملة select لا تعمل في حالة الشيت المخفي فممكن حضرتك تجرب الطريقة التالية على الاكواد الخاصة بك قبل تنفيذ الكود اكتب Sheets("maindata").xlSheetVisible وبعد الانتهاء من المر المطلوب اكتب السطر التالي Sheets("maindata").xlSheetHidden ليكون الكود مثلا بالشكل التالي Range("A1:ao1000").Copy Workbooks.Open Filename:=PT & "\" & nm & ".xlsm" Sheets("maindata").xlSheetVisible Sheets("maindata").Select Range("aa1").Select ActiveSheet.Paste Sheets("maindata").xlSheetHidden    

لكن دا اكبر بكثير من أقصى حجم لقاعدة البيانات اكسيس عل ىحد علمي انه 2 جيجا بايت أن لم تخونني الذاكرة

السلام عليكم ورحمة الله وبركاته الاستاذ الفاضل أبوخليل مثال بسيط يوضح فكرتي AliElmasry.rar

بارك الله فيك وجزاك الله خيرا

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

شاهد الموضوع التالي للأستاذ أبوخليل ويوجد مواضيع اخرى في المنتدى http://www.officena.net/ib/index.php?showtopic=55055&hl=

ارفق ملف منهم في الموضوع ونبحث عن المشكلة سويا

السلام عليكم ورحمة الله وبركاته كتابة الاكواد ليست من مهاراتي ولا استطيع كتابة الاكواد في اكسيل إلا بعض الأكواد البسيطة اما الاكواد الاخرى والبرمجة في vba للاكسيل لا اجيدها بطريقة يتجعلني اشرح لحضرتك رحم الله إمرؤا عرف قدر نفسه فمسالة شرح الأكواد ممكن يقوم بها الاساتذة الافاضل ومنهم على سبيل المثال : خبور خير الذي استخدم كثيرا من الاكواد الخاصة به ومتأسف لعدم استطاعتي المساعدة

تفضل الملف تم التعديل على النسخة الموجودة بآخر مشاركة لي الجدول المدرسي 2015_AliElmasry.rar

رسالة " نوع قاعدة البيانات غير معروف او مدعم ) لربما يكون هناك خطأ في الاكسي او ربما يكون تم عمل قاعدة البيانات باصدار اكسيس 2007 او 2010 أو 2013 الافضل ارسل الملف نفسه

تفضل اخي الكريم وإذا اضفت حقل dept بعد حقل الاسم وتريد ان يظهر الادارة تلقائيا مع اختيار رقم الموظف اذهب إلى وضع التصميم للنموذج الفرعي وفي حدث بعد التحديث لرقم الموظف اضف السطر التالي Me.USER_NAME = Me.USER_ID.Column(2) New Microsoft Office Access 2007 Database.rar

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

جرب المرفق التالي 333_5.rar

ما فائدة وضع النماذج كلها في النموذج min