লিনাক্স শর্ট টিপস-৬ (ওপেন/লিব্রে অফিসে কারেন্ট পেজ প্রিন্টের জন্য ম্যাক্রো তৈরী করা)

আমার অফিসে প্রিন্ট দেয়ার জন্য সবার পিসিতে একটি ম্যাক্রো তৈরী করে দিয়েছি। প্রিন্ট দেয়ার সময় 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 চাপুন।

যদি ম্যাক্রো ঠিকমত কাজ না করে তবে এ ফাইলটি ডাউনলোড করে তারপর কপি করুন।