改变预设的印表机

时　间:2008-10-13 19:21:12
作　者:danis   ID：3378  城市：广州
摘　要:改变预设的印表机
正　文:

Declare Function SendNotifyMessageA Lib "user32" (ByVal hwnd As Long, ByVal msg As Long, _
                 ByVal wParam As Long, lParam As Any) As Long
Declare Function SetDefaultPrinterA Lib "winspool.drv" (ByVal pszPrinter As String) As Long

Const HWND_BROADCAST As Long = &HFFFF&
Const WM_WININICHANGE As Long = &H1A

Sub Test()
    SetDefaultPrinterA "PC1"
    Call SendNotifyMessageA(HWND_BROADCAST, WM_WININICHANGE, 0, ByVal "Windows")
End Sub

Access软件网QQ交流群 (群号:54525238) 　　　　　　Access源码网店