پرینت با شماره خودکار

[ali.b]

سلام
دوستان من دنبال ی راهی میگردم تا با گرفتن پرینت خودکار شماره هم بزنه
مثلا یک کارت ورود تو اکسل طراحی کردم میخوام 200 تا پرینت بگیرم و به ازای هر پرینت ی شماره به این کارت بزنه

چه راهی میشه استفاده کرد؟

[mrexcel]

با نوشتن یک ماکرو که پرینت بگیره میشه کدی تعریف کرد که در یک سلول مقداری را وارد کند و در هر دفعه سلول را با یک عدد یک جمع نماید بنابراین این سلول نمایش تعداد پرینت گرفته شده است

[khakzad]

یک کد خیلی ساده با حلقه for لازمه.
که با هربار اجرا شماره روبزنه و اخر کد هم پرینت.

for i=1 to 200
     cells(1,2)=i 
application.print out
next

ادرس سلی که عدد باید بخوره می دید

[ali.b]

من اینجوری درست کردم
میخوام هربار کپی میشه یه رقم به سلول زرد بعد اضافه بشه مثلا محدود اول 1 هست موقع ارجای کد محدوده بعدی 2 باشه

[abootorab]

من اینجوری درست کردم
میخوام هربار کپی میشه یه رقم به سلول زرد بعد اضافه بشه مثلا محدود اول 1 هست موقع ارجای کد محدوده بعدی 2 باشه

با درود
دوست عزیز کد زیر رو به زیربرنامه CopyToMaster بعداز سطری که عمل کپی انجام میدهد (ws.Range("C2:j6").Copy Destination:=wsDest) اضافه کنید تا به هدفتون برسید.

For i = 3 To 10 Step 3
    Range("A" & wsDest.Row).Offset(0, i).Value = Range("A" & wsDest.Row).Offset(-6, i).Value + 1
Next i