Solved

How to print a webpage with VBA command

Posted on 2008-06-25
5
1,434 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

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

This article is a continuation or rather an extension from Cascading Combos (http://www.experts-exchange.com/A_5949.html) and builds on examples developed in detail there. It should be understandable alone, but I recommend reading the previous artic…
Describes a method of obtaining an object variable to an already running instance of Microsoft Access so that it can be controlled via automation.
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…
In Microsoft Access, learn different ways of passing a string value within a string argument. Also learn what a “Type Mis-match” error is about.

896 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

19 Experts available now in Live!

Get 1:1 Help Now