سفارش چاپ تعدادی مشروط

**armey** · 2021/12/28, 15:16

نوشته اصلی توسط armey

ضمن عرض ادب و احترام
خدمت دوستان عزیز و اعضای محترم

بطور دوره ایی نیاز داریم برای هر فرد تعدادی فرم چاپ بشه
مثلا 10 برگ فرم رسید فروش
این تعداد هم در فواصل هم برای هر فرد متغیر است

درخواست کمک بنده این است :
میخواهم کدی داشتبه باشم
تا اجرای آن
تعداد نوشته شده جلوی هر نوع را چاپ کند

مثلا 10 برگ رسید مودم 5 برگ رسید سیم کارت

https://uupload.ir/view/فرمهای_ماهان...�ن_eyk9.xlsx/

در محدوده مشکی رنگ
که نام انتخاب می شود
بعد از انتخاب هر نام که تعداد فراخوانی شد دستور چاپ صادر شود تا تعداد فراخوانی شده چاپ شود پشت سر هم

**generalsamad** · 2021/12/28, 23:30

با سلام
این کد را تست کنید ببنید مشکلتون حل میشه
فقط دقت کنید که نام شیت ها موجود باشد
مثلا شیت جمع آوری / انصراف از نصب موجود نیمباشد بقیه شیت ها هم باید موجود باشد

کد PHP:


Sub PrintPage()
Dim i As Integer
For i = 2 To 10
    Sheets(Sheet2.Range("M" & i).Value).Select
    If Sheet2.Range("N" & i).Value > 0 Then
        ActiveSheet.PrintOut Copies:=Sheet2.Range("N" & i).Value
    End If
Next i
End Sub

**armey** · 2021/12/29, 09:51

نوشته اصلی توسط generalsamad

با سلام
این کد را تست کنید ببنید مشکلتون حل میشه
فقط دقت کنید که نام شیت ها موجود باشد
مثلا شیت جمع آوری / انصراف از نصب موجود نیمباشد بقیه شیت ها هم باید موجود باشد

کد PHP:


Sub PrintPage()
Dim i As Integer
For i = 2 To 10
    Sheets(Sheet2.Range("M" & i).Value).Select
    If Sheet2.Range("N" & i).Value > 0 Then
        ActiveSheet.PrintOut Copies:=Sheet2.Range("N" & i).Value
    End If
Next i
End Sub