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

[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

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.