(آموزشی) کد پرینت از رنج های استفاده شده

[ali.b]

البته قبلش لازمه که ابتدا شیت مورد نظر رو بر اساس تنظیمات پرینتر تنظیم بشه
کد اول

sub print1()
Dim lastrow As Long
lastrow = ActiveSheet.UsedRange.Rows.Count
ActiveSheet.PageSetup.PrintArea = Range("A1:G" & lastrow).Rows.SpecialCells(xlCellTypeVisible).Address
ActiveSheet.PrintPreview
end sub

کد دونم

sub print2()Range("A1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveSheet.PageSetup.PrintArea = Selection.Address
    ActiveSheet.PrintPreview
end sub