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.