[RESOLVED] Printer.Font.Underline not working

[krtxmrtz]

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.

    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

[Arnoutdv]

When I replace the Printer object with the current form then it seems to work.

  Dim s As String
  
  With Me
    
    .ScaleMode = vbMillimeters
    .Font = "Arial"
            
    .Font.Size = 14
    s = "Test Title"
    .CurrentX = 0.5 * (.ScaleWidth - .TextWidth(s))
    .CurrentY = 10
    .Font.Underline = True
    Print s
    .Font.Underline = False
    
    Print
    
    .Font.Size = 12
    .CurrentX = 20
    Print "Date: " & Format(Date, "dd-mm-yyyy")
  End With

[krtxmrtz]

Yes, the problem is only when I use the printer.

Actually I have checked that it does work on a real printer. The trouble seems to be associated to the specific pdf converter I'm using.

Definitely the VB code seems to be OK.

[krtxmrtz]

Indeed... I have tried out a different pdf converter and it works fine.

Yes, the problem is only when I use the printer.

Actually I have checked that it does work on a real printer. The trouble seems to be associated to the specific pdf converter I'm using.

Definitely the VB code seems to be OK.

[krtxmrtz]

Moreover:

The code works on a different computer where that pdf converter' version is different.