Boa tarde a todos!!!

 

       Estou com uma pequena duvida!!!

 

       como colocar em negrito o que esta abaixo!!!

 

        With objPrint
            .Font.Name = "Verdana"
            .CurrentX = 14
            .CurrentY = 27.3
            .FontSize = 7
            objPrint.Print ; "Data :" + CStr(Date);
        End With

                         Grato e aguardando resposta!!!

use assim...

Set_Fonte printer, 15, "arial", vbBlack, True, False, False, False

Public Sub Set_Fonte(obj As Object, size As Integer, fName As Variant, cor As String, b As Boolean, i As Boolean, u As Boolean, s As Boolean)
With obj
.ForeColor = cor
.FontName = fName
.FONTSIZE = size
.FontBold = b
.FontItalic = i
.FontUnderline = u
.FontStrikethru = s
End With

espero que te ajude