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

**ali.b** · 2018/01/14, 09:24

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

کد:

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