PrintOptions.TextInBlack

Property TextInBlack As Boolean

Member of PrintOptions

The TextInBlack property returns or sets whether all text prints in black.

The following code 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 2007 Corel Corporation. All rights reserved.