Print in italics

ABU_HASAN

New Member
Joined
Jun 27, 2017
Messages
16
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
 

Some videos you may like

Excel Facts

Copy PDF to Excel
Select data in PDF. Paste to Microsoft Word. Copy from Word and paste to Excel.

footoo

Well-known Member
Joined
Sep 21, 2016
Messages
2,945
Office Version
2016
Platform
Windows
Like this :

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

Watch MrExcel Video

Forum statistics

Threads
1,095,724
Messages
5,446,146
Members
405,384
Latest member
geowbadyt

This Week's Hot Topics

Top