B4J Question Printing a layout JFX8Print - mono spaced font

'    Get the number of lines in the report
    Dim num As Int = Main.printData.Size
    Log("Print Lines = "&num)
    If num <= 50 Then    ' 1 page of data to print
        For i = 0 To Main.printData.Size - 1
            Dim La As Label
            La.Initialize("")
            La.Font = fx.CreateFont("mono spaced",12,False,False)   '' this does not work
'
            La.Text = Main.printData.GetValueAt(i) '" Row " & I
            Dim lineColour As Int = Main.lineColours.GetValueAt(i)
            If lineColour = 1 Then
                La.TextColor = fx.Colors.Red
                
            Else
                La.TextColor = fx.Colors.Black
                
            End If       
            MyPane.AddNode(La,0,(i)*30dip,400dip,25dip)'was (i-1)
''            Log("print data("&i&"), "&Main.printData.GetValueAt(i))
            MyPane.PrefHeight=(i+1)*30dip
        Next
    Else        'figure out how many pages are needed
'           
    End If
'