Need to print invoice copy as PDF in the relevant mentioned folder

[rohan_rox]

Hi,
I need some help with regard to printing / saving as PDF file once my print code is executed. I have assigned the below macro to a macro button. The printing code works perfectly. However, I need the code which finishes my printing and the saves or prints only the original copy as a PDF file in the relevant mentioned folder.

Sub Macroprint3Reg()
'
' '
Dim i As Integer
For i = 1 To 3
Select Case i
Case 1
ActiveSheet.Range("A1").Value = "QUADRUPLICATE COPY"
Case 2
ActiveSheet.Range("A1").Value = "DUPLICATE COPY"
Case 3
ActiveSheet.Range("A1").Value = "ORIGINAL COPY"
End Select
ActiveSheet.PrintOut copies:=1, collate:=True
Next i
ActiveSheet.Range("A1").MergeArea.ClearContents
End Sub