علي عبد المنعم قام بنشر يوليو 20, 2020 قام بنشر يوليو 20, 2020 كود لطباعة مدى يتم تحديدة من خلال قيم خلايا كود طباعة.xlsx
علي المصري قام بنشر يوليو 20, 2020 قام بنشر يوليو 20, 2020 كود لطباعة صفحات معينة On Error Resume Next ActiveWindow.SelectedSheets.PrintOut From:=Range(E1").Value, To:=Range("G1").Value, _ Copies:=1, Collate:=True, IgnorePrintAreas:=False كود لحذف عدد من الصفوف تحدد باستخدام خليتين i = Sheet1.Cells(1, 5) ' Cell E1 j = Sheet1.Cells(1, 7) ' Cell G1 Rows(i & ":" & j).Select Selection.Delete Shift:=xlUp Range("B2").Select 2
سليم حاصبيا قام بنشر يوليو 20, 2020 قام بنشر يوليو 20, 2020 ممكن تجربة هذا الملف الكود Option Explicit Sub My_Print_Area() Dim AdrE1, AdrG1 Dim AdrE2, AdrG2 With Sheets("ورقة1") .Rows.Hidden = False AdrE1 = .Range("E1"): AdrG1 = .Range("G1") AdrE2 = .Range("E2"): AdrG2 = .Range("G2") .Rows(AdrE2 & ":" & AdrG2).Hidden = True .PageSetup.PrintArea = _ .Range("A" & AdrE1 & ":B" & AdrG1).Address .PrintPreview End With End Sub '+++++++++++++++++++++++++++++++++++ Sub Show_all() With Sheets("ورقة1") .Rows.Hidden = False .PageSetup.PrintArea = _ .Range("a1").CurrentRegion.Address End With End Sub الملف مرفق Man3em.xlsm 1
علي عبد المنعم قام بنشر يوليو 20, 2020 الكاتب قام بنشر يوليو 20, 2020 الاكواد لاتعمل معي برجاء وضعها في الملف // جايز الغلط في التطبيق منى
سليم حاصبيا قام بنشر يوليو 20, 2020 قام بنشر يوليو 20, 2020 8 دقائق مضت, علي عبد المنعم said: الاكواد لاتعمل معي برجاء وضعها في الملف // جايز الغلط في التطبيق منى الأكواد جاهزة للعمل (لا تحذف الصقوف بل تخفيها - لا تظهر بالطباعة - لأنه ربما احتجت اليها لا حقاً) لكن اذا كنت لا تريد عرض الطباعة استبدال .PrintPreview بــ .PrintOut 1
أفضل إجابة علي المصري قام بنشر يوليو 26, 2020 أفضل إجابة قام بنشر يوليو 26, 2020 بعد اذن استاذنا الفاضل الاستاذ سليم اجريت التعديل التالي على الكود الأول Sub My_Print_Area() With Sheets("ورقة1") .Rows.Hidden = False .PageSetup.PrintArea = _ .Range("A" & Cells(1, 5) + 1 & ":B" & Cells(1, 7) + 1).Address .PrintPreview End With End Sub or Sub My_Print_Area() With Sheets("ورقة1") .Rows.Hidden = False .PageSetup.PrintArea = _ .Range("A" & Cells(1, 5) + 1 & ":B" & Cells(1, 7) + 1).Address .PrintOut End With End Sub
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.