Tips for Setting the Properties of the Printer with Macro
Each year if the Windows XP users or other operating system users check a report, you can find about hundreds and thousands of Printer paper sheets are wasted. The reason is lots of reports are printed:
· On the A3 paper sheets instead of the A4 sheets.
· Landscape type of printing is used instead of portrait.
· Instead of plain papers high quality papers are used.
· Printouts are obtained without any header
· In the printout you will not find any footer
· The Printer produces a result that comes without proper numbering in the papers or any page count
All these paper sheets can be taken care of by utilizing the OpenOffice.org Calc and a particular macro. The used macro should offer the following capabilities:
· Can fix up the size of the pages.
· Fix up the orientation of the pages.
· Can ably set the tray of the Printer.
· Affix a header.
· Attach footer.
· Include the numbers of the pages and also its page count.
Fix up the Size of the Printer Pages
The size of the pages can be easily fixed up by:
· Acquiring the style of the page.
· Setting the width of the page in millimeters.
· Setting the height of the page in millimeters.
Fix up the Orientation of the Printer Pages
Fixing up the orientation of the page takes place in a little different way from setting the size of the pages. The process is as follows:
Dim printerOption(0) As New com.sun.star.beans.PropertyValue
printerOption(0).Name = ‘PaperOrientation’
printerOption(0).Value = com.sun.star.view.PaperOrientation.LANDSCAPE
thisComponent.Printer = printerOption()
Set the Tray of the Paper in a Printer
Varying the set of the paper tray is extremely easy:
page.PrinterPaperTray = ‘Tray Two’
But in case if you have entered a wrong Printer name then errors will pop-up.
Affix a header
In a Printer, attaching a header is one of the most difficult parts but it is not that complex if you are using macros. The macros take care of the:
· Content of the page header.
· Revise the right, left and the center panels.
· Restores the header of the page.
The commands for the macros are as follows:
page.HeaderIsOn = True
header = page.RightPageHeaderContent
header.LeftText.String = Date()
header.CenterText.String = “My Report”
header.RightText.String = “Author: Mark Alexander Bain”
page.RightPageHeaderContent = header
Attach a footer
The process of handling the footer in your Printer is exactly the same as you have handled the header. Such as:
page.FooterIsOn = True
footer = page.RightPageFooterContent
footer.CenterText.String = “~*~ OpenOffice Secrets ~*~”
page.RightPageFooterContent = footer
Include the numbers of the pages and also its page count
In your OpenOffice software the process of providing page numbering and counting them is an in-built functionality. But the only complex part is that one should have an idea about accessing the software. To access you can follow the following discussed macros commands:
pageNumber = _
thisComponent.createInstance (“com.sun.star.text.TextField.PageNumber”)
textCursor = footer.RightText.createTextCursor
textCursor.gotoEnd (False)
textCursor.String = “Page “
textCursor.gotoEnd (False)
footer.RightText.insertTextContent (textCursor, pageNumber, True)
pageCount = _
thisComponent.createInstance (“com.sun.star.text.TextField.PageCount”)
textCursor.gotoEnd (False)
textCursor.String = ” of “
textCursor.gotoEnd (False)
footer.RightText.insertTextContent (textCursor, pageCount, True)
page.RightPageFooterContent = footer
End Sub
All the Windows XP users or other operating systems users can follow these instructions and set the properties of the Printer accordingly.
Susan Brown, Seattle, is thoroughly equipped with latest technological development. Her articles are attuned to technological development and modern solutions to age old computer-related problems. She talks about remote assistance and its benefits. She is working with Online PC 24×7 for more than a decade as an expert technical writer.
