پرسش چاپ بر روی فرم واگذاری چک تحت اکسل

[peyman98520]

سلام و عرض خسته نباشید
یه پروژه کوچیک دارم جهت چاپ بر روی برگ واگذاری چک
موضوع به این شکل هست که من روزانه بیش از 30 تا چک جهت واگذاری به بانک دارم که همشون اطلاعات سربرگشون یکی هست اما اطلاعات چک ها متفاوته من نیاز دارم به یه نرم افزار که در ردیف ها اطلاعات چک رو وارد کنم و نرم افزار هر ردیف رو جای گذاری کنه و سه بار چاپ بزنه و بره مورد بعدی تایه جاهایش رو انجام دادم اما چون از ماکرو سررشته ندارم نتونستم به اتمام برسونمش
از اساتید بزرگوار تقاضا دارم در صورت امکان راهنماییم کنن فایل طراحی شده اکسل به پیوست تقدیم بزرگواران میشه

[majid_mx4]

با سلام

لطفا فایل ضمیمه را بررسی نمایید
توضیح: هر دو دکمه پرینت کل و پرینت تکی اصلاح شد
برای پرینت تکی فقط کافیست آن ردیف را انتخاب کنید مهم نیست که در کدام خانه باشید فقط یک خانه درآن ردیف را انتخاب کنید.

Sub PrintM()
Dim Cell As Range
Dim Lastrow As Integer

If Sheet1.Range("D4") = "" Then
        MsgBox "تعداد چاپ وارد نشده است "
    Exit Sub
 End If
 
On Error Resume Next
Lastrow = Sheet1.Cells(Rows.Count, "b").End(3).Row
    For Each Cell In Sheet1.Range("B15:b" & Lastrow)

    Sheet2.Range("K25") = Cell.Value
    Sheet2.Range("K20") = Cell.Offset(0, 1).Value
    Sheet2.Range("K14") = Cell.Offset(0, 2).Value
    Sheet2.Range("K9") = Cell.Offset(0, 3).Value
    Sheet2.Range("K8") = Cell.Offset(0, 4).Value
    Sheet2.Range("K6") = Cell.Offset(0, 5).Value
    Sheet2.Range("K1") = Cell.Offset(0, 7).Value

Sheet2.PrintOut Copies:=Sheet1.Range("D4"), Collate:=True, _
        IgnorePrintAreas:=False
   'Sheets("ورود اطلاعات").Select
Next
End Sub
Sub PrintRowM()

mm = Split(ActiveCell.Address, "$")(2)
Sheet2.Range("K25") = Sheet1.Range("B" & mm).Value
    Sheet2.Range("K20") = Sheet1.Range("B" & mm).Offset(0, 1).Value
    Sheet2.Range("K14") = Sheet1.Range("B" & mm).Offset(0, 2).Value
    Sheet2.Range("K9") = Sheet1.Range("B" & mm).Offset(0, 3).Value
    Sheet2.Range("K8") = Sheet1.Range("B" & mm).Offset(0, 4).Value
    Sheet2.Range("K6") = Sheet1.Range("B" & mm).Offset(0, 5).Value
    Sheet2.Range("K1") = Sheet1.Range("B" & mm).Offset(0, 7).Value
    
Sheet2.PrintOut Copies:=Sheet1.Range("D4"), Collate:=True, _
        IgnorePrintAreas:=False
End Sub

موفق باشید میر

[peyman98520]

با سلام

لطفا فایل ضمیمه را بررسی نمایید
توضیح: هر دو دکمه پرینت کل و پرینت تکی اصلاح شد
برای پرینت تکی فقط کافیست آن ردیف را انتخاب کنید مهم نیست که در کدام خانه باشید فقط یک خانه درآن ردیف را انتخاب کنید.

موفق باشید میر

سلام ممنون بابت لطفتون استاد