mohgadal قام بنشر أبريل 21, 2008 قام بنشر أبريل 21, 2008 كيف اخباركم شباب ...اريد عمل زر طباعة مدى محدد من البيانات ...ارجو شرح الطريقة بدون ارسال ملف لان الملفات لا تفتح عندي ... (الخطوات ) بالتفصيل .. وشكراً لكم
ابوالزوز قام بنشر أبريل 22, 2008 قام بنشر أبريل 22, 2008 السلام عليكم ,, أخي لا بد أن ترسل ملفك ليتم تحديد الأعمدة والأسطر التي سوف تطبع تقبل تحياتي ..
GHMN7174 قام بنشر مايو 2, 2008 قام بنشر مايو 2, 2008 اخى اكتب هذا الكود فى الفيجول بيسك فى صفحة التى تريد طباعة المدى بها اعمل 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
ابوالزوز قام بنشر مايو 2, 2008 قام بنشر مايو 2, 2008 (معدل) السلام عليكم ،، هذا الكود من إحدى مشاركات أستاذنا الفاضل أبو تامر يمكنك وضعه في زر لكن عليك تغيير العناصر المتغيرة بحسب ما يناسبك فيه فهو يحدد تلقائياً منطقة الطباعة حتى آخر سطر تمت الكتابة فيه ثم يطبع LastRow = Sheet1.Cells(Rows.Count, "A").End(xlUp).Row Sheet1.PageSetup.PrintArea = "$A$1:$D$" & LastRow . Sheet1.PrintOut تم تعديل مايو 2, 2008 بواسطه abuzzouz
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.