ظهور مشكلة وخطأ بالكود

[ابو طيبه]

السلام عليكم ممكن اعرف شنو سبب الخطآ  علما ان الكود يعمل بشكل طبيعي عند ربط المايكرو بالشكل المدرج على الشيت. اما عند ربط الكود على الفورم فيظهر هذا الخطأ كما في الصورتين مع جزيل الشكر

[سليم حاصبيا]

في قائمة Dim (قبل ScreenOff) اكتب هذا السطر:

$Dim return_Sh

 

[حسين مامون]

اكتب ما قال الاستاذ سليم

وغير السطر المضلل الى set return_sh = Activesheet.name

[ابو طيبه]

هذا الملف المرفق فان الكود يعمل عند تنفيذه من الشيت مباشرة ولا يعمل على الفورم

مع تحياتي لكم

المصنف1.xlsm

[سليم حاصبيا]

لا ضرورة لهذه الكمية من الأعمدة المدمجة (الملف يجب ان يكون كما في المرفق)

الكود ما يجب ان يكون

Sub Print_Selection()
   
    Dim Rng As Range
    Dim But As Worksheet
    Dim Source_sh As Worksheet
    Dim Where As Range

ScreenOff
Set But = Sheets("ورقة2")
Set Source_sh = Sheets("ورقة1")
Set Where = But.Range("B3")
But.Cells.Clear
Source_sh.Select
'===============================================================
Set Rng = Selection
If Rng.Cells.Count = 1 Then
 MsgBox "Please select a range in the sheet: " & _
 Source_sh.Name
End If
'Rng.Interior.ColorIndex = 4
Rng.Copy
Where.PasteSpecial (xlValues)

Application.CutCopyMode = False
'Rng.Interior.ColorIndex = xlNone
Rng = vbNullString

With But
 .PageSetup.PrintArea = _
 .Range("B3").CurrentRegion.Address
 .PrintPreview  'Replace by .PrintOut
End With
Source_sh.Select
'===============================================================
ScreenOn

End Sub

الملف مرفق

 

Abou_Tiba.xlsm

[ابو طيبه]

شكرا جزيلا استاذ سليم العزيز لجهودك المبذوله جعلها الله في ميزان حسناتك وكل عام وانت بالف خير وصحه وسعاده