Selen_Chan!!

[GCuser99]

I just ran across this instructional channel on Note.Com called selen_chan that I believe @hanamichi77777 authors(?). It contains nearly 30 SeleniumVBA topics such as "converting from SeleniumBasic to SeleniumVBA", technical guides, and actual project work: "Plot from address data to a GSI map".

It's amazing! I think the author knows more about SeleniumVBA than I do! Anyway, check it out. The channel is in Japanese but translates nicely to English.

@hanamichi77777 if that is your work, feel free to leave a linked topic index to your work in this discussion below.

[hanamichi77777]

Thank you for reading this Note article. I am writing under the name sele_chan.
SeleniumVBA is very useful because it can be used in environments where installation is not possible and it has many advanced features.

[hanamichi77777]

My favorite is CNN 10
SeleniumVBA6.7(CNN10)123.xlsm
. I keep the subtitles on so I can study English.
The password is 123.
The file is in Japanese, but can I watch it?

[GCuser99]

I tried your app - very cool indeed!

[GCuser99]

Some improvements inspired by [SeleniumVBA] Save WEB page as PDF via print dialog:

Sub test_print()
    Dim driver As WebDriver
    Dim settings As WebPrintSettings
    Dim lastScrollHeight As Long, scrollHeight As Long

    Set driver = New WebDriver
    Set settings = New WebPrintSettings

    driver.StartChrome
    
    driver.OpenBrowser
    
    driver.NavigateTo "https://www.yahoo.co.jp/"
    
    driver.ActiveWindow.Maximize
    
    'insure that the entire page is loaded - fix for https://note.com/sele_chan/n/n4f6fee34b5bb
    scrollHeight = driver.GetScrollHeight
    Do
        driver.ScrollToBottom enSpeed:=jump_smooth
        driver.Wait 500
        lastScrollHeight = scrollHeight
        scrollHeight = driver.GetScrollHeight
    Loop Until scrollHeight = lastScrollHeight
    
    settings.Units = svbaInches
    settings.MarginsAll = 0.4
    settings.Orientation = svbaPortrait
    settings.PrintScale = 1

    'As of v7.0, we can display/modify the header and footer
    settings.DisplayHeaderFooter = True
    
    driver.PrintToPDF , settings

    driver.Wait 1000
    
    driver.CloseBrowser
    driver.Shutdown
End Sub