Solved

Save and restore user's ActivePrinter in MS-Access VBA

Posted on 2011-03-08
4
1,503 Views
Last Modified: 2016-10-10
In an MS-Access application, I need to save the user's current default printer before changing it to a Pdf-Writer to email a report.  On completion I must restore the user's default printer.

I have the code:
    Dim stUsersPrinter As String
    stUsersPrinter = Application.ActivePrinter

However I get a compile error:
    "Method or data member not found"

I am using MS-Access 2003.
Under Tools/References I have:
  Visual basic for applications
  Microsoft Access 11.0 Object library
  Microsoft DAO 3.6 Object Library
  Microsoft Visual Basic for Applications Extensibility 5.3
  Microsoft ADO Ext.2.8 for DDL and Security
  Microsoft ActiveX Data Objects Recordset 2.8 Library
  OLE Automation
  Adobe Acrobat 9.0 Type Library
  Find Printers type library
  Microsofoft Office 11.0 Object Library
  Windows Script Host Object model
  Acrobat Access 3.0 Type Library
 
0
Comment
Question by:David_Loxley
4 Comments
 
LVL 77

Accepted Solution

by:
peter57r earned 50 total points
ID: 35072518
Dim myDefPrt as string
'get current default printer.
mydefPrt= Application.Printer.DeviceName

' change the printer
Set Application.Printer = Application.Printers("printername")
' do your printing here.........


'then reset default.
Set Application.Printer = Application.Printers(mydefPrt)


0
 
LVL 19

Expert Comment

by:Eric Sherman
ID: 35075369
The code above posted peter57r will work in Access 2003 and later versions.

ET
0
 

Author Closing Comment

by:David_Loxley
ID: 35076308
Thanks - so simple when you know how!  I had been wading through all sorts of complexities.
0
 

Expert Comment

by:muneer alkouak
ID: 41836924
thanks, i will test it
0

Featured Post

Comprehensive Backup Solutions for Microsoft

Acronis protects the complete Microsoft technology stack: Windows Server, Windows PC, laptop and Surface data; Microsoft business applications; Microsoft Hyper-V; Azure VMs; Microsoft Windows Server 2016; Microsoft Exchange 2016 and SQL Server 2016.

Join & Write a Comment

Suggested Solutions

It took me quite some time to sort out all the different properties of combo and list boxes available from Visual Basic at run-time. Not that the documentation is lacking: the help pages are quite thorough and well written. The problem was rather wh…
Introduction When developing Access applications, often we need to know whether an object exists.  This article presents a quick and reliable routine to determine if an object exists without that object being opened. If you wanted to inspect/ite…
Basics of query design. Shows you how to construct a simple query by adding tables, perform joins, defining output columns, perform sorting, and apply criteria.
Access reports are powerful and flexible. Learn how to create a query and then a grouped report using the wizard. Modify the report design after the wizard is done to make it look better. There will be another video to explain how to put the final p…

760 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

21 Experts available now in Live!

Get 1:1 Help Now