Solved

Read Windows default printer (not Application.printer) in VBA

Posted on 2012-12-20
2
670 Views
Last Modified: 2012-12-20
It appears Access' Printer.DeviceName returns ACCESS' default printer.

I'm looking for a way to read the WINDOWS default printer.

I found THIS which allows me to SET the Windows default printer.

Private Declare Function SetDefaultPrinter Lib "winspool.drv" _
Alias "SetDefaultPrinterA" (ByVal pszPrinter As String) As Long

Open in new window


But, I can't find one that READS it.
0
Comment
Question by:Kaprice
2 Comments
 
LVL 26

Accepted Solution

by:
jerryb30 earned 500 total points
ID: 38711561
0
 

Author Closing Comment

by:Kaprice
ID: 38711619
Perfect! Thanks much.
0

Featured Post

Enterprise Mobility and BYOD For Dummies

Like “For Dummies” books, you can read this in whatever order you choose and learn about mobility and BYOD; and how to put a competitive mobile infrastructure in place. Developed for SMBs and large enterprises alike, you will find helpful use cases, planning, and implementation.

Question has a verified solution.

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

Suggested Solutions

The first two articles in this short series — Using a Criteria Form to Filter Records (http://www.experts-exchange.com/A_6069.html) and Building a Custom Filter (http://www.experts-exchange.com/A_6070.html) — discuss in some detail how a form can be…
Describes a method of obtaining an object variable to an already running instance of Microsoft Access so that it can be controlled via automation.
With Microsoft Access, learn how to specify relationships between tables and set various options on the relationship. Add the tables: Create the relationship: Decide if you’re going to set referential integrity: Decide if you want cascade upda…
In Microsoft Access, when working with VBA, learn some techniques for writing readable and easily maintained code.

816 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

10 Experts available now in Live!

Get 1:1 Help Now