[حل شده] پرینت تعداد بالا

[s.313]

سلام. من دو تا شیت دارم که یکی شیت دیتا یا همون اطلاعات و در شیت دیگه یک فرم طراحی کردم که با وارد کردن شماره ردیف اطلاعات افراد رو برام lookup میکنه.
اما وقتی نیاز به پرینت اطلاعات همه افراد باشه این کار سخت میشه. نمیخوام از word و mailing استفاده کنم. میخوام با vba کدی داشته باشم و دکمه ای که با استفاده از اون کل افراد رو برام پرینت بگیره. ضمنا تعداد افراد در شیت اطلاعات متغیره و ممکنه کم یا زیاد بشه. میخوام خودش تشخیص بده و برام همه رو پرینت بگیره.

[rasools13]

سلام
در يك سلول براي مثال A1 با استفاده از يكي از توابع COUNT تعداد رديف هاي جدول اطلاعات را محاسبه كنيد
و از كد ذيل براي پرينت اطلاعات استفاده كنيد

Sub MyPrint()
    Dim Row As Integer
    Row = Range("A1")
        On Error Resume Next
    For i = 1 To Row
        Sheets("FormSheet").Range("C1") = Row  'سلولي كه با شماره رديف اطلاعات را فراخواني ميكنيد             
       Sheets("Sheet1").PrintOut
    Next i
End Sub 

[s.313]

سلام
در يك سلول براي مثال A1 با استفاده از يكي از توابع COUNT تعداد رديف هاي جدول اطلاعات را محاسبه كنيد
و از كد ذيل براي پرينت اطلاعات استفاده كنيد

Sub MyPrint()
    Dim Row As Integer
    Row = Range("A1")
        On Error Resume Next
    For i = 1 To Row
        Sheets("FormSheet").Range("C1") = Row  'سلولي كه با شماره رديف اطلاعات را فراخواني ميكنيد             
       Sheets("Sheet1").PrintOut
    Next i
End Sub 

سلام. تشکر. عالی بود