kisaac wrote:Thank You! We had decided not to use it for distribution as our phone list UNTIL the preferred name option was available, as people wanted their preferred name listed, and kept asking me as ward clerk why their record continually showed their full name. (Of course, it does seem to be printing incorrectly as mentioned in the last few posts. Selecting Individual contact details will print the names and individual phone numbers.)
However, why can't the user be given an option to select from either "preferred" or "given" names on this printout (and all screens in the directory?) At times we need both as leaders...
Also, while we are on the subject of Directory improvements...
- When will we have a "print in Black and White" option for the directory? Certainly most clerk's office printers are still black and white laser printers....and the photocopies we make of these phone lists in the library are all black and white... While it might look good onscreen or printed at home in color, when anything is colored or gray, clarity is reduced by our photocopier, making it harder for our "older eyes" to see it, and especially colored or gray small text, such as your copyright and "church use only" instruction on the bottom of each page...
- Why has the Sunday School President been left off the "ward Leadership" section for the new (and previous) listing on the directory? Our Sunday School President has certainly noticed he is the only leader in ward council NOT LISTED. He has not "opted out."
Yes, I will submit these items as feedback within the directory application...
In response to the print in Black and White option: I've have just come up with a work-around:
1. Save the pdf directory to the local disk.
2. Open the pdf file using LibreOffice 3.0 with extension "PDF Import 1.0.4" from Oracle
----- The Extension will open the pdf in LibreOffice Draw -----
3. Run the Macro "updateshape", Tools -> Macros -> Run Macro.
(See below for code.
-- copy and paste the code: Goto Macros -> Organize Macros -> LibreOffice Basic. Then drill down into My Macros ->basic -> Module1; Once there Click Edit. Below the Main Sub paste the below code. )
The macro will cycle through all TextFrame objects in all the pages and change the font to black.
Code:
sub updateshape
dim oDrawDoc as object
dim oPage as object
oDrawDoc = ThisComponent
' get draw pages collection
oPages = oDrawDoc.getdrawpages
' total number of pages
nNumPages = oPages.getCount()
For j = 0 To nNumPages - 1
oPage = oDrawDoc.drawPages( j )
ChangeTextShapes( oPage )
Next
end sub
Private Sub ChangeTextShapes( oPage As Object )
nNumShapes = oPage.getCount()
For i = 0 To nNumShapes - 1
oShape = oPage.getByIndex( i )
oText = oShape.GetText
TextCursor = oText.createTextCursor
TextCursor.CharWeight = com.sun.star.awt.FontWeight.BOLD
TextCursor.CharColor = &H00000 'black
Next
End Sub