Good morning.
I would like users to print a file using the default printer and I want to show them where it printing. Is there a API for this? Please bear with me as I'm using VB Professional 3.
Thanks,
JazzBass
Printable View
Good morning.
I would like users to print a file using the default printer and I want to show them where it printing. Is there a API for this? Please bear with me as I'm using VB Professional 3.
Thanks,
JazzBass
This is howe it works with API, not sure this will work with VB3 though, you'll have to check it out ?
Add a command button to your form and paste this code into the form
Private Declare Function RegOpenKeyEx Lib "advapi32" Alias _
"RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, _
ByVal dwReserved As Long, ByVal samDesired As Long, phkResult _
As Long) As Long
Private Declare Function RegQueryValueEx Lib "advapi32" Alias _
"RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName$, _
ByVal lpdwReserved As Long, lpdwType As Long, lpData As Any, _
lpcbData As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32" (ByVal hKey As Long) As Long
Private Declare Function WNetConnectionDialog Lib _
"mpr.dll" (ByVal hWnd As _
Long, ByVal dwType As Long) As Long
Const HKEY_CURRENT_CONFIG As Long = &H80000005
Function RegGetString$(hInKey As Long, ByVal subkey$, ByVal valname$)
'Needed declarations
Dim RetVal$, hSubKey As Long, dwType As Long, SZ As Long
Dim R As Long
RetVal$ = ""
Const KEY_ALL_ACCESS As Long = &HF0063
Const ERROR_SUCCESS As Long = 0
Const REG_SZ As Long = 1
'Open the key
R = RegOpenKeyEx(hInKey, subkey$, 0, KEY_ALL_ACCESS, hSubKey)
If R <> ERROR_SUCCESS Then GoTo Quit_Now
SZ = 256: v$ = String$(SZ, 0)
R = RegQueryValueEx(hSubKey, valname$, 0, dwType, ByVal v$, SZ)
If R = ERROR_SUCCESS And dwType = REG_SZ Then
RetVal$ = Left$(v$, SZ - 1)
Else
RetVal$ = "--Not String--"
End If
If hInKey = 0 Then
R = RegCloseKey(hSubKey)
End If
Quit_Now:
RegGetString$ = RetVal$
End Function
Private Sub Command1_Click()
Dim GetCurrPrinter As String
GetCurrPrinter = RegGetString$(HKEY_CURRENT_CONFIG, _
"System\CurrentControlSet\Control\Print\Printers", "Default")
MsgBox GetCurrPrinter
End
End Sub
Regards,
Hutchie
Thanks for trying, but your right. It won't work under VB3. To my knowledge, it does not have any Registry API's.
Thanks though,
JazzBass