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

Wildcard in VLOOKUP
Use =VLOOKUP("Apple*" to find apple, Apple, or applesauce

footoo

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

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

Watch MrExcel Video

Forum statistics

Threads
1,102,625
Messages
5,487,943
Members
407,616
Latest member
MichaelaL

This Week's Hot Topics

  • Timer in VBA - Stop, Start, Pause and Reset
    [CODE=vba][/CODE] Option Explicit Dim CmdStop As Boolean Dim Paused As Boolean Dim Start Dim TimerValue As Date Dim pausedTime As Date Sub...
  • how to updates multiple rows in muliselect listbox
    Hello everyone. I need help with below code. code is only chaning 1st row in mulitiselect list box. i know issue with code...
  • Delete Row from Table
    I am trying to delete a row from a table using VBA using a named range to find what I need to delete. My Range is finding the right cell. In the...
  • Assigning to a variable
    I have a for each block where I want to assign the value in column 5 of the found row to the variable Serv. [CODE=vba] For Each ws In...
  • Way to verify information
    Hi All, I don't know what to call this formula, and therefore can't search. I have a spreadsheet with information I want to reference...
  • Active Cell Address – Inactive Sheet
    How to use VBA to get the cell address of the active cell in an inactive worksheet and then place that cell address in a location on the current...
Top