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