عمل زر طباعة مدى محدد

[mohgadal]

كيف اخباركم شباب ...اريد عمل زر طباعة مدى محدد من البيانات ...ارجو شرح الطريقة بدون ارسال ملف لان الملفات لا تفتح عندي ... (الخطوات ) بالتفصيل ..

وشكراً لكم

[ابوالزوز]

السلام عليكم ,,

أخي لا بد أن ترسل ملفك ليتم تحديد الأعمدة والأسطر التي سوف تطبع

تقبل تحياتي ..

[GHMN7174]

اخى اكتب هذا الكود فى الفيجول بيسك فى صفحة التى تريد طباعة المدى بها

اعمل CommandButton1 فى الصفحة واربطه الكود

بذلك عند الضغط علية سوف يطبع المدى

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

Private Sub CommandButton1_Click()

Range("A1:V47").Select

ActiveSheet.PageSetup.PrintArea = "$A$1:$V$47"

ActiveWindow.SelectedSheets.PrintOut Copies:=1

ActiveSheet.PageSetup.PrintArea = ""

End Sub

[ابوالزوز]

السلام عليكم ،،

هذا الكود من إحدى مشاركات أستاذنا الفاضل أبو تامر

يمكنك وضعه في زر لكن عليك تغيير العناصر المتغيرة بحسب ما يناسبك فيه

فهو يحدد تلقائياً منطقة الطباعة حتى آخر سطر تمت الكتابة فيه ثم يطبع

        LastRow = Sheet1.Cells(Rows.Count, "A").End(xlUp).Row
        Sheet1.PageSetup.PrintArea = "$A$1:$D$" & LastRow            .
        Sheet1.PrintOut

تم تعديل مايو 2, 2008 بواسطه abuzzouz