سـامي 169
-
Posts
269 -
تاريخ الانضمام
-
تاريخ اخر زياره
Community Answers
-
سـامي 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