Change Bold to Itallic

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Code 1
Forcing font to Italic? 3
Sum amount at report footer is wrong 3
Formatting Question 4
Hiding Labels in Reports if Field Blank 2
Remove Blank Fields in Report 6
A general question about report recordset binding and dataavailability 7
Access Microsoft Access - Subtotals for each page 0

Top