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

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

قام بنشر

السلام عليكم

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

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


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