تثبيت حدود الطباعة للصفحة

[Mharee Accounting Albaig]

السلام عليكم 

اخواني الأعزاء اعضاء المنتدى الكرام 

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

هل من امكانية تثيبت التنسيقات على الفورمة الناسخة وعند اضافة اي كشف تكون حدود الطباعة ثابتة مجرد اعطي امر طباعة وهو يطبع على نفس الحدود 

اتمنى ان اكون اوصلت الفكرة 

رمضانكم كريم 

وتقبلوا تقديري 

حدود طباعة ثابتة.rar

[محمد هشام.]

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

في الجزء الأخير من الكود قم بإظافة هدا 

  With crWS.PageSetup
    xlSheet.PageSetup.PaperSize = .PaperSize
    xlSheet.PageSetup.Orientation = .Orientation
    xlSheet.PageSetup.LeftMargin = .LeftMargin
    xlSheet.PageSetup.RightMargin = .RightMargin
    xlSheet.PageSetup.TopMargin = .TopMargin
    xlSheet.PageSetup.BottomMargin = .BottomMargin
    xlSheet.PageSetup.HeaderMargin = .HeaderMargin
    xlSheet.PageSetup.FooterMargin = .FooterMargin
    xlSheet.PageSetup.PrintArea = .PrintArea
    xlSheet.PageSetup.PrintTitleRows = .PrintTitleRows
    xlSheet.PageSetup.PrintTitleColumns = .PrintTitleColumns
    xlSheet.PageSetup.Zoom = .Zoom
End With

ActiveWindow.View = xlPageBreakPreview
ActiveWindow.Zoom = 100

 

 

حدود طباعة ثابتة v2.xlsm

تم تعديل الأحد at 21:47 بواسطه محمد هشام.

[Mharee Accounting Albaig]

استاذ واجهت فشل في اضافة اكود لم استطيع 

مع التقدير

تم تعديل الأحد at 22:14 بواسطه Mharee Accounting Albaig

[Mharee Accounting Albaig]

جزاك الله خير الجزاء بحق هذا الشهر الفضيل

[elmansyeswa]

جعله الله بميزان حسناتك