Change Bold to Itallic

  • Thread starter Thread starter Bob V
  • Start date Start date
B

Bob V

Instead of bold can it be changed to Itallic......Thanks for any help...Bob

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
Const conBold = 700
Const conNormal = 400

If FormatCount = 1 Then
If Me.tbFlag = -1 Then
Me.tbInvoiceDate.FontWeight = conBold
Me.tbInvoiceDescription.FontWeight = conBold
Me.tbInvoiceID.FontWeight = conBold
Me.tbInvoiceAmount.FontWeight = conBold
Else
Me.tbInvoiceDate.FontWeight = conNormal
Me.tbInvoiceDescription.FontWeight = conNormal
Me.tbInvoiceID.FontWeight = conNormal
Me.tbInvoiceAmount.FontWeight = conNormal
End If
End If
End Sub
 
Back
Top