Tips,for,Setting,the,Propertie computer Tips for Setting the Properties of the Printer with Macro
Gone are those times when the companies and the organisations didn't need a hi-tech system to handle them. Owing to the considerable increase in the business sector and thus, an enormous increase in the complexity of the organisational struc ----------------------------------------------------------Permission is granted for the below article to forward,reprint, distribute, use for ezine, newsletter, website,offer as free bonus or part of a product for sale as longas no changes a
Normal 0 Each year if the Windows XP users or other operating systemusers check a report, you can find about hundreds and thousands of Printerpaper 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 headerIn the printout you will not find any footerThe 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 theOpenOffice.org Calc and a particular macro. The used macro should offer thefollowing 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 alittle different way from setting the size of the pages. The process is asfollows: 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 thenerrors will pop-up. Affix a header In a Printer, attaching a header is one of the mostdifficult parts but it is not that complex if you are using macros. The macrostake 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 AlexanderBain" page.RightPageHeaderContent = header Attach a footer The process of handling the footer in your Printer isexactly 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 pagecount In your OpenOffice software the process of providing pagenumbering and counting them is an in-built functionality. But the only complexpart is that one should have an idea about accessing the software. To accessyou 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 WindowsXP users or other operating systems users can follow theseinstructions and set the properties of the Printer accordingly.
Tips,for,Setting,the,Propertie