كود طباعه

[ابو حمادة]

اتمنى من الاخوة الكرام عمل كود طباعه

مرفق ملف واتمنى لو امكن شرح الكود لتطبيقي

 كود طباعه.rar كود طباعه.rar

كود طباعه.rar

[عادل حنفي]

اخي

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

باعتبار ان الموجود داخل الخلايا الاربعة عبارة عن اسماء شيتات

Sheets([C3]).PrintOut
Sheets([E3]).PrintOut
Sheets([C4]).PrintOut
Sheets([E4]).PrintOut

تحياتي

[علي المصري]

يمكنك استخدام الكود التالي

Sub PrintMe()
Application.SendKeys ("^p")
End Sub

سوف يظهر مربح حواري للطباعة

حدد الصفحات المراد طباعتها

 

كود طباعه.rar

كما يمكنك استخدام الكود التالي

    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1, Collate _
        :=True, IgnorePrintAreas:=False
    ActiveWindow.SelectedSheets.PrintOut From:=3, To:=4, Copies:=1, Collate _
        :=True, IgnorePrintAreas:=False

للاحظ ان الصفحات محددة من 1 إلى 2

و 3 إلى 4

يمكنك تغيرها كما تشاء

[علي المصري]

أو يمكن استخدام الكود الأخير بالشكل التالي

    ActiveWindow.SelectedSheets.PrintOut From:=Range("C3").Value, To:=Range("E3").Value, Copies:=1, Collate _
        :=True, IgnorePrintAreas:=False
    ActiveWindow.SelectedSheets.PrintOut From:=Range("C4").Value, To:=Range("E4").Value, Copies:=1, Collate _
        :=True, IgnorePrintAreas:=False

حيث انه يعتمد على القيم الموجودة في الخلايا

C3, E3  and   C4, F4

 

كود طباعه.rar