اذهب الي المحتوي
أوفيسنا

هل استطيع طباعة خلفية الاكسل ؟


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

السلام عليكم

اعمل تحديد ناحية الطباعه للمدى المراد

وإستخدم هذا الكود


Sub A()

On Error Resume Next

Dim ZO As Range

Set ZO = Range(ActiveSheet.PageSetup.PrintArea)

ZO.CopyPicture xlScreen, xlBitmap

ActiveSheet.Paste Destination:=ZO

ActiveWindow.SelectedSheets.PrintPreview

ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Delete

End Sub

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information