Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
Dim lngY As Long
lngY = 500
CurrentX = 2000
Me.FontSize = 20
Me.FontName = "Arial"
Me.FontBold = True
Me.ForeColor = vbBlue
CurrentY = lngY
Me.Print "Hello "
Me.ForeColor = vbGreen
CurrentY = lngY
Me.Print "There "
CurrentY = lngY
Me.ForeColor = vbRed
Me.Print "Buddy"
End Sub