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

سـامي 169

03 عضو مميز
  • Posts

    269
  • تاريخ الانضمام

  • تاريخ اخر زياره

Community Answers

  1. سـامي 169's post in تعديل اول كود لي .. خاص بمعاينه الورق was marked as the answer   
    وصلني هذا الحل السحري
    لكي يتم معاينه الصفحات المملوءه فقط
    فأحببت ان اشارك به
    لعله ينفع احد الاخوة
    Sub معاينه_طباعه() Dim SS As Integer ''من كنوز العلامة عبد الله باقشير SS = Range("عدد_الأوراق").Value * 34 Range("A1:L" & SS).RowHeight = 24 ActiveSheet.PageSetup.PrintArea = "$A$1:$L$" & SS ActiveWindow.SelectedSheets.PrintPreview [A7].Select End Sub كود معاينه مفيد.rar
×
×
  • اضف...

Important Information