الجزيرة قام بنشر نوفمبر 16, 2011 مشاركة قام بنشر نوفمبر 16, 2011 السلام عليكم ورحمة الله وبركاته تم شرح المطلوب في الملف المرفق ، مع خالص التحية والتقدير :) print.rar رابط هذا التعليق شارك More sharing options...
ابو اسامة العينبوسي قام بنشر نوفمبر 16, 2011 مشاركة قام بنشر نوفمبر 16, 2011 السلام عليكم Add this code to the botton in the main sheet Worksheets((Sheets(1).Range("t3").Value)).PrintOut رابط هذا التعليق شارك More sharing options...
هشام شلبى قام بنشر نوفمبر 16, 2011 مشاركة قام بنشر نوفمبر 16, 2011 السلام عليكم ======= ماشاء الله استاذنا الحبيب ابو اسامة فى المرفق نفس كود ابو اسامة مع تعديل طفيف " الكود كوده " طباعة ملف من قائمة.rar رابط هذا التعليق شارك More sharing options...
الجزيرة قام بنشر نوفمبر 16, 2011 الكاتب مشاركة قام بنشر نوفمبر 16, 2011 أحبائي الأستاذ / أسامه ، والأستاذ / هشام أشكركم للمساعده المعهوده أرغب بأن يتوجه الكود إلى ورقة الشهر ومن ثم نقلها إلى ورقة P ثم طباعتها بمعنى التعديل على الكود أدناه بما يتناسب طلبي :) Sub Prall2() Application.ScreenUpdating = False Worksheets ((Sheets(1).Range("t3").Value)) Range("A3:AG19").Select Selection.Copy Sheets("P").Select Range("A1").Select ActiveSheet.Paste Application.CutCopyMode = False Columns("A:B").Select Selection.ColumnWidth = 2 Columns("C:AF").Select Range("C3").Activate Selection.ColumnWidth = 6 Rows("1:17").Select Range("C2").Activate Selection.RowHeight = 25 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Range("A1").Select End Sub رابط هذا التعليق شارك More sharing options...
الجزيرة قام بنشر نوفمبر 16, 2011 الكاتب مشاركة قام بنشر نوفمبر 16, 2011 وهذا الملف بعد إدراج ورقة P print.rar رابط هذا التعليق شارك More sharing options...
الجزيرة قام بنشر نوفمبر 17, 2011 الكاتب مشاركة قام بنشر نوفمبر 17, 2011 شكراً لكم جميعاً تم عمل اللازم بعد تعديل طفيف على الكود :) رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.