|   |   | Object Model Reference : Classes : P : PrintOptions : Properties : PrintOptions.TextInBlack | 
Property TextInBlack As Boolean
Member of PrintOptions
The TextInBlack property returns or specifies whether to print all text in black.
The following VBA example creates a text string and adds a uniform fill to it. The text is then set to print in black, and the document is printed.
| Sub Test() | 
|  Dim s As Shape | 
|  Set s = ActiveLayer.CreateArtisticText(4, 5, "Some Text String") | 
|  s.Fill.UniformColor.RGBAssign 255, 0, 0 | 
|  With ActiveDocument.PrintSettings.Options | 
|   .PrintText = True | 
|   .TextInBlack = True | 
|  End With | 
|  ActiveDocument.PrintOut | 
| End Sub | 
|   |   |   | 
Copyright 2013 Corel Corporation. All rights reserved.