نمایش نتایج: از شماره 1 تا 2 , از مجموع 2

موضوع: پرینت فرم

  1. #1


    آخرین بازدید
    2022/03/22
    تاریخ عضویت
    December 2013
    نوشته ها
    120
    امتیاز
    29
    سپاس
    99
    سپاس شده
    28 در 23 پست
    سطح اکسل
    5.00 %

    پرینت فرم

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

  2.  

  3. #2


    آخرین بازدید
    21 ساعت پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,469
    امتیاز
    12312
    سپاس
    8,924
    سپاس شده
    10,583 در 3,742 پست
    سطح اکسل
    100.00 %

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

    سلام دوست عزيز
    ليست اسامي رو در ستون A قرار بدين و متنتون رو هم در C3 تا I5 قرار بدين. جاي خالي هم كه قرار هست اسم دانش آموز قرار بگيره E4 در نظر بگيرين.
    اين يك مثال هست. خودتون اصلاحات لازمه رو انجام بدين

    کد:
    Sub printform()
    Dim a As Range
    For Each a In Range("A1:A10")
        If a.Value <> "" Then
            Range("E4").Value = a.Value
            Range("C3:I5").Select
            ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
            IgnorePrintAreas:=False
        End If
    Next a
    Range("E4").Value = ""
    End Sub

  4. سپاس ها (3)



اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

انجمن اكسل ايران , اكسل , اكسس , سوال و جواب اكسل , سوال اكسس , انجمن اكسل ايران , توابع اكسل, آموزش اكسل, آموزش اكسس, VBA, ويژوال بيسيك

کلمات کلیدی این موضوع

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است