Showing posts with label grade sheet. Show all posts
Showing posts with label grade sheet. Show all posts

Thursday, October 5, 2023

Export multiple records to PDF one by one from Excel

 Sub ExportRangeToPDF()

    For a = 3 To 10

        Sheet1.Range("D4").Value = Sheet2.Cells(a, "A")

        Sheet1.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\Naeem\OneDrive\Desktop\PrintingPDF\" & Sheet1.Range("D4").Value & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

    Next

End Sub

Replace old IP with New one in Direct Admin

./ipswap.sh Old_IP  New_IP for example:  ./ipswap.sh 35.224.2.88 104.197.113.37