[编程交流] 代码无法正常工作

Function GetCurrentPrinters() As Variant
   
   Dim Buffer() As Long
   Dim PrintInfo() As PRINTER_INFO_4
   Dim NumBytes As Long, NumNeeded As Long, NumPrinters As Long
   Dim RetVal As Long, c As Long, Success As Boolean
   Dim AllPrinters() As String
   
   NumBytes = 3072
   ReDim Buffer(0 To (NumBytes \ 4) - 1) As Long
   
   Success = EnumPrinters(PRINTER_ENUM_LOCAL + PRINTER_ENUM_CONNECTIONS, "", 4, Buffer(0), NumBytes, NumNeeded, NumPrinters)
   If Success Then
       If NumNeeded > NumBytes Then
           NumBytes = NumNeeded
           ReDim Buffer(0 To (NumBytes \ 4) - 1) As Long
           Success = EnumPrinters(PRINTER_ENUM_LOCAL + PRINTER_ENUM_CONNECTIONS, "", 4, Buffer(0), NumBytes, NumNeeded, NumPrinters)
           If Not Success Then
               MsgBox "Error Enumerating Printers", vbInformation, "Message"
           End If
       End If
   Else
       MsgBox "Error Enumerating Printers", vbInformation, "Message"
   End If
   If Success And NumPrinters > 0 Then
       ReDim PrintInfo(0 To NumPrinters - 1) As PRINTER_INFO_4
       For c = 0 To NumPrinters - 1
           PrintInfo(c).pPrinterName = Space(StrLen(Buffer(c * 3)))
           RetVal = PtrToStr(PrintInfo(c).pPrinterName, Buffer(c * 3))
           PrintInfo(c).pServerName = Space(StrLen(Buffer(c * 3 + 1)))
           RetVal = PtrToStr(PrintInfo(c).pServerName, Buffer(c * 3 + 1))
           PrintInfo(c).Attributes = Buffer(c * 3 + 2)
           
       Next c
       
ReDim Preserve AllPrinters(NumPrinters)
       For c = 0 To NumPrinters - 1
       
           
           AllPrinters(c) = PrintInfo(c).pPrinterName
           
       Next c
   Else
       MsgBox "No Printers Found", vbInformation, "Message"
   End If
   GetCurrentPrinters = AllPrinters
   
   
End Function