ابو طيبه قام بنشر مايو 14, 2020 مشاركة قام بنشر مايو 14, 2020 تعديل على الكود لكي يعمل عندما تكون الصفحة محمية الملف والصورة توضح الخطآ وشكرا جزيلا لجهودكم طباعه.xls رابط هذا التعليق شارك More sharing options...
أفضل إجابة Ali Mohamed Ali قام بنشر مايو 14, 2020 أفضل إجابة مشاركة قام بنشر مايو 14, 2020 يمكنك استخدام هذا الكود لذلك Sub SelectPrintArea() Dim PrintThis As Range ActiveSheet.PageSetup.PrintArea = "" Set PrintThis = Application.InputBox _ (Prompt:="Select the Print Range", Title:="Select", Type:=8) PrintThis.Select Selection.Name = "NewPrint" ActiveSheet.PageSetup.PrintArea = "NewPrint" ActiveSheet.PrintOut End Sub Print.xls 3 رابط هذا التعليق شارك More sharing options...
ابو طيبه قام بنشر مايو 16, 2020 الكاتب مشاركة قام بنشر مايو 16, 2020 الحمد الله تم عمل الكود بنجاح بارك الله بجهودكم 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.