أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
ashraf_hertlion hassona229-- لا تميز خلال هذه الفترة YasserKhalil مطلوب تعديل الكود للطباعة اكسيل اسئله واجابات


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





طباعة ورقة A5 مرتين في ورقة A4

السلام عليكم ورحمة الله وبركاته تم تصميم فاتورة على ورقة A5 اريد طباعة الفاتورة على ورقة A4 نسختين في نفس الورقة وذلك ..


موضوع مغلق


27-02-2021 11:54 صباحا
احمد سيف
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-08-2017
رقم العضوية : 229
المشاركات : 36
الجنس : ذكر
تاريخ الميلاد : 1-1-1988
يتابعهم : 2
يتابعونه : 0
قوة السمعة : 46
 offline 

2hKrB_فاتورةالسلام عليكم ورحمة الله وبركاته 
تم تصميم فاتورة على ورقة A5 اريد طباعة الفاتورة على ورقة A4  نسختين في نفس الورقة وذلك دون تكرارها على شيت الإكسيل
------------------------
اريد الطباعة تتم في الملف كما بالصورة التي بالاعلى وليس بالاسفل
 
  فاتورة2.png   تحميل png فاتورة2.png مرات التحميل :(1)
الحجم :(124.55) KB
 
  فاتورة.xlsx   تحميل xlsx مرات التحميل :(6)
الحجم :(14.862) KB



أفضل إجابة مقدمة من حسين مامون وهي:
جرب هذا الشيء
Option Explicit

Sub print_FC()
Dim RG1, RG2, RG3
Application.ScreenUpdating = False
 RG1 = Range("b1:k40").Copy
 RG2 = Range("u1").PasteSpecial
 RG3 = Range("af1").PasteSpecial
 Application.CutCopyMode = False
 Range("u1:ao40").PrintPreview
 Application.ScreenUpdating = True

End Sub

 
عرض الإجابة




02-03-2021 07:49 مساء
مشاهدة مشاركة منفردة [1]
حسين مامون
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 69
المشاركات : 172
الجنس : ذكر
الدعوات : 1
يتابعهم : 5
يتابعونه : 11
قوة السمعة : 957
عدد الإجابات: 22
 offline 
look/images/icons/i1.gif طباعة ورقة A5 مرتين في ورقة A4
جرب هذا الشيء
Option Explicit

Sub print_FC()
Dim RG1, RG2, RG3
Application.ScreenUpdating = False
 RG1 = Range("b1:k40").Copy
 RG2 = Range("u1").PasteSpecial
 RG3 = Range("af1").PasteSpecial
 Application.CutCopyMode = False
 Range("u1:ao40").PrintPreview
 Application.ScreenUpdating = True

End Sub

 
 
 
  فاتورة.xlsm   تحميل xlsm مرات التحميل :(7)
الحجم :(26.267) KB




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


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 03:18 صباحا