click on multiple links and save as pdf-CodePudding

I have 40 links imported in an excel sheet. Each link, when clicked, will lead to (Print as file) window for the page.

Is there anyway to open the multiple links and save the page as PDF with specific format (Year_Month_date) with one click ?

CodePudding user response：

Create PDF-File with Timestamp

this should work for you! you can delete "hhmmss" for only Year_Month_Day !

Sub PDFCreate()
Sheets("Tabelle1").PageSetup.Orientation = 1 ' 1=portrait, 2=landscape
With Sheets("Tabelle1")
    .PageSetup.PrintArea = "$A$1:$I$21"
    .ExportAsFixedFormat xlTypePDF, "C:\Users\username\Documents\foldername\" & Format(Now, "yyyymmdd hhmmss") & "pdfname.pdf", , , False
End With
End Sub

Print and Open Webpage from VBA Code

Sub print_PDF()

    Dim Explorer As Object
    Dim eQuery As Long ' return value
    Dim i As Integer
    Dim fTime As Single
    
    Set Explorer = CreateObject("InternetExplorer.Application") ' Connect to Explorer
    Dim url As String
    url = ThisWorkbook.ActiveSheet.Range("A1").Value
    Explorer.Navigate url ' Open document from local or web!

TryAgain:

        'Wait 2 seconds to let IE load

        fTime = Timer

        Do While fTime > Timer - 2

            DoEvents

        Loop

        eQuery = Explorer.QueryStatusWB(6)  ' print command

        If eQuery And 2 Then

            Explorer.ExecWB 6, 2, "", ""   ' Print (6), displaying dialog (2)

            'Wait for 2 seconds while IE prints

            fTime = Timer

            Do While fTime > Timer - 2

                DoEvents

            Loop

        Else

            GoTo TryAgain

        End If

 

End Sub

UPDATE: Added Insert Option

u are able to insert link into input dialog, it automatically changes link in Sub pdf_Print()

Sub Insert()
Dim myValue As Variant
myValue = InputBox("Need Input")
Range("A1").Value = myValue
End Sub