VBA To convert Sharepoint page to PDF

kris21

New member
Joined
Jul 2, 2016
Messages
24
Reaction score
0
Points
0
Hello Gurus,

I am looking to tweak a code which converts a webpage to PDF and store it in a specific directory.

This solution is exactly what I am looking for but unfortunately this is not working in a "Share point environment".

Code:
Sub WebSMacro()

'set default printer to AdobePDF
Dim WSHNetwork As Object
Set WSHNetwork = CreateObject("WScript.Network")
WSHNetwork.SetDefaultPrinter "Adobe PDF"


'get pdfSave as Path from cell range
Dim sFolder As String
sFolder = Sheets("Sheet1").Range("A1") 'assumes folder save as path is in cell A1 of mySheets


Dim IE As Object
Dim Webloc As String
Dim FullWeb As String


Webloc = ActiveSheet.Range("B39").Value
FullWeb = "https://asharepointsiteurl.aspx" & Webloc
Set IE = CreateObject("InternetExplorer.Application")


With IE


    .Visible = True
    .Navigate FullWeb


    Do While .Busy
        Application.Wait DateAdd("s", 1, Now)
    Loop


    .ExecWB 6, 2 'OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER
    Application.Wait DateAdd("s", 3, Now)
    Call PDFPrint(sFolder & Webloc & ".pdf")


    .Quit


End With


Set IE = Nothing


End Sub


I am getting the error in .ExecWB method(6,2 params should print the page without the dialog box ,which is working fine for all normal websites)

Can someone advice what is wrong here ? Is this something to do with the load time of the page?



Regards,
 
Back
Top