Print Child (Popup) Internet Explorer Window:

M

MattDW

Board Regular
Joined
Mar 7, 2007
Messages
66
What is the correct method for targeting and printing a child (Internet Explorer) web browser window using VBA from within Excel 2016?

I've tried a couple of different methods and so far none of them have worked.

Try 1:

This prints a page to the printer but it targets the parent window to print, it did not print the child popup window.

Code: 
PrintTicketPreview:

    'Wait Until Internet Explorer Is Not Busy
    While IE.Busy Or IE.ReadyState <> READYSTATE_COMPLETE
        DoEvents
    Wend
    
    'Look At Only Element Types Of Form
    Set Tags = IE.Document.getElementsByTagName("form")
    
    'Click The Escalate Button Twice To Escalate This Ticket To IT Electronic Repair Services Level 3
    For Each Tagx In Tags
        'Identify DIV Container By ID Attribute
        If Tagx.getAttribute("name") = "ticketForm" Then
            'Get Path From upDateURL Attribute In DIV Container
            Path = Tagx.getAttribute("action")
            'Use Srring Manipulation To Get Only The RequestID Number From Path
            RequestID = Right(Path, Len(Path) - Application.WorksheetFunction.Find("wo/", Path) - 2)
            'Add RequestID To Below JavaScript Call To Click On Asset ID Hyperlink To Attach It To The Ticket
            Call CurrentWindow.execScript("javascript:************('/helpdesk/WebObjects/Helpdesk.woa/wo/" & RequestID & ".1.1.6.1','printView','toolbar=no,location=yes,status=no,menubar=no,resizable=yes,scrollbars=yes,top=50,left=50,width=700,height=700')")
            GoTo PrintTicket
        End If
    Next
    
    Exit Sub
    
PrintTicket:

    On Error Resume Next
   
    'Wait Until Internet Explorer Is Not Busy
    While IE.Busy Or IE.ReadyState <> READYSTATE_COMPLETE
        DoEvents
    Wend
    
    'Loop Through All Open Windows...
    For Each wd In CreateObject("Shell.Application").Windows
        'And Find The Internet Explorer Windows...
        If wd = "Internet Explorer" Then
            'With The Title Containins Print View
            If InStr(wd.Document.Title, "Print View") <> 0 Then
                'Bring This WindoXws To The Front
                wd.Focus
                wd.AppActive
                'Send That IE Ticket Window To The Default Printer
                IE.ExecWB 6, 2
            End If
        End If
    Next wd

Try 2:

This method didn't error but it also didn't print anything.

Code: 
PrintTicketPreview:

    'Wait Until Internet Explorer Is Not Busy
    While IE.Busy Or IE.ReadyState <> READYSTATE_COMPLETE
        DoEvents
    Wend
    
    'Look At Only Element Types Of Form
    Set Tags = IE.Document.getElementsByTagName("form")
    
    'Click The Escalate Button Twice To Escalate This Ticket To IT Electronic Repair Services Level 3
    For Each Tagx In Tags
        'Identify DIV Container By ID Attribute
        If Tagx.getAttribute("name") = "ticketForm" Then
            'Get Path From upDateURL Attribute In DIV Container
            Path = Tagx.getAttribute("action")
            'Use Srring Manipulation To Get Only The RequestID Number From Path
            RequestID = Right(Path, Len(Path) - Application.WorksheetFunction.Find("wo/", Path) - 2)
            'Add RequestID To Below JavaScript Call To Click On Asset ID Hyperlink To Attach It To The Ticket
            Call CurrentWindow.execScript("javascript:************('/helpdesk/WebObjects/Helpdesk.woa/wo/" & RequestID & ".1.1.6.1','printView','toolbar=no,location=yes,status=no,menubar=no,resizable=yes,scrollbars=yes,top=50,left=50,width=700,height=700')")
            GoTo PrintTicket
        End If
    Next
    
    Exit Sub
    
PrintTicket:

    On Error Resume Next

   Const OLECMDID_PRINT = 6
   Const OLECMDEXECOPT_DONTPROMPTUSER = 2
   Const PRINT_WAITFORCOMPLETION = 2

   Dim oIExplorer : Set oIExplorer =
   CreateObject("InternetExplorer.Application")
   oIExplorer.Navigate "http://www.scriptbox.at.tt/"
   oIExplorer.Visible = 1

   Do while oIExplorer.ReadyState <> 4
      wscript.sleep 1000
    Loop

   oIExplorer.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER

Try 3:

This method printed but it again targeted the parent window to print, it did not print the child popup window:

Code: 
PrintTicketPreview:

    'Wait Until Internet Explorer Is Not Busy
    While IE.Busy Or IE.ReadyState <> READYSTATE_COMPLETE
        DoEvents
    Wend
    
    'Look At Only Element Types Of Form
    Set Tags = IE.Document.getElementsByTagName("form")
    
    'Click The Escalate Button Twice To Escalate This Ticket To IT Electronic Repair Services Level 3
    For Each Tagx In Tags
        'Identify DIV Container By ID Attribute
        If Tagx.getAttribute("name") = "ticketForm" Then
            'Get Path From upDateURL Attribute In DIV Container
            Path = Tagx.getAttribute("action")
            'Use Srring Manipulation To Get Only The RequestID Number From Path
            RequestID = Right(Path, Len(Path) - Application.WorksheetFunction.Find("wo/", Path) - 2)
            'Add RequestID To Below JavaScript Call To Click On Asset ID Hyperlink To Attach It To The Ticket
            Call CurrentWindow.execScript("javascript:************('/helpdesk/WebObjects/Helpdesk.woa/wo/" & RequestID & ".1.1.6.1','printView','toolbar=no,location=yes,status=no,menubar=no,resizable=yes,scrollbars=yes,top=50,left=50,width=700,height=700')")
            GoTo PrintTicket
        End If
    Next
    
    Exit Sub
    
PrintTicket:

    On Error Resume Next

    Dim oIExplorer:
    Set IE = New SHDocVw.InternetExplorerMedium
    
    'Look At Only Element Types Of DIV
    Set Tags = IE.Document.getElementsByTagName("a")
    
    For Each Tagx In Tags
        'Identify DIV Container By ID Attribute
        If Tagx.getAttribute("title") = "Printable view" Then
            'Get Path From upDateURL Attribute In DIV Container
            Path = Tagx.getAttribute("href")
            'Use Srring Manipulation To Get Only The RequestID Number From Path
            RequestID = Right(Path, Len(Path) - Application.WorksheetFunction.Find("wo/", Path) - 2)
            'Set IE.Navigate Equal To The URL Of The Print View Ticket Print Preview Windows That Appears
            IE.Navigate "https://help.psdschools.org/helpdesk/WebObjects/Helpdesk.woa/wo/" & RequestID & ""
            'Set
            IE.Visible = True

            'Wait Until Internet Explorer Is Not Busy
            While IE.Busy Or IE.ReadyState <> READYSTATE_COMPLETE
                DoEvents
            Wend

            'Send Print Job Directly To The Default Printer Without Any User Interaction
            IE.ExecWB 6, 2
        End If
    Next

Is there something wrong in my code or is there a different approach I should be taking to print a child popup window in a web browser?

Here is the code that establishes the connection with the parent window:

Code: 
GoToWebsite:

    'URL For The Ticketing System
    URL = "https://help.psdschools.org/helpdesk/WebObjects/Helpdesk.woa"
    
    'Create InternetExplorer Object
    'Set IE = New SHDocVw.InternetExplorerMedium
    Set IE = New SHDocVw.InternetExplorerMedium
    
    'Make Internet Explorer Visible
    IE.Visible = True
    
    'Go to UR Specified Above
    IE.Navigate URL

    'Get Screen Resolution Width in Points
    ScreenWidth = GetSystemMetrics32(0)
    'Get Screen Resolution Height in Points
    ScreenHeight = GetSystemMetrics32(1)

    'Set Internet Explorer Window To Match Monitor Screen Resolution With Position Being In The Top-Left Corner
    IE.Left = 0
    IE.Top = 0
    IE.Width = ScreenWidth
    IE.Height = ScreenHeight
    
    'Wait Until Internet Explorer Is Not Busy
    While IE.Busy Or IE.ReadyState <> READYSTATE_COMPLETE
        DoEvents
    Wend

Thank much!
 

Excel Facts

Quick Sum
Select a range of cells. The total appears in bottom right of Excel screen. Right-click total to add Max, Min, Count, Average.
Sort by date Sort by votes
You must log in or register to reply here.

Similar threads

S
  • Question
Autoamting Internet Explorer webpage using VBA, but stuck with a window popup to enter a value
Replies
0
Views
2K
SATZ
S
M
  • Question
Code Works On Windows 10 Machine But Not Windows 8.1:
Replies
6
Views
2K
MattDW
M
M
  • Question
Excel VBA to Click Ajax Link:
Replies
3
Views
5K
MattDW
M
O
  • Question
VBA - Internet Explorer Automation. (Locating data from tables)
Replies
0
Views
2K
Omen666blue
O
R
  • Question
Switched to Windows 10 now my code fails! (Internet Explorer Control)
Replies
1
Views
3K
razzandy
R

Forum statistics

Threads
1,214,586
Messages
6,120,402
Members
448,958
Latest member
Hat4Life

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top