[حل شده] کد ماکرو جهت تعداد صفحات چاپ پرینت

[abozar1363]

سلام خدمت اساتید

کدی میخوام که :
1- تعداد کارت در f 1 رو بخونه
2- نسبت به تعداد کارت های سلول f1 کدهای ملی در ستون I را هر کدام را مجزا درD1 کپی کند وپس ازکپی برای هر یک از آنها یک پرینت انجام دهد

[Ali Parsaei]

سلام،
يک حلقه از سلولها تعريف کنيد که خانه اول آن ستون I و سطر يک و خانه آخر آن ستون I و شماره سطر آن عدد نوشته شده در خانه F1 باشد و ..... :

    Dim C As Range
    For Each C In Range(Cells(1, 9), Cells(Cells(1, 6).Value, 9))
    Range("D1").Value = C
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
    IgnorePrintAreas:=False
    Next