print as pdf or save as in multiple record [lookup record]

hi all....

i have some macro code to print multiple data record at once...this code work properly..
now, i want to how to print as pdf or save as pdf that at once based typing record. star record form .....to record .......

Sub PrintPhoto()
Dim fromRecord, toRecord, answer, i As Integer
On Error Resume Next

fromRecord = InputBox("From record", "FROM", 1)
    If fromRecord = 0 Or Not IsNumeric(fromRecord) Then Exit Sub
toRecord = InputBox("To record", "TO", fromRecord)
    If toRecord < fromRecord Or Not IsNumeric(fromRecord) Then Exit Sub
answer = MsgBox("printing records" & fromRecord & " to " & toRecord, vbOKCancel, "PRINT")
    If answer <> vbOK Then Exit Sub
    
For i = fromRecord To toRecord
    [AM8] = i
    With ActiveSheet
        .PrintOut
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
Next

End Sub

here this my attachment file

any help, greatly appreciated...