Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
get default printer (xp, vista)
- Thread starter jozino01
- Start date
A quick search turned up the following results.
Swi
Swi
- Thread starter
- #3
thanks, I got it working with this simple code:
Private Declare Function GetProfileString Lib "kernel32.dll" Alias "GetProfileStringA" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long) As Long
...
Dim OldPrinter As String
Dim objPrinter As Printer
Set objPrinter = GetDefaultPrinter()
OldPrinter = objPrinter.DeviceName
Private Declare Function GetProfileString Lib "kernel32.dll" Alias "GetProfileStringA" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long) As Long
...
Dim OldPrinter As String
Dim objPrinter As Printer
Set objPrinter = GetDefaultPrinter()
OldPrinter = objPrinter.DeviceName
- Status
Similar threads
- Locked
- Question
