كود يحول اتجاه الصفحة اثناء معاينة الطباعة من عمودي الى افقي

نصر صالح · سبتمبر 18, 2013

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

**طارق محمود** · سبتمبر 18, 2013

السلام عليكم

أخي العزيز

أضف السطر التالي للكود قبل الأمر الموجود

ActiveSheet.PageSetup.Orientation = xlLandscape

ليصبح كالتالي

Private Sub CommandButton1_Click()
ActiveSheet.PageSetup.Orientation = xlLandscape
Range("a1:g23").PrintPreview
End Sub

نصر صالح · سبتمبر 18, 2013

شكرا جزيلا لك يا أستاذ هذا ما كنت ابحث عنه

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

الردود الموصى بها