Visual Basic Customization

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

Default Printer

249 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 (249 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 (249 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 (249 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))

You are not logged in.

Log into access your profile, ask and answer questions, share ideas and more. Haven't signed up yet? Register

Announcements
Are you familiar with the Autodesk Expert Elites? The Expert Elite program is made up of customers that help other customers by sharing knowledge and exemplifying an engaging style of collaboration. To learn more, please visit our Expert Elite website.

Need installation help?

Start with some of our most frequented solutions to get help installing your software.

Ask the Community