مساعدة في ماكرو طباعة

[شغب نت]

عملت ماكرو طباعة واريد تحديد عدد الصفحات المطبوعه

ارجو المساعده والشرح للتعليم

_________Microsoft_Excel_New___3_.rar

[ابو اسامة العينبوسي]

Sub ØÈÇÚÉ()
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Range("D6").Select
End Sub

set Copies:=1 or 2 or 3 ...... and so on

u can set the number of copies in a cell

Example

ActiveWindow.SelectedSheets.PrintOut Copies:=cells(1,1).value , Collate:=True

number of copies = the number in cell 1

Omar Haji

Abo Usama

تم تعديل نوفمبر 24, 2007 بواسطه ابو اسامة العينبوسي

[ابو اسامة العينبوسي]

المقصود اعلاه

تستطيع تحد ديد عدد النسخ من copies

غير 1 الى 2 او 3 او 4

او تستطيع اسناد عدد النسخ المطلوبه الى رقم تضعه في خليه معينه تريدها

و هى في المثال A1

و السلام عليكم

[شغب نت]

انا اريد ان يظهر لي مربع وانا من يحدد عدد النسخ

لاني مره احتاج طباعة ورقة ومره ورقتين وهكذا

[ابو اسامة العينبوسي]

السلام عليكم

شكرا لانك قبلت ان اشارك

ان لم تشكرنا نشكرك نحن

_________Microsoft_Excel_New___3_.rar

[شغب نت]

لم افهم مغزى كلامك

( ان لم تشكرنا نشكرك )

عموما تعلمت الكثير رغم قصر المده التي قضيتها معكم

وكلمة شكر قليله في حقكم