Solved

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

Posted on 2011-03-08
4
1,591 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
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
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

Instantly Create Instructional Tutorials

Contextual Guidance at the moment of need helps your employees adopt to new software or processes instantly. Boost knowledge retention and employee engagement step-by-step with one easy solution.

Question has a verified solution.

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

As tax season makes its return, so does the increase in cyber crime and tax refund phishing that comes with it
It’s the first day of March, the weather is starting to warm up and the excitement of the upcoming St. Patrick’s Day holiday can be felt throughout the world.
Familiarize people with the process of retrieving data from SQL Server using an Access pass-thru query. Microsoft Access is a very powerful client/server development tool. One of the ways that you can retrieve data from a SQL Server is by using a pa…
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…

752 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