اريد كود طباعة

[هانى ارنست]

اريد طباعة بيانات من ورقتين مختلفتين فى اكسيل

على سبيل المثال لو فرضنا عاوز اطبع جدول مكون من عمودين فقط    

الى جدول كبير بالصفحة الاخير  على ان يتم وضع الجدول المكون من عمودين  على الجانب الايمن او الايسر

حاولت اعملها من تخطيط الصفحة ولاكن  لا

اريد من اخوتى فى منتدى اوفسينا الاعزاء مسعدتى فى ذلك

[ياسر خليل أبو البراء]

أخي الكريم هاني

هلا أرفقت ملف لتتضح صورة طلبك ؟

هل الطباعة مطلوبة على ورقة واحدة ؟ أم ماذا؟

[هانى ارنست]

شكرا على الرد

نعم اريد طباعة بيانات من الشيت الاول A  و الشيت الثانى B فى ورقة واحدة

كما هو موضح فى المرفق

طبع.rar

[ياسر خليل أبو البراء]

أخي الكريم هاني آرنست

يمكن عمل ورقة عمل بشكل مؤقت تجمع بين ورقتي العمل ثم طباعة الورقة الجديدة وفي نهاية المطاف يتم حذف ورقة العمل المؤقتة .. هذه هي فكرة الكود

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

أرجو أن يكون المطلوب إن شاء الله

وإليك الملف المرفق فيه تطبيق الكود ....

تقبل تحياتي

 

حمل الملف من هنا