BarcodeTextFont

Returns or sets the font of bar code text.


Syntax

BarCodeWiz1.BarcodeTextFont [ = font]


Examples

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