Visual Basic Customization

Visual Basic Customization

Reply
Contributor
cubuscoil
Posts: 19
Registered: ‎04-27-2008
Message 1 of 4 (256 Views)

Default Printer

256 Views, 3 Replies
04-11-2010 04:57 AM
How to get default printer's name ?
Mentor
Wheelie22
Posts: 199
Registered: ‎02-25-2010
Message 2 of 4 (256 Views)

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
cubuscoil
Posts: 19
Registered: ‎04-27-2008
Message 3 of 4 (256 Views)

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*
arcticad
Posts: 1,285
Registered: ‎06-21-2004
Message 4 of 4 (256 Views)

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))
Need installation help?

Start with some of our most frequented solutions or visit the Installation and Licensing Forum to get help installing your software.