Odd/Even Pages Print In Microsoft Excel

>> Saturday, August 29, 2009

Microsoft Excel မွာ Microsoft Word မွာလို Odd Pages (or) Even Pages Print လုပ္ဖို႔ Option မပါလာဘူး။ ဘာလို႔လဲေတာ့ မသိဘူး။ Both Sided print ရတဲ႔ printer မ်ိဳးအတြက္ အဲဒီ feature ကမလိုေပမယ့္ One Sided print ပဲရတဲ႔ printer မ်ိဳးအတြက္ေတာ့ ေက်ာကပ္ print ထုတ္ခ်င္တဲ႔ အခါ အဲဒီ feature ကရဖို႔လိုလာပါတယ္။

က်မကိုယ္တုိင္ အဲဒီ feature ရဖို႔လိုလာတဲ႔အခါ ရွာေဖြေတြ႔ရိွလို႔ရတဲ႔ နည္းေလးပါ။ တျခားနည္းလမ္းရိွရင္လည္း ေျပာျပေပါ့ေနာ္ :)

Microsoft Excel မွာ Odd Pages/Even Pages ေတြပဲ Print ထုတ္ခ်င္တဲ႔အခါ Print Preview မွာ Print Settings ေတြအကုန္ခ်ိန္ျပီးျပီဆိုရင္ေတာ့ ေအာက္မွာျပထားတဲ႔ Box ထဲက Code ကို Microsoft Excel ရဲ႔ VBScript မွာ Print ထုတ္ခ်င္တဲ႔ Sheet အတြက္ ၀င္ေရးျပီး Run ရံုပါပဲ။

Odd Pages Print ခ်င္တဲ႔အခါ ေပၚလာတဲ႔ box မွာ 1 ျဖည့္ျပီး Even Pages Print ခ်င္တဲ႔အခါ 2 ျဖည့္ပါ။


Sub Odd_Even_Pages_Print()
Dim Totalpages As Long
Dim StartPage As Long
Dim Page As Integer

StartPage = InputBox("Enter 1 for Odd, 2 for Even")

Totalpages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
For Page = StartPage To Totalpages Step 2
ActiveSheet.PrintOut from:=Page, To:=Page, _
Copies:=1, Collate:=True
Next
End Sub

0 comments:

About This Blog

Lorem Ipsum

  © Blogger templates Palm by Ourblogtemplates.com 2008

Back to TOP