Default Printer

[Anonymous]

How to get default printer's name ?

[Wheelie22]

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.

[Anonymous]

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 .

[arcticad]

{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}