اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

كود طباعه


الردود الموصى بها

اخي

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

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

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • اضف...

Important Information