Print a webpage in Chrome

[KarstenH]

Hi you Excel experts,

I'm looking for a solution to print a webpage in Chrome.

What I did so far with VBA:
1. I open Chrome and load a web page using Selenium
2. Enter credentials to the webpage to enter the website (using Selenium)
3. Enter some data and pushing a botton - both by using Selenium

As a next step I would like to print out the web page which is loaded after pushing the button in step 3 (please see above).

Do you have any idea how I can achieve this?


Thanks in advance for ypu help!

Best Regards
Karsten

 

[Dan_W]

Hi Karsten. If you're using VBA to control Chrome via Selenium, I'm guessing that you are using the SeleniumBasic package. In that package, there were a number of sample scripts included to give some guidance on how to use to accomplish certain tasks - one of them being navigating to a website and then printing the webpage as a PDF. I have assumed that by "print out a webpage', you mean to save it as printoutable PDF file. If you need to also programmatically print it out, then that can be dealt with after obtaining a capture of the webpage.

Without seeing the code your using, it's tricky to give any more guidance, so I have reproduced the sample script below in it's entirety. Not all of it is relevant for your purposes, but let me know if you're having problems with it, and I can point out where in your code things need to be.

' ---------------------------------------------------------------------------------------
' Search for "Eiffel tower", create a Pdf and insert a screen capture of the page result.
' ---------------------------------------------------------------------------------------

Class Script
    Dim driver

    Sub Class_Initialize
        Set driver = CreateObject("Selenium.ChromeDriver")
        Set pdf = CreateObject("Selenium.PdfFile")
        
        'Define the PDF page size and margins
        pdf.SetPageSize 210, 297, "mm"
        pdf.SetMargins 5, 5, 5, 15, "mm"
        
        'Add a title and some text to the PDF
        pdf.AddTextCenter "Search for Eiffel tower", 14, true
        pdf.AddSpace 10
        pdf.AddText "Lorem ipsum dolor sit amet, consectetur adipiscing elit. " & _
            "Etiam sit amet libero arcu, et molestie purus. Ut in sem lacus, " & _
            "sit amet rhoncus erat. In aliquet arcu at nunc porta sollicitudin. " & _
            "Cras ante nisl, hendrerit quis bibendum quis, egestas vitae mi."
        
        'Open the search page and maximize the window
        driver.Get "https://www.google.co.uk"
        driver.Window.Maximize
        
        'Add a title, the URL and a screenshot to the PDF
        pdf.AddTitle "Search page"
        pdf.AddLink driver.Url
        pdf.AddImage driver.TakeScreenshot()
        
        'Search for Eiffel tower
        driver.Get "/search?q=Eiffel+tower"
        
        'Add a title, the URL and a screenshot to the PDF
        pdf.AddTitle "Results page"
        pdf.AddLink driver.Url
        pdf.AddImage driver.TakeScreenshot()
        
        'Save the PDF to a file
        pdf.SaveAs "my-capture-ff.pdf"
    End Sub

    Sub Class_Terminate
        driver.Quit    'Stops the browser
    End Sub
End Class

Set s = New Script

 

[KarstenH]

Hi Dan_W,

Thank you very much!
It works!
You made my day!


Best Regards
Karsten