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

How can you automate Excel?
Press Alt+F11 from Windows Excel to open the Visual Basic for Applications (VBA) editor.

footoo

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

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

Watch MrExcel Video

Forum statistics

Threads
1,098,858
Messages
5,465,104
Members
406,412
Latest member
superjoejoe

This Week's Hot Topics

Top