Microsoft Excel တွင် စာရွက်များကို ကျောကပ် Print ထုတ်နည်း 

✅ Excel Special Class (Basic + Advanced) ❣ အထူးသင်တန်းကြေး တစ်သောင်းကျပ် ✅Computer Basic Course (Special Class) ❣ အထူးသင်တန်းကြေး - ၁၅,၀၀၀ ကျပ် ✅ သင်တန်းနှစ်ခုပေါင်း ၂၅,၀၀၀ ကျပ် ✅ သင်တန်းတစ်ခုချင်းလည်း အပ်နိုင်ပါတယ် ❤ 09958915402 Account Name - Han Min Naing KBZpay / Wave Pay ငွေလွှဲပြီးပါက Screenshot လေးပို့ပေးပါ သင်တန်း Group Link လေးချ​ပေးသွားပါ့မယ်ခင်ဗျာ ❤ သင်တန်းအပ်ရန် - m.me/dailydosecomputerbyhmn 🔰 လုပ်ငန်းခွင်ဝင်ဖို့အတွက် Excel ကို အခြေခံမှ စပြီး အဆင့်မြင့်အထိ ကျွမ်းကျင်စွာ တတ်မြောက်ချင်သူများအတွက် Special Excel (Basic + Advanced) Online Class ❣ m.facebook.com/story.php?story_fbid=343339658646808&id=100089123302778&mibextid=Nif5oz 🔰 Computer ကို အခြေခံမှ စနစ်တကျ ကျွမ်းကျင်ပိုင်နိုင်စွာ အသုံးပြုတတ်လိုသူများအတွက် Computer Basic Online Class ❤ m.facebook.com/story.php?story_fbid=360372750276832&id=100089123302778&mibextid=Nif5oz

ကျေးဇူးတင်ပါတယ်ဆရာ

သိချင်တာလေးမေးချင်လို့ပါဆရာ ဘယ်လိုဆက်သွယ်ရမလဲရှင့်

Yes

yes

---------------------Macro Code----------------------- Sub Odd_Even_Print() 'UpdatebyGeteSolutions20160901 Dim xTotalPages As Long Dim xStartPage As String Dim xPage As Integer, xYesorNo Application.ScreenUpdating = False xStartPage = InputBox("Enter 1 for Odd, 2 for Even", "Kutools for Excel") If xStartPage = "" Then Exit Sub xTotalPages = ActiveSheet.PageSetup.Pages.Count xYesorNo = MsgBox("Are you sure to print?", vbYesNo, "Kutools for Excel") If xYesorNo = vbYes Then For xPage = Int(xStartPage) To xTotalPages Step 2 ActiveSheet.PrintOut from:=xPage, To:=xPage Next Else Exit Sub End If Application.ScreenUpdating = True End Sub

Yes