VBA Open Hyperlink and save as PDF

I think you download product picture and then convert the picture into pdf file. If it is so then you can use some tools like internet download manager and give the hyperlinks as text file and will download all the hyperlinks available in the text file you given as input to Internet Download Manager(IDM). Once you got the product pictures then you can convert each Product pictures into pdf files using tools to convert jpg to pdf files.

I hope you understands this. if you need further assistance pl post your comments here!

I download IDM.  But when I run it on the hyperlink I get a  different result see attached.  I need to save the hyperlink as a webpage and then I have a VBA program that will convert it to a PDF.  Thank you for your help!
Results.docx

Currently I click the hyperlink - File - Print - Select Printer PDF Creator - Remove Hyperlink path - Save   Works great BUT not for 8000 hyperlinks.

Hi, Dawn7930.

Does each hyperlink point to a .jpg or a web page?

You could open the hyperlink in Word and then save as PDF. Try this manually first because Word won't display the page exactly as a browser. But it might be sufficient. If it is, let me know and I'll show you how to automate it from Excel.

Thanks for your help but it did not work.  I need to save off as a PDF just as it appears on the web.

Hi, Dawn7930.

How about the question I asked?  Does each hyperlink point to a .jpg or a web page?

To a web page,  http://www.hellermanntyton.us/productDetail.aspx?lon=PC6GRN14SC
I then need to save each page off to a PDF.  If there is another way to do this for 8,000 different links I am open to suggetions.

Did you look at the sample code of pdfcreator that I suggested?

Dawn7390,

If I understand correctly all you need is a script that will save the HTML pages to disk since you already have a script that will print them.  This script will read the contents of an Excel worksheet, downloading the URL specified on each row to a file.  The script assumes that the worksheet is laid out with one item per row with the URL in column A.

I've attached a sample workbook that includes the code.  All you need to do is add the URLs and modify the path the output files will go to.

Sub SavePageToDisk()
    Dim objHTTP As Object, _
        objFSO As Object, _
        objFil As Object, _
        lngRow As Long, _
        strURL As String, _
        strPath As String, _
        strFilename As String
    Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    'On the next line change the file path as desired.  Make sure the path ends with \
    strPath = "c:\Users\David\Documents\TestArea\"
    For lngRow = 2 To Application.ActiveSheet.UsedRange.Rows.Count
        strFilename = strPath & lngRow & ".htm"
        strURL = Application.ActiveSheet.Cells(lngRow, 1).Value
        objHTTP.Open "GET", strURL, False
        objHTTP.send ""
        Set objFil = objFSO.CreateTextFile(strFilename)
        objFil.Write objHTTP.responseText
        objFil.Close
    Next
    Set objHTTP = Nothing
    Set objFSO = Nothing
    Set objFil = Nothing
    MsgBox "All done!"
End Sub

Select allOpen in new window

Dawn7930.xlsm

@BlueDevilFan, he needs to print each of those linked pages to pdf.

@BlueDevil Fan - Thanks for the macro but I have that part of it.  
1) I have the macro reading the list
2) opening the hyperlink
3) MISSING
4) Save it to a specific folder as a PDF, naming it using the data after the last forward slash in the Hyperlink  

3) I need it to do: File - Print - Select Printer PDF Creator - "click" print -
Change path in the File box (I can create the path and name but don't know how to get it in the box for PDF creator)
Then "click" save

@Dawn7930,

I guess I'm lost.  You said " I need to save the hyperlink as a webpage and then I have a VBA program that will convert it to a PDF."  That sounds like you have the program for converting the downloaded files to PDF format and just need the part that downloads them.  Are you now saying that you already have the code for downloading the files and just need the part that prints them?

@BlueDevil Fan
Sorry for the confusion.  I don't have to physically "print" them.  The only way I found that works is to use Printer PDF Creator which is accessed through file -print - Select Printer PDF Creator - Print.  You then can Save it as a PDF.  I have attached screen shots
The code I need is:,
in Explorer selects File - Print
then chooses the printer PDF Creator
select PRINT from the Print dialog box
access the Document Title field from the PDF Creator dialog box
(I have code to create the file name and location)
select Save from the PDF Creator dialog box
select Save from the Save As dialog box
Screen-Shots.docx

@vadimrapp1
I finally found the code you suggested.    Looks like it will work once I decipher it.  Thank you!