ممكن كود للطباعة مباشرة

[hitech]

ممكن كود للطباعة مباشرة

تم تعديل أبريل 22, 2019 بواسطه hitech

[Ali Mohamed Ali]

تفضل-ولكن كا ن عليك من البداية رفع ملف تجنبا لإهدار الوقت وشرح لما تريد بالضبط

فعليك بتغيير النطاق بالكود لما تريد

Sub print_out()
Sheets("Sheet1").Range("a2:g100").PrintOut
End Sub

 

[hitech]

ولو كود للمعاينة استاذى الفاضل والف شكر لحضرتك

تم تعديل أبريل 22, 2019 بواسطه hitech

[Ali Mohamed Ali]

يكون الكود كالتالى

Sub print_out()
Sheets("Sheet1").Range("a2:g100").PrintPreview
End Sub
 

 

 

تم تعديل أبريل 22, 2019 بواسطه ali mohamed ali

[hitech]

استاذ على فى الطريقة العادية بضغط طباعة بدون ما احدد رينج ثم ورقة واطبع عادى الكود الاول هيعطينى نفس النتيجة بدون ما اعمل الخطوات ده والف شكر لجضرتك يا غالى

[مهند محسن]

أحسنت استاذ علي أكواد ممتازة بارك الله فيك

وبالتأكيد تكفى للغرض وأكثر جعله الله فى ميزان حسناتك وزادك الله من فضله

واعتقد انه من الواجب على كل من يقوم بطرح تساؤل  اقل حاجة ان يقوم بالضغط على اعجاب لمن قدم اليه الحل او المساعدة -جزاكم الله جميعا كل خير

تم تعديل أبريل 22, 2019 بواسطه مهند محسن

[Ali Mohamed Ali]

بارك الله فيك اخى الكريم والحمد لله الذى بنعمته تتم الصالحات