وصلني هذا الحل السحري
لكي يتم معاينه الصفحات المملوءه فقط
فأحببت ان اشارك به
لعله ينفع احد الاخوة
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