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

Return population for a City
If you have a list of cities in A2:A100, use Data, Geography. Then =A2.Population and copy down.

footoo

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

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

Watch MrExcel Video

Forum statistics

Threads
1,099,934
Messages
5,471,619
Members
406,772
Latest member
imega

This Week's Hot Topics

Top