Print in italics

[ABU_HASAN]

Dear All

I am using the following code to print my Invoices

Dim n As Long
n = Application.InputBox("Number of extra printed copies.?", "Printed Copies", 1, Type:=1)
If n <= 0 Then Exit Sub ' User canceled
With ActiveSheet.PageSetup
.RightHeader = "(ORIGINAL FOR RECIPIENT) "
ActiveSheet.PrintOut
If n >= 1 Then
.RightHeader = "(TRIPLICATE FOR SUPPLIER) "
ActiveSheet.PrintOut
End If
If n >= 2 Then
.RightHeader = "(DUPLICATE FOR TRANSPORTER) "
ActiveSheet.PrintOut
End If
End With
End Sub

I want to print ORIGINAL....... , Duplicate..... and triplicate.... in ITALIC

Kindly help
Regards
ABU

 

[footoo]

Like this :

.RightHeader = "&I(ORIGINAL FOR RECIPIENT)&I"