تكبير الخط عند الطباعة

[محمد عبدالسلام]

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

أساتذتي الكرام في الملف المرفق عند الطباعة تخرج الخطوط صغيرة جدا فما هو الحل

 

invoice2.zip

[احمد بدره]

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

تم الحل  بالتعديل في الملف وإعدادات الصفحة والماكرو  وجعل الصفحة بالطول وليس العرض

والكتابة واضحة جدَا في الملف والأرقام جعلتها تظهر باللغة العربية والتاريخ جعلته يظهر باللغة العربية وتنسيق يوم - شهر - سنة

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

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

invoice2.zip

[محمد عبدالسلام]

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

بالضبط هو المطلوب أخي الكريم جزاك الله خيرا

كنت ابحث في المنتدى فوجدت هذا الكود من الأخ حمادة باشا

  حاولت أن اظيفه ولكن لعدم المعرفة بأكواد الفي بي إيه لم استطع تعديله

لو تتكرم علي بأن تبين لي الطريقة

اريد اضافة في الملف هدا الكود لتكبير الخط عند الطباعة

 

 

Sub MyPrint()
Application.ScreenUpdating = False
With ActiveSheet.PageSetup
    CurrentZoom = .Zoom
    .Zoom = False
    .FitToPagesWide = 1
    .FitToPagesTall = 1
End With
With Sheets("جدول دفع الإستشارة (3)")
    With .UsedRange
        For i = 1 To .Rows.Count
            If .Cells(i, 1).Value = "" Then
                .Cells(i, 1).EntireRow.Hidden = True
            End If
        Next i
    End With
    .PrintOut
    .Rows.Hidden = False
End With
With ActiveSheet.PageSetup
    .Zoom = CurrentZoom
End With
Application.ScreenUpdating = True
End Sub

 

تم تعديل سبتمبر 1, 2018 بواسطه محمد عبدالسلام

[محمد عبدالسلام]

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

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

وكيفه جعلت الكتابة واضحة جدَا في الملف

جزاك الله خيرا

تم تعديل سبتمبر 1, 2018 بواسطه محمد عبدالسلام

[احمد بدره]

كود الأستاذ / حمادة لا يتمشي مع هذا الملف لأن هذا الملف أصبح ضبط إعدادت الصفحة إلى نسبة 100% وبالتالي لا يقوم بتغيير نسبة إعدادات الصفحة

لتغيير إعدادت الصفحة اضغط قائمة تخطيط الصفحة واختر على السهم الموجود لأيسر كلمة إعدادات الصفحة

يظهر صندوق به 4 تبويبات اختر تبويب صفحة واضغط على اتجاه عمودي

وعند تغيير الحجم اجعل الضبط 100% واجعل الملائمة 1 طول و 1 عرض

وبعد ذلك قم بالذهاب إلى ورقة العمل وضبط عرض الأعمدة بما يتاسب معي

بالنسبة لتعديل الماكرو جعلت الفلترة من العمود F حتى يتم إظهار الإجمالى في الفاتورة

وأخيرًا تم تعديل الملف وتكبير حجم الخط دون الخروج عن الخلية

والسؤال هل الضغط على لايك بعد تنفيذ المطلوب أمر صعب 

invoice2.zip

[محمد عبدالسلام]

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

اسف اخي على  كثرة الأسئلة

فعلاً  اخي لقد أدهشتني الطريقة التي استطعت من خلالها

ضبط الملف منذ فترة طويلة وانا احاول ضبط اطباعة بهده طريقة ولم استطيع

ممكن توضح لي اكثر  كيفية عمل ذلك

حاولت أن طتبق طريقة في شرح ولكن لقلت خبراتي لم استطيع

ممكن شرح كمتال  فيديو اوتصوير لوسمحت لتكون الفكره اسهل

جزاكم الله خير الجزاء وجعله في ميزان حسناتك

 

 

تم تعديل سبتمبر 2, 2018 بواسطه محمد عبدالسلام

[محمد عبدالسلام]

الله

[احمد بدره]

عذرًا لم أستطع تسجيل فيديو وذلك لأن تليفوني ليس به فيديو  فبعون الله جعلت الشرح في صورتين

[محمد عبدالسلام]

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

جزاك الله خير الجزاء وجعله في ميزان حسناتك

ولكن لدي طلب اخر

واعتدير اخي على كثرة الاسئلة

ممكن طريقة لتكرار العناوين في صفحة الطباعة

عنوان في اعلى الفاتورة الأخر في اخير الورقة طباعة

 

 

 

 

 

تم تعديل سبتمبر 2, 2018 بواسطه محمد عبدالسلام

[عبدالله الصاري]

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

تفضل اخي العزيز

قم بتعبئة الفاتورة الى صفحتين او اكثر ثم اطبغ

invoice2.xlsm

 

[محمد عبدالسلام]

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

عبدالله الصاري

بارك الله فيك اخي على مجهوداتك وعلى اهتمامك

اريد تكرار في أعلى كل صفحة الطباعة

وفي اسفل كل صفحة

 

 

 

تم تعديل سبتمبر 2, 2018 بواسطه محمد عبدالسلام

[احمد بدره]

'شرح الكود

Sub معاينة_مع_الطباعة()

'الإعلان عن ماكرو باسم ( معاينة _ مع _ الطباعة )  لاحظ وجود شرطة بين كل كلمة وأخرى في الاسم لأنه ينبغي ألا يتخلل الاسم فراغ
  Range("f10:f132").AutoFilter Field:=1, Criteria1:="<>"

' هذا الكود خاص بالفلترة في العمود F ابتداءًا من الخلية F10:F132 بشرط ألا تكون الخلية فارغة فبذلك يتم ظهور الصفوف الغير فارغة

' فلذلك يظهر الجزء الأعلى والجزء الأسفل في الطباعة

ActiveWindow.SelectedSheets.PrintPreview

' تنشيط المعاينة قبل الطباعة
A = MsgBox("هل تود الطباعة بعد المعاينة؟", vbYesNo + vbQuestion, "طباعة")

' رسالة الطباعة وبها اختيار أمر Yes و No
If A = vbYes Then

With ActiveSheet
.PrintOut
End With

' إذا تم الاختيار Yes يقوم بالطباعة

End If
Range("A1").Activate
 ' تنشيط الخلية A1
  Range("f8:f132").AutoFilter

'إلغاء الفلترة ابتداء من الخلية F8:F132

' لاحظ الأمر إلعاء الفلترة بدء من خلية غير مخفية وانتهى أيضَا بخلية غير مخفية
End Sub

' إنهاء الماكرو

' ملحوظة لنسخ الكود مع الشرح يجب اختيار ( اللغة العربية ) في الجهاز قبل نسخ الكود . وتم وضع العلامة ' بالضغط على 'حرف( ط)

'

'وأتنمنى أن أكون وُفِقْت في توصيل المعلومة

'بالنسبة للسؤال تكرار أعلى كل صفحة انظر الصورة المرفقة  أما تكرار أسفل الصفحة فلا يوجد طريقة

 

تم تعديل سبتمبر 3, 2018 بواسطه ahmedkamelelsayed0

[محمد عبدالسلام]

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

حياك الله يا اخي الحبيب

بارك الله فيك  على هذا الجهود وهدا الشرح الوافي  

وجزاكم الله خير الجزاء وجعله في ميزان حسناتك

كنت اعتقد ان هناك طريقة لتكرا الجزء الأعلى والجزء الأسفل

ولكن للأسف لا توجد طريقة

جزاك الله خيرا

 

 

 

 

[محمد عبدالسلام]

 

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

اخواني الكرام لطلب في هدا الموضوع القديم

أريد ضبط صفحة الطباعة وتجاه اوفقي

وجزاكم الله خيرا