اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

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

    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

 

  • Like 2
قام بنشر

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

الكود

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

  • Like 1
قام بنشر
8 دقائق مضت, علي عبد المنعم said:

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

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

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

.PrintPreview

بــ

.PrintOut

 

  • Like 1
  • أفضل إجابة
قام بنشر

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

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

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.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information