Access 2007-2016
Access 2000-2003
Access Seminars
TechHelp Support
Tips & Tricks
Access Forum
Course Index
Topic Glossary
Insider Circle
Home   News   Tips   Glossary   Templates   Forums   Help   Logon   Order   Contact Us  


Microsoft Access Forum
By Richard Rost   Richard Rost on Facebook Richard Rost on Twitter Richard Rost on Google Plus Richard Rost on LinkedIn Email Richard Rost

This forum is for the discussion of Microsoft Access.

Access is my personal specialty. Have questions? Comments? Want to discuss how to do something? Post it here. Also, I get a LOT of questions sent to me in Email from people around the world. I'll post the interesting ones in here. Feel free to comment on them.

Click Here To Subscribe to this forum and receive an email update whenever new posts are added, just scroll down to the bottom of this page and enter your email address in the comment form.

Permanent Link
Keywords: microsoft access forum
Post New Topic

Read Print Website from Access by John H @ 12/8/2017
I am very new to vba, and have not been able to figure out how to print a website from Access or how to save a website as a pdf to a file on my hard drive.  Following are my failed attempts to do so.  What do I need to do to get either method below to work?  Also, there is an issue of pausing Access to allow time for the webpage to finish loading.  I hope this is easy for someone, and that I hear from someone soon.

Dim Webloc As String
Dim IE As Object
Dim FullWeb As String
Dim sFolder As String

sFolder = "H:\Property Tax Consulting\Annual Files\2017\" & Me.Log
Set IE = CreateObject("InternetExplorer.Application")
Webloc = Me.AppraisalDistrictPropertyID
FullWeb = "" & Webloc
With IE

    .Visible = True
    .Navigate FullWeb
    'Private Declare Sub sapiSleep Lib "kernel32" _
    '    Alias "Sleep" (ByVal dwMillisecons As Long)
    'Sub sSleep(lngMilliSec As Long)
    'If lngMilliSec > 0 Then
    '    Call sapiSleep(lngMilliSec)
    'End If
'Sub sTestSleep()
'Const cTIME = 1000 'in MilliSeconds
'    Call sSleep(cTIME)
'End Sub
    '.ExecWB 6, 2
    '    Call PDFPrint(sFolder & "\a.pdf")
    CreateObject("Shell.Application").Namespace(0).ParseName(sFolder & "\a.pdf").InvokeVerb ("Print")

MsgBox "Done"

'Dim S As String

' S = "" & AppraisalDistrictPropertyID
' S = Replace(S, " ", "+")

'Dim pdfFile, printName

'    pdfFile = "c:\TempC\0xx.pdf"
'    printName = "Microsoft Print to PDF"

' ShellExecute(S, "printto", """ & pdfFile & """,""" & printName & """,null,1)
' ShellExecute (S, printo, pdfFile, printName, null, 1)

End With
Set IE = Nothing
Exit Sub
End Sub

Reply from Alex Hedley:

So what is working and what isn't?
Show Just This Thread        Post Reply

Collapse All Topics


Post Your Comments or Subscribe
    If you would like to be notified of new posts on this forum,
    just enter your email address below. It will be kept private.
If you just want to subscribe to get email updates when this forum is updated, then enter your name and email address and check the Notify Me box below. If you would optionally like to add your comments below to be posted, they are welcome.
  Your Name:  Required
  Your Email:  NOT Public


Sorry about this step. It's just to keep the spam bots away:
  Verify: What is 4+6:
  Notify me when the this forum is updated
  Remember Me for my next comments
Please do not use this form for Customer Service inquiries! If you have questions about your account, shipping info, courses you've ordered, need passwords, etc. please use the Customer Service Center instead.

I value your comments. They will be displayed on this page (above). Your name will be displayed, but your email address will not be.
As always, I promise to never give away your personal information to anyone else, ever.

NOTE: If you don't leave your name and email address, DON'T expect a reply. I can't promise a personal reply to everyone who posts here. I TRY my best, but I cannot guarantee it. If you don't leave your real name and email address, I won't even bother. I usually just hit DELETE. -Richard



You may want to read these articles from the 599CD News:

8/25/2018NEW: Access Dev 9, 10, 11
8/25/2018Microsoft Access Developer 11
8/25/2018Microsoft Access Developer 10
8/25/2018Microsoft Access Developer 9
8/23/2018Access Dev 11 is ONLINE
8/17/2018Access Dev 10 is ONLINE
8/15/2018Access Tip: Search Form
8/15/2018Access Tip: Locked v. Enabled
8/15/2018Access Dev 9 is ONLINE
7/31/2018Microsoft Access Developer 8

Visual Basicindex
Account Login
Online Theater
Lost Password
Free Upgrades
Insider Circle
Student Databases
Change Email
Latest News
New Releases
User Forums
Topic Glossary
Tips & Tricks
Search Our Site
Waiting List
Production Schedule
Collapse Menus
Live Chat
Customer Support
WalkThru Tutorials
Consulting Services
About Us
Affiliate Program
Richard Rost
Free Lessons
Mailing List
Video Tutorials
MYOLP Memberships
Idiot's Guide to Excel
Volume Discounts
Payment Info
Terms of Sale
Gift CDs
Live Chat
General Info
Support Policy
Contact Form
Email Us
Mailing Address
Phone Number
Fax Number
Course Survey
Facebook    Twitter

Google Plus    LinkedIn

Blog RSS Feed    YouTube Channel
Richard Rost Microsoft MVP