پرسش پرينت

[alikaraj66]

دوستان سلام
يك فايل اكسل هست كه در يك شيت 200 سلول دارد
حالا در شيت دوم توسط دستور vlookup فرمي تهيه گرديده است
مثال شيت يك ريز پرداخت حقوق شيت دوم فيش حقوقي ( حال براي پرينت بايد در شيت دوم شماره پرسنلي بزنيم تا اطلاعات پرسنل بشيند بعد پرينت بگيريم براي هر نفر )دستوري هست كه بگوئيم از شماره پرسنلي 1 تا 200 فيش يكجا پرينت بگيره و نخواهيم دونه دونه پرينت بگيريم
منظور اين است كه من با يك دستور پرينت بتوانيم 200 سلول را پرينت بگيريم ( نمونه پيوست )

[iranweld]

با سلام

بهترین روش اینه که فرم خود را در ورد طراحی کنید و سپس از منوی Mailings و start mail merge گزینه های مورد نظر را از فایل اکسل اصلی در آن جایگذاری نموده و سپس بدون هیچ مشکلی برای همه پرسنل پرینت بگیرید.

لینک فیلم

[ordouei]

با سلام

فکر میکنم قبلا چنین موردی بود و اینجانب پاسخ داده بودم

فایل پیوست را مشاهده بفرمایید
موفق باشید

[alikaraj66]

دوست عزیز ممنون بنده روی همان فایل تغییراتی در ظاهر و اضافه کردن یک ردیف دیگر انجام دادم اما تغییرات در پرینت نمی آید . بعد نام این روش چیه که توی اینترنت آموزش سرچ کنم . ممنون

[alireza_a4]

من خودم از کد زیر استفاده می کنم برای کاری مشابه :

y = 0
For x = [T2] To [U2]
    Range("T4:U4").Select
    ActiveCell.FormulaR1C1 = x
    If [G25] > 0 Then
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
     y = y + 1
     End If

Next

[T4] = "101"
MsgBox " تعداد " & y & " رسيد کارگري چاپ شد"


End Sub

[alireza_a4]

با کمی دست کاری در کد بالا می تونید به نتیجه دلخواه تون برسید