التعديل على كود الطباعة

[حراثي تواتي]

السلام عليكم ورحمة الله وبركاته

اعضاء منتدانا الغالي اريد مساعدة في التعديل على كود الطباعة كما هو موضح في الصورة

بحيث تكون قيمة الخلية D12  عدد فردي من 1 ، 2 ، 3 ، وهكذا

وشكرا لكم مسبقا

    Dim iStart As Integer, iEnd As Integer, I As Integer
    iStart = Sheet1.Range("B1").Value
    iEnd = Sheet1.Range("C1").Value
    For I = iStart To iEnd
        Sheet1.Range("D12").Value = I
        Sheet1.PrintPreview
    Next I

 

تواتي8.xlsm

[سليم حاصبيا]

هذا الكود

Dim iStart As Integer, iEnd As Integer, I As Integer
    iStart = Sheet1.Range("B1").Value
    iEnd = Sheet1.Range("C1").Value
    For I = iStart To iEnd step 2
        Sheet1.Range("D12").Value = I
        Sheets(1).PrintPreview
    Next I

 

[حراثي تواتي]

وفيت وكفيت اخي سليم حاصبيا

بارك الله فيك وفي جميع الساهرين على شؤون هذا المنتدى الرائع

[أحمد يوسف]

حراثي تواتي

تمام وبما ان الإجابة اعجبتك ..فأين الضغط على الإعجاب لهذه الإجابة وهذا هو أقل ما يقدم لصاحب الفضل بعد ربنا فى حل مشكلتك ؟!!💙