Slow Chat with the Microsoft Visual Basic team.Universal Windows Platform and Modern Windows Experience.Quick Navigation Visual Basic 6 and Earlier Top SendMessage HWND_BROADCAST, WM_WININICHANGE, 0, 'windows'Įnd FunctionAnd Gruff, yeah, I spotted the VBA7 and Win64 flags pretty early in my research. 'Cause all applications to reload the INI file: R = WriteProfileString('windows', 'Device', DeviceLine) 'Store the new printer information in the section of the WIN.INI file for the DEVICE= item If DriverName '' And PrinterPort '' ThenĭeviceLine = DeviceName & ',' & DriverName & ',' & PrinterPort PrinterPort = Mid(buffer, iDriver + 1, iPort - iDriver - 1) 'The port name is the second entry after the driver name separated by commas. 'The driver name is first in the string terminated by a comma ' Parse the driver name and port name out of the buffer R = GetProfileString('PrinterPorts', DeviceName, '', buffer, Len(buffer)) 'If its not currently set as the default then set it. 'm_sPrevPrinterPort = Mid(Buffer, InStrRev(Buffer, ',') + 1) 'm_sPrevPrinterDriver = Mid(Buffer, InStr(Buffer, ',') + 1, InStrRev(Buffer, ',') - InStr(Buffer, ',') - 1) SPrinterDevName = Mid(buffer, 1, InStr(buffer, ',') - 1) 'Store the current default printer before we change it R = GetProfileString('windows', 'Device', '', buffer, Len(buffer)) Public Function SetPrinterAsDefault(ByVal DeviceName As String) As Boolean

Private Declare Function SendMessage Lib 'user32' Alias 'SendMessageA' (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As String) As Long Private Declare Function WriteProfileString Lib 'kernel32' Alias 'WriteProfileStringA' (ByVal lpszSection As String, ByVal lpszKeyName As String, ByVal lpszString As String) As Long Private Declare Function GetProfileString Lib 'kernel32' Alias 'GetProfileStringA' (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long) As Long Private Declare PtrSafe Function SendMessage Lib 'user32' Alias 'SendMessageA' (ByVal hWnd As LongPtr, ByVal wMsg As Long, ByVal wParam As LongPtr, lParam As String) As LongPtr Private Declare PtrSafe Function WriteProfileString Lib 'kernel32' Alias 'WriteProfileStringA' (ByVal lpszSection As String, ByVal lpszKeyName As String, ByVal lpszString As String) As Long ' Return isn't handle. Private Declare PtrSafe Function GetProfileString Lib 'kernel32' Alias 'GetProfileStringA' (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long) As Long ' Return isn't handle.

Windows api enumprintersw