Solved

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

Posted on 2012-12-20
2
648 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

Free Gift Card with Acronis Backup Purchase!

Backup any data in any location: local and remote systems, physical and virtual servers, private and public clouds, Macs and PCs, tablets and mobile devices, & more! For limited time only, buy any Acronis backup products and get a FREE Amazon/Best Buy gift card worth up to $200!

Join & Write a Comment

Regardless of which version on MS Access you are using, one of the harder data-entry forms to create is one where most data from previous entries needs to be appended to new records, especially when there are numerous fields and records involved.  W…
In a multiple monitor setup, if you don't want to use AutoCenter to position your popup forms, you have a problem: where will they appear?  Sometimes you may have an additional problem: where the devil did they go?  If you last had a popup form open…
Familiarize people with the process of utilizing SQL Server views from within Microsoft Access. Microsoft Access is a very powerful client/server development tool. One of the SQL Server objects that you can interact with from within Microsoft Access…
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.

707 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

14 Experts available now in Live!

Get 1:1 Help Now