TopTextFont

Returns or sets the font of TopText (TopText is the optional text above the bar code).


Syntax

BarCodeWiz1.TopTextFont [ = font]


Examples

Example 1: Retrieve font name


Dim ftName As String
ftName = BarCodeWiz1.TopTextFont.Name                   
 

Example 2: Set TopTextFont


Dim f As StdFont
Set f = New stdole.StdFont
f.Name = "Times New Roman"
f.Size = 16
Set BarCodeWiz1.TopTextFont = f     
 

Example 3: Change current TopTextFont size


Dim f As StdFont
Set f = New stdole.StdFont
Set f = BarCodeWiz1.TopTextFont 
f.Size = 14
Set BarCodeWiz1.TopTextFont = f