Solved

How to print a webpage with VBA command

Posted on 2008-06-25
5
1,418 Views
Last Modified: 2013-11-27
Hi all,

The following question shouldn't be so hard. I want to automaticly print the webpage that i requested with the code below and then close it again.Tthe file loaded in the webpage can be a jpg file, a tif file or a svg file. The last file can only be opened with mozilla or internet explorer.
The code works good so far but I don't know the command to use to print the webpage loaded in internet explorer and then clos it again.
Set s = CreateObject("InternetExplorer.application")

      s.Visible = True

      s.Navigate path & FileB
 

' command for printing the webpage

' command for closing the webpage

Open in new window

0
Comment
Question by:dprager
  • 3
  • 2
5 Comments
 
LVL 23

Accepted Solution

by:
irudyk earned 50 total points
ID: 21868479
Try the following code
Set s = CreateObject("InternetExplorer.application")

      

With s

    .Visible = True

    .Navigate "http://www.taylorleibow.com/home.asp"

    

    ' command for printing the webpage

    Do Until .ReadyState = 4 'READYSTATE_COMPLETE

      DoEvents

    Loop
 

    .ExecWB 6, 2, 2, 0 'OLECMDID_PRINT,OLECMDEXECOPT_DONTPROMPTUSER,PRINT_WAITFORCOMPLETION,0

 

' command for closing the webpage

    .Quit

End With

Open in new window

0
 
LVL 23

Expert Comment

by:irudyk
ID: 21868528
Also, if you want the user to be able to pick the printer then use:
.ExecWB 6, 1, 2, 0
0
 
LVL 1

Author Comment

by:dprager
ID: 21873135
Thans for the code. It works great on a single command but when I use it in a loop I get the error " loop without Do. When I pull the code you gave out of the loop it works fine using other commands  or instructions. Can you tell me what I'm doing wrong?


Call ListFilesToTable("C:\Documents and Settings\801565\Desktop\Afrika\", "*.svg")
 

Dim file As String, path As String

Dim rst As DAO.Recordset

Set rst = CurrentDb.OpenRecordset("files")

Do Until rst.EOF

    rst.Edit

    path = rst!fpath

    file = rst!fname

        Set s = CreateObject("InternetExplorer.application")

        With s

            .Visible = True

            .Navigate path & file

                Do Until .ReadyState = 4

                    DoEvents

                Loop

            .ExecWB 6, 2, 2, 0

            .Quit

    rst.Update

    rst.MoveNext

Loop
 

rst.Close
 

End Sub

Open in new window

0
 
LVL 23

Expert Comment

by:irudyk
ID: 21874037
You are missing the
   End With
after the
   .Quit

See revised code
Call ListFilesToTable("C:\Documents and Settings\801565\Desktop\Afrika\", "*.svg")

 

Dim file As String, path As String

Dim rst As DAO.Recordset

Set rst = CurrentDb.OpenRecordset("files")

Do Until rst.EOF

    rst.Edit

    path = rst!fpath

    file = rst!fname

        Set s = CreateObject("InternetExplorer.application")

        With s

            .Visible = True

            .Navigate path & file

                Do Until .ReadyState = 4

                    DoEvents

                Loop

            .ExecWB 6, 2, 2, 0

            .Quit

        End With

    rst.Update

    rst.MoveNext

Loop

 

rst.Close

 

End Sub

Open in new window

0
 
LVL 1

Author Comment

by:dprager
ID: 21881281
I should have known that last question. Feeling kinda stupid now.

Thanks for the help guys !! it works great.
0

Featured Post

Top 6 Sources for Identifying Threat Actor TTPs

Understanding your enemy is essential. These six sources will help you identify the most popular threat actor tactics, techniques, and procedures (TTPs).

Join & Write a Comment

I see at least one EE question a week that pertains to using temporary tables in MS Access.  But surprisingly, I was unable to find a single article devoted solely to this topic. I don’t intend to describe all of the uses of temporary tables in t…
A simple tool to export all objects of two Access files as text and compare it with Meld, a free diff tool.
As developers, we are not limited to the functions provided by the VBA language. In addition, we can call the functions that are part of the Windows operating system. These functions are part of the Windows API (Application Programming Interface). U…
In Microsoft Access, learn the trick to repeating sub-report headings at the top of each page. The problem with sub-reports and headings: Add a dummy group to the sub report using the expression =1: Set the “Repeat Section” property of the dummy…

758 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

18 Experts available now in Live!

Get 1:1 Help Now