هانى ارنست قام بنشر مارس 26, 2016 مشاركة قام بنشر مارس 26, 2016 اريد طباعة بيانات من ورقتين مختلفتين فى اكسيل على سبيل المثال لو فرضنا عاوز اطبع جدول مكون من عمودين فقط الى جدول كبير بالصفحة الاخير على ان يتم وضع الجدول المكون من عمودين على الجانب الايمن او الايسر حاولت اعملها من تخطيط الصفحة ولاكن لا اريد من اخوتى فى منتدى اوفسينا الاعزاء مسعدتى فى ذلك رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر مارس 26, 2016 مشاركة قام بنشر مارس 26, 2016 أخي الكريم هاني هلا أرفقت ملف لتتضح صورة طلبك ؟ هل الطباعة مطلوبة على ورقة واحدة ؟ أم ماذا؟ رابط هذا التعليق شارك More sharing options...
هانى ارنست قام بنشر مارس 27, 2016 الكاتب مشاركة قام بنشر مارس 27, 2016 شكرا على الرد نعم اريد طباعة بيانات من الشيت الاول A و الشيت الثانى B فى ورقة واحدة كما هو موضح فى المرفق طبع.rar رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر مارس 27, 2016 مشاركة قام بنشر مارس 27, 2016 أخي الكريم هاني آرنست يمكن عمل ورقة عمل بشكل مؤقت تجمع بين ورقتي العمل ثم طباعة الورقة الجديدة وفي نهاية المطاف يتم حذف ورقة العمل المؤقتة .. هذه هي فكرة الكود Sub Test() Dim strAddress As String Application.ScreenUpdating = False On Error Resume Next Application.DisplayAlerts = False Sheets("Temp").Delete Application.DisplayAlerts = True On Error GoTo 0 Sheets("A").Copy After:=Sheets(Sheets.Count) ActiveSheet.Name = "Temp" With Sheets("Temp") Sheets("B").Range("A3:C" & Sheets("B").Cells(Rows.Count, "A").End(xlUp).Row).Copy .Cells(3, .Cells(3, .Columns.Count).End(xlToLeft).Column) strAddress = .Range("A3").CurrentRegion.Address .PageSetup.PrintArea = strAddress .PrintPreview Application.DisplayAlerts = False .Delete Application.DisplayAlerts = True End With Application.Goto Sheets("A").Range("A1") Application.ScreenUpdating = True End Sub أرجو أن يكون المطلوب إن شاء الله وإليك الملف المرفق فيه تطبيق الكود .... تقبل تحياتي حمل الملف من هنا رابط هذا التعليق شارك 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.