S2.PrintOut Copies:=1, Collate:=True

yerine aşağıdaki kodu deneyebilirsiniz ben kaydedileceği yeri otomatik olarak sabit bir yere bağladım ama siz isterseniz değiştirirsiniz

S2.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

        ActiveWorkbook.Path & "\" & i & ".pdf", Quality:=xlQualityStandard, _

        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _

        False