VB设置默认打印机设置默认打印机
OptionExplicitConstKeyName="Software\Microsoft\WindowsNT\CurrentVersion\Windows"PrivateSubCommand1_Click()DimVerAsOSVERSIONINFO,SAsString,hKeyAsLongDimDeviceAsString,lengthAsLongVer.dwOSVersionInfoSize=Len(Ver)GetVersionExVerDevice=List1.Textlength=LenB(St