几个打印机的API函数

韩冰

前几天写程序用到几个打印的API函数.把研究成果和大家分享

建议大家结合MSDN看看

Private Type PRINTER_INFO_1

$ V! A* y5 _4 _9 [3 i6 F4 k! ]

Flags As Long

pDescription As Long

pName As Long

pComment As Long

End Type

$ t6 @+ `6 N( y& h7 x

Private Declare Function PrinterProperties Lib "winspool.drv" (ByVal hWnd As

; p+ {& z8 b; j% j

Long, ByVal hPrinter As Long) As Long

+ l7 _+ g( \1 r* u

Private Declare Function ClosePrinter Lib "winspool.drv" (ByVal hPrinter As

* I/ q: F$ j1 a/ a! c

Long) As Long

4 L2 n$ M+ g- ^; h: Q: q j" h

Private Declare Function OpenPrinter Lib "winspool.drv" Alias "OpenPrinterA"

(ByVal pPrinterName As String, phPrinter As Long, pDefault As Long) As Long

5 }- X7 y1 B! V

Private Declare Function GetPrinter Lib "winspool.drv" Alias "GetPrinterA" (

ByVal hPrinter As Long, ByVal Level As Long, pPrinter As Any, ByVal cbBuf As

) M3 Z [7 x7 J7 `& ]

Long, pcbNeeded As Long) As Long

Private Declare Function lstrcpy Lib "kernel32" Alias "lstrcpyA" _

3 }& l+ q7 T+ U0 G8 b: z

(ByVal lpString1 As String, ByVal lpString2 As Long) As Long

Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpSt

1 a; @5 G& J9 l. \/ ]" n* A; G

ring As Long) As Long

GetPrinter函数返回的数据即我们想要的数据在参数pPrinter而且是一个地址指针指向

7 i7 [4 ^4 f) Q& [4 @# i0 w$ w

一个PRINTER_INFO_1结构.结构的pDescription 是指向打印机描述字符串的指针.

在VB只好用CopyMemory,lstrcpy 和 lstrlen得到这个字符串.

下面是 例程:得到打印机的类型名

'pDeviceName是打印机名

'pType 是返回的打印机 Description中的打印机类型.这个串里还有打印机名和驱动程序

) p6 [6 s/ v3 G. b" q

Private Sub GetPrint(pDeviceName, pType As String)

Dim pIn As PRINTER_INFO_1

9 Z6 P4 m% _6 i) e: j

Dim s As String * 256

Dim r As Long, phPrinter As Long, r1 As Long

On Error Resume Next

r = OpenPrinter(pDeviceName & Chr(0), phPrinter, 0&)

If r = 0 Then Exit Sub

( t" i/ c5 Z& Y4 D/ X

r = GetPrinter(phPrinter, 1, 0, 0, r1)

ReDim pPrinter(r1) As Byte

r = GetPrinter(phPrinter, 1, pPrinter(0), r1, r1)

If r = 0 Then Exit Sub

+ `9 ?0 S) _1 }8 a

r = ClosePrinter(phPrinter)

' K, I) v* ^4 h' L+ _# f

CopyMemory pIn, pPrinter(0), Len(pIn)

r1 = lstrlen(pIn.pDescription)

r = lstrcpy(s, pIn.pDescription)

, [ Y: B8 i) {- u8 R1 \

If r = 0 Then Exit Sub

* @4 B8 P% F# H% @0 q" o9 S

pType = Left(s, r1)

r1 = InStr(1, pType, ",")

9 s. ?) Q r% G

r = InStr(r1 + 1, pType, ",")

) }: w/ t9 E6 z

pType = Mid(pType, r1 + 1, r - r1 - 1)

# E3 _# h( X* m0 }7 q" T

End Sub

PrinterProperties函数比较简单.你试试吗?