vb 获取 打印机 相关信息

Question

  在VB编程中，如何获取，打印是否联机？还有就是打印机的纸张的最小页边距

Answer 1

'The   data   stored   in   'buffer '   corresponds   with   the   data   of   a   PRINTER_INFO_2   structure 
        ClosePrinter   mhPrinter 
        'Show   the   data 
        PrintData   "Server   name ",   StringFromPointer(buffer(0),   255) 
        PrintData   "Printer   name ",   StringFromPointer(buffer(1),   255) 
        PrintData   "Share   name ",   StringFromPointer(buffer(2),   255) 
        PrintData   "Port   name ",   StringFromPointer(buffer(3),   255) 
        PrintData   "Driver   name ",   StringFromPointer(buffer(4),   255) 
        PrintData   "Comment ",   StringFromPointer(buffer(5),   255) 
        PrintData   "Location ",   StringFromPointer(buffer(6),   255) 
        Unload   Me 
End   Sub 
Sub   PrintData(Name   As   String,   Data   As   String) 
        If   LenB(Data)   >   0   Then 
                Debug.Print   Name   +   ":   "   +   Data 
        End   If 
End   Sub