كود طباعة وحذف صفوف

[علي عبد المنعم]

كود لطباعة مدى يتم تحديدة من خلال قيم خلايا

كود طباعة.xlsx

[علي المصري]

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

    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

 

[سليم حاصبيا]

ممكن تجربة هذا الملف

الكود

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

[علي عبد المنعم]

الاكواد لاتعمل معي برجاء وضعها في الملف // جايز الغلط في التطبيق منى 

[سليم حاصبيا]

8 دقائق مضت, علي عبد المنعم said:

الاكواد لاتعمل معي برجاء وضعها في الملف // جايز الغلط في التطبيق منى 

الأكواد جاهزة للعمل (لا تحذف الصقوف  بل تخفيها -  لا تظهر بالطباعة    - لأنه ربما احتجت اليها لا حقاً)

لكن اذا كنت لا تريد عرض الطباعة  استبدال 

.PrintPreview

بــ

.PrintOut

 

[علي المصري]

بعد اذن استاذنا الفاضل الاستاذ سليم

اجريت التعديل التالي على الكود الأول

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