Returns or sets the font of bar code text.

BarCodeWiz1.BarcodeTextFont [ = font]

Example 1: Retrieve font name

Dim ftName As String
ftName = BarCodeWiz1.BarcodeTextFont.Name                   

Example 2: Set BarcodeTextFont

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

Example 3: Change current BarcodeTextFont size

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