In the following code the Underline property is not behaving correctly. See the result in the screen shot below. I've tried with different fonts and only 'Symbol' worked.

Printer is the default printer, a pdf writer.

Code:
    With Printer
    
        .ScaleMode = vbMillimeters
        .Font = "Arial"
                
        .Font.Size = 14
        s = "Test Title"
        .CurrentX = 0.5 * (.ScaleWidth - .TextWidth(s))
        .CurrentY = 10
        .Font.Underline = True
        Printer.Print s
        .Font.Underline = False
        
        Printer.Print
        
        .Font.Size = 12
        .CurrentX = 20
        Printer.Print "Date: " & Format(Date, "dd-mm-yyyy")
        .EndDoc
    
    End With
Name: misbehavior.jpg Views: 300 Size: 6.5 KB