طباعة بشرط إخفاء تذييل بيان أسعار عند طباعة النسخة الاولى

[أبو عبد الرحمن سعيد]

اخى الحبيب الغالى // ابو البراء

السلام عليكم ورحمته الله وبركاته

بداية جزاكم الله خيرا

 وأعتذر للعودة مرة أخرى بشأن هذا الموضوع

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

عند توسيط التذييل بالورقة " data "  أو جعل محتوى التذييل ليبدأ من الخلية A بدلا من الخلية B بداية من الصف الثالث

حتى أتحكم فى التنسيق العام لبيان الاسعارعند طباعته

فما السبيل لتجنب تلك العقبة ***** وافر تقديرى واحترامى **** وجزاكم الله خيرا

فاتورة مبيعات بنظام القرش والجنيه مع التفقيط+5555.rar

[أبو عبد الرحمن سعيد]

للرفع

[أبو عبد الرحمن سعيد]

للرفع

[أبو عبد الرحمن سعيد]

اخى الحبيب الغالى // ابو البراء

السلام عليكم

برجاء الاطلاع على المرفق السابق

بالورقة " data " محتوى التذييل وهو فى الاصل يبدأ من الصف الثالث " بداية من الخلية B3 "

مع ترحيل محتوى التذييل ليبدأ من الخلية A3 أو عمل توسيط له يحدث مشكلة فى إدراك 

التفقيط  وعبارة " ماعدا السهو والخطأ "  المدونون فى الموديول رقم 3 " فى غير محلهما بمقدار صفين لاسفل "

حيث يتم إدراكهم بالصفوف 44 و 45 فهل يمكن التعديل على ادراكهم بالصفوف 42 و 43 مع عملية توسيط التذييل

هذا نظرا لعدم إنسيابية المظهرالعام لبيان الاسعار عند طباعته

معلشى تعبتك معايا محتسبا ماتقدمه إبتغاء مرضاة الله فى موازين حسناتكم

وافر تقديرى واحترامى وجزاكم الله خيرا

تم تعديل يناير 29, 2016 بواسطه سعيد بيرم

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

صراحة لم أفهم المطلوب ..........بشكل واضح

لا أدري أي الأكواد تقصد وما هي شكل المخرجات بالشكل الذي ترغبه

عموماً جرب التعدل في هذا الكود لعله يكون المطلوب

Sub Copier_Data()
    Dim Sh As Worksheet: Set Sh = Sheets("data")
    Dim sh2 As Worksheet: Set sh2 = Sheets("فاتورة")
    Dim LR As Long: LR = sh2.Cells(sh2.Rows.Count, 1).End(xlUp).Row + 1
    Sh.Rows("1:5").Copy
    sh2.Range("A" & LR + 1).Select: ActiveSheet.Paste
    ActiveSheet.PageSetup.PrintArea = "$A$1:$I" & LR + 5
End Sub