وعليكم السلام -اهلا بك فى المنتدى
عليك برؤية هذا الرابط من داخل المنتدى
https://www.officena.net/ib/topic/49169-شرح-تحويل-ملف-الاكسل-الى-exe-ثم-تغيير-الايقونة-ثم-setup-شوقي-ربيع/
تفضل-ولكن كا ن عليك من البداية رفع ملف تجنبا لإهدار الوقت وشرح لما تريد بالضبط
فعليك بتغيير النطاق بالكود لما تريد
Sub print_out()
Sheets("Sheet1").Range("a2:g100").PrintOut
End Sub