كود لتثبيت اعدادات الطباعة

[أبو زهرة]

السلام عليكم

عند اعداد الصفحة وتجهيزها للطباعة مثلا تخرج على صفحتين

الاحظ عند تشغيل الشيت على جهاز اخر يتم اخراج الطباعة على 3 صفحات بدلا من 2

فهل يوجد كود لتثبيت اعدادت الطباعة

ولكم جزيل الشكر

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

ممكن ترفق ملف بعد إذنك أخي الحبيب

[أبو زهرة]

 

ممكن ترفق ملف بعد إذنك أخي الحبيب

 

تفضل

طباعة.rar

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

الأخ الحبيب محمد رزق

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

أو جرب أن تدخل على إعدادات الصفحة ثم اختر Fit to واكتب 2 في الخانة الأولى و 2 في الخانة الثانية

[علي المصري]

جرب الكود التالي

حيث الكود التالي يعمل على الطباعة في صفحة واحد افقية وعرضية

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

جرب ووافني بالنتيجة

[علي المصري]

كود كامل للطباعة

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

[أبو زهرة]

كود كامل للطباعة

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

انسخ هذا الكود في موديول جديد

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

 

مرفق ملفك بعد التعديل

السلام عليكم. جزاك الله خيرا. استاذ/ على

على الكود الاخير . ولكن هل يمكن اضافة جزء له بحيث لايظهر الصف الفارغ فى الطباعة

[علي المصري]

جرب التالي

'
    Application.ScreenUpdating = False
     'اخفاء الصفوف الفارغة
      Selection.AutoFilter
    ActiveSheet.Range("$A$10:$BD$128").AutoFilter Field:=1, Criteria1:="<>"
  
  With ActiveSheet.PageSetup
        .Zoom = False
        .FitToPagesWide = 2
        .FitToPagesTall = 1
    On Error Resume Next
    End With
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False

'إظهار الصفوف الفارغة
    Selection.AutoFilter
    ActiveSheet.Range("$A$10:$BD$128").AutoFilter Field:=1
    Range("E18").Select
Application.ScreenUpdating = True
End Sub

[احمد حبيبه]

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

كود اكثر من رائع لاستاذنا على المصرى 

لكن لى طلب بسيط عند حضرتك

هل من الممكن ضبط الكود لطباعه عدد معين من الصفوف بجميع الصفحات وليكن كل صفحة 25 صف .....واشكرك جدا أخرى الفاضل