আমার অফিসে প্রিন্ট দেয়ার জন্য সবার পিসিতে একটি ম্যাক্রো তৈরী করে দিয়েছি। প্রিন্ট দেয়ার সময় F3 প্রেস করলেই বর্তমান পেজ প্রিন্ট হয়। এতে সুবিধা হচ্ছে অনেক সময় ভুল করে অলপেজ প্রিন্ট কমান্ড দিয়ে দেয়ার হাত থেকে বাঁচা যায়। আসুন দেখি এটি লিব্রে/ওপেন অফিসে কিভাবে করা যায়।
প্রথমে
Tools → Macros → Organize Macros → OpenOffice.org Basic
এ ক্লিক করুন। তারপর
Edit বাটনে ক্লিক
করুন। এবার নিচের কোডটুকু
কপি করে পেস্ট করে দিন এবং সেভ
করুন। ম্যাক্রো উইন্ডো বন্ধ
করুন।
sub Print_Cur_Page
Dim oDoc,oVC,CurrentPage
oDoc = ThisComponent
oVC =
oDoc.CurrentController.getViewCursor
CurrentPage = Str(oVC.getPage)
dim document as object
dim dispatcher as object
document =
ThisComponent.CurrentController.Frame
dispatcher =
createUnoService("com.sun.star.frame.DispatchHelper")
dim args1(2) as new
com.sun.star.beans.PropertyValue
args1(0).Name = "Copies"
args1(0).Value = 1
args1(1).Name = "RangeText"
args1(1).Value = CurrentPage
args1(2).Name = "Collate"
args1(2).Value = false
dispatcher.executeDispatch(document,
".uno:Print", "", 0, args1())
end sub
সেভ
করা শেষ হলে Tools → Customize →
Keyboard → F3 ক্লিক
করুন। এবার Category বক্সের
ভিতরে OpenOffice.org Macro তে
ক্লিক করুন। তারপর User →
Standard → Module1 এ ক্লিক করুন।
ডানপাশের Function বক্স
থেকে Print_Cur_Page নামের
উপর ক্লিক করুন। সবশেষে উপরের
Modify বাটনে
ক্লিক করে Ok করুন।
তারপর কারেন্ট পেজ প্রিন্টের
জন্য F3 চাপুন।
যদি ম্যাক্রো ঠিকমত কাজ না করে তবে এ ফাইলটি ডাউনলোড করে তারপর কপি করুন।
যদি ম্যাক্রো ঠিকমত কাজ না করে তবে এ ফাইলটি ডাউনলোড করে তারপর কপি করুন।
