پرینت فرم

[ali65e]

با سلام خدمت دوستان و اساتید عزیزم
دوستان متنی را در اکسل نوشته ام که در قسمتی از آن باید نام و نام خانوادگی افراد تایپ شود و سپس این متن پرینت شود.دوستان از انجایی که تعداد افراد بالا است آیا راهی وجود دارد که این پروسه به صورت خودکار ،توسط نرم افزار انجام شود؟
متنی که قرار است پرینت گرفته شود مشابه متن زیر است
ولی محترم دانش آموز....................
از شما دعوت می شود که در جلسه اولیا و مربیان مورخه 17/11/92 حضور بهم برسانید.

[Amir Ghasemiyan]

با سلام خدمت دوستان و اساتید عزیزم
دوستان متنی را در اکسل نوشته ام که در قسمتی از آن باید نام و نام خانوادگی افراد تایپ شود و سپس این متن پرینت شود.دوستان از انجایی که تعداد افراد بالا است آیا راهی وجود دارد که این پروسه به صورت خودکار ،توسط نرم افزار انجام شود؟
متنی که قرار است پرینت گرفته شود مشابه متن زیر است
ولی محترم دانش آموز....................
از شما دعوت می شود که در جلسه اولیا و مربیان مورخه 17/11/92 حضور بهم برسانید.

Sub printform()
Dim a As Range
For Each a In Range("[COLOR="#FF0000"]A1:A10
سلام دوست عزيز
ليست اسامي رو در ستون A قرار بدين و متنتون رو هم در C3 تا I5 قرار بدين. جاي خالي هم كه قرار هست اسم دانش آموز قرار بگيره E4 در نظر بگيرين.
اين يك مثال هست. خودتون اصلاحات لازمه رو انجام بدين

")
    If a.Value <> "" Then
        Range("[COLOR="#FF0000"]E4[/COLOR]").Value = a.Value
        Range("[COLOR="#FF0000"]C3:I5[/COLOR]").Select
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    End If
Next a
Range("[COLOR="#FF0000"]E4[/COLOR]").Value = ""
End Sub

[/COLOR]