Original, Duplicate and Triplicate Font Size Change and Bold

[mahesh_1980]

Sub Button8_Click()
Dim n As Long
n = Application.InputBox("Number of printed copies.?", "Printed Copies", 1, Type:=1)
If n <= 0 Then Exit Sub ' User canceled
With ActiveSheet.PageSetup
.RightHeader = ""
.RightHeader = "User: " & strUn
.RightHeader.FontSize = 15
.RightHeader = "Original"
ActiveSheet.PrintOut
End If
If n > 1 Then
.RightHeader = ""
.RightHeader = "User: " & strUn
.RightHeader.FontSize = 15
.RightHeader = "Duplicate"
ActiveSheet.PrintOut
End If
If n > 2 Then
.RightHeader = ""
.RightHeader = "User: " & strUn
.RightHeader.FontSize = 15
.RightHeader = "Triplicate"
ActiveSheet.PrintOut
End If
End With
End Sub