Visual Basic Customization

Visual Basic Customization

Reply
Contributor
19 Posts
0 Kudos
Registered: ‎04-27-2008
Post 1 of 4

Default Printer

264 Views, 3 Replies
04-11-2010 04:57 AM
How to get default printer's name ?
Mentor
205 Posts
8 Kudos
Registered: ‎02-25-2010
Post 2 of 4

Re: Default Printer

04-16-2010 02:35 AM in reply to: cubuscoil
You mean the W default printer ?

Thats START menu, settings, printers and settings.

And there is 1 with a little black dot (wel call it a vinkie in holland).

And this is your default printer in evry software program.
Contributor
19 Posts
0 Kudos
Registered: ‎04-27-2008
Post 3 of 4

Re: Default Printer

04-17-2010 11:36 PM in reply to: cubuscoil
Hi,Wheelie22 ! You describe a manual default printer setting. I want programmaticaly TO GET from VBA for AutoCad name of the default printer, which already was SET .
*Expert Elite*
1,286 Posts
37 Kudos
Registered: ‎06-21-2004
Post 4 of 4

Re: Default Printer

04-18-2010 12:54 AM in reply to: cubuscoil
{code}
Private Declare Function GetProfileStringA Lib "kernel32" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long) As Long

Function DefaultPrinterInfo() As String
Dim Result As String
Dim strLPT As String * 255
Call GetProfileStringA("Windows", "Device", "", strLPT, 254)
DefaultPrinterInfo = (Split(strLPT, ",")(0))
End Function
{code}
---------------------------



(defun botsbuildbots() (botsbuildbots))
Post to the Community

Have questions about Autodesk products? Ask the community.

New Post