【撷取丰硕成果，Q1566A正能量】假如你始终那么虚弱脆弱，会十分辛劳。现实生活不能搞乱你，但你他们会，你晓得吗？。
GacVBA，我这儿著眼VBA, 少击众。我98年早已开始，从源代码碰触VBA早已20百余年了，随著年纪的快速增长，愈来愈真的有必要性把此项专业技能传达给须要此项控制技术的婚恋相关人员。期望婚恋和统计数据关系密切的好友，都来自学VBA,借助VBA,最起码能提升他们的管理效率，能有天数多见见双亲，多见见双亲，一举多得呢？
这讲我们竭尽全力自学64位Office API新闻稿句子第100讲，那些文本是MS的权威性统计数据资料，貌似乏味，但对想自学API表达式的好友是十分管用的。
当学生自学到马努省，假如提及API，那个统计数据资料能间接查到64位写法。绝大多数情况下他们是将旧版的流程文档升级换代到高版，此时您就无须为如下表所示的严重错误提示信息所所苦了：
Const JOB_CONTROL_PAUSE = 1
Const JOB_CONTROL_RESUME = 2
Const JOB_CONTROL_CANCEL = 3
Const JOB_CONTROL_RESTART = 4
Const JOB_STATUS_PAUSED = &H1
Const JOB_STATUS_ERROR = &H2
Const JOB_STATUS_DELETING = &H4
Const JOB_STATUS_SPOOLING = &H8
Const JOB_STATUS_PRINTING = &H10
Const JOB_STATUS_OFFLINE = &H20
Const JOB_STATUS_PAPEROUT = &H40
Const JOB_STATUS_PRINTED = &H80
Const JOB_POSITION_UNSPECIFIED = 0
Type ADDJOB_INFO_1
Path As String
JobId As Long
End Type
Type DRIVER_INFO_1
pName As String
End Type
Type DRIVER_INFO_2
cVersion As Long
pName As String
pEnvironment As String
pDriverPath As String
pDataFile As String
pConfigFile As String
End Type
Type DOC_INFO_1
pDocName As String
pOutputFile As String
pDatatype As String
End Type
Type FORM_INFO_1
Flags As Long
pName As String
Size As SIZEL
ImageableArea As RECTL
End Type
Const FORM_BUILTIN = &H1
Type PRINTPROCESSOR_INFO_1
pName As String
End Type
Type PORT_INFO_1
pName As String
End Type
Type MONITOR_INFO_1
pName As String
End Type
Type MONITOR_INFO_2
pName As String
pEnvironment As String
pDLLName As String
End Type
Type DATATYPES_INFO_1
pName As String
End Type
Type PRINTER_DEFAULTS
pDatatype As String
pDevMode As DEVMODE
DesiredAccess As Long
End Type
Type PRINTER_INFO_4
pPrinterName As String
pServerName As String
Attributes As Long
End Type
Type PRINTER_INFO_5
pPrinterName As String
pPortName As String
Attributes As Long
DeviceNotSelectedTimeout As Long
TransmissionRetryTimeout As Long
End Type
Const PRINTER_CONTROL_SET_STATUS = 4
Const PRINTER_ATTRIBUTE_WORK_OFFLINE = &H400
Const PRINTER_ATTRIBUTE_ENABLE_BIDI = &H800
Const JOB_CONTROL_DELETE = 5
Const JOB_STATUS_USER_INTERVENTION = &H10000
Type DRIVER_INFO_3
cVersion As Long
pName As String QMS 810
pEnvironment As String Win32 x86
pDriverPath As String c:\drivers\pscript.dll
pDataFile As String c:\drivers\QMS810.PPD
pConfigFile As String c:\drivers\PSCRPTUI.DLL
pHelpFile As String c:\drivers\PSCRPTUI.HLP
pDependentFiles As String
pMonitorName As String “PJL monitor”
pDefaultDataType As String “EMF”
End Type
Type DOC_INFO_2
pDocName As String
pOutputFile As String
pDatatype As String
dwMode As Long
JobId As Long
End Type
Const DI_CHANNEL = 1 start direct read/write channel,
Const DI_READ_SPOOL_JOB = 3
Type PORT_INFO_2
pPortName As String
pMonitorName As String
pDescription As String
fPortType As Long
Reserved As Long
End Type
Const PORT_TYPE_WRITE = &H1
Const PORT_TYPE_READ = &H2
Const PORT_TYPE_REDIRECTED = &H4
Const PORT_TYPE_NET_ATTACHED = &H8
Declare PtrSafe Function EnumPrinters Lib “winspool.drv” Alias “EnumPrintersA” (ByVal flags As Long, ByVal name As String, ByVal Level As Long, pPrinterEnum As Byte, ByVal cdBuf As Long, pcbNeeded As Long, pcReturned As Long) As Long
Const PRINTER_ENUM_DEFAULT = &H1
Const PRINTER_ENUM_LOCAL = &H2
Const PRINTER_ENUM_CONNECTIONS = &H4
Const PRINTER_ENUM_FAVORITE = &H4
Const PRINTER_ENUM_NAME = &H8
Const PRINTER_ENUM_REMOTE = &H10
Const PRINTER_ENUM_SHARED = &H20
Const PRINTER_ENUM_NETWORK = &H40
Const PRINTER_ENUM_EXPAND = &H4000
Const PRINTER_ENUM_CONTAINER = &H8000&
Const PRINTER_ENUM_ICONMASK = &HFF0000
Const PRINTER_ENUM_ICON1 = &H10000
Const PRINTER_ENUM_ICON2 = &H20000
Const PRINTER_ENUM_ICON3 = &H40000
Const PRINTER_ENUM_ICON4 = &H80000
Const PRINTER_ENUM_ICON5 = &H100000
Const PRINTER_ENUM_ICON6 = &H200000
Const PRINTER_ENUM_ICON7 = &H400000
Const PRINTER_ENUM_ICON8 = &H800000
Declare PtrSafe Function OpenPrinter Lib “winspool.drv” Alias “OpenPrinterA” (ByVal pPrinterName As String, phPrinter As LongPtr, pDefault As PRINTER_DEFAULTS) As Long
Declare PtrSafe Function ResetPrinter Lib “winspool.drv” Alias “ResetPrinterA” (ByVal hPrinter As LongPtr, pDefault As PRINTER_DEFAULTS) As Long
Declare PtrSafe Function SetJob Lib “winspool.drv” Alias “SetJobA” (ByVal hPrinter As LongPtr, ByVal JobId As Long, ByVal Level As Long, pJob As Byte, ByVal Command As Long) As Long
Declare PtrSafe Function GetJob Lib “winspool.drv” Alias “GetJobA” (ByVal hPrinter As LongPtr, ByVal JobId As Long, ByVal Level As Long, pJob As Byte, ByVal cdBuf As Long, pcbNeeded As Long) As Long
Declare PtrSafe Function EnumJobs Lib “winspool.drv” Alias “EnumJobsA” (ByVal hPrinter As LongPtr, ByVal FirstJob As Long, ByVal NoJobs As Long, ByVal Level As Long, pJob As Byte, ByVal cdBuf As Long, pcbNeeded As Long, pcReturned As Long) As Long
Declare PtrSafe Function AddPrinter Lib “winspool.drv” Alias “AddPrinterA” (ByVal pName As String, ByVal Level As Long, pPrinter As Any) As LongPtr
我20多年的VBA实践经验，全部浓缩在下面的各个教程中：
【撷取丰硕成果，Q1566A正能量】 空手把锄头，步行骑水牛。人从桥上过，桥流水不流。 远观山有色，近听水无声。春去花犹在，人来鸟不惊。 兴来每独往，胜事空自知。行到水穷处，坐看云起时。 。
