几个打印机的API函数

韩冰

: c9 }* w; o1 g4 G, r

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

建议大家结合MSDN看看

/ {; ^* C- O2 ]1 ]

Private Type PRINTER_INFO_1

Flags As Long

2 ?3 D0 |. V3 @, L. P* T

pDescription As Long

- h/ B8 F7 [4 @6 `& {8 W( R

pName As Long

. O2 k) L6 N! m( H4 }

pComment As Long

8 d j. _. E, ~; I. q! r

End Type

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

Long, ByVal hPrinter As Long) As Long

" M$ X; U. I$ u/ E' X/ A

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

Long) As Long

" d# x. r3 J6 n4 p: i% M/ m7 L

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

; b$ F2 ~& N6 @* r3 W

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

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

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

Long, pcbNeeded As Long) As Long

2 w1 {& |$ c& O* G( z

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

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

* V. U2 [+ P2 W/ u( j2 g

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

ring As Long) As Long

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

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

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

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

4 d# g6 V0 Q" D- Z

'pDeviceName是打印机名

9 T; P4 D: Y, ^* `/ q" P

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

- G* H o0 v" n( ^

Private Sub GetPrint(pDeviceName, pType As String)

Dim pIn As PRINTER_INFO_1

Dim s As String * 256

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

$ W3 e8 V" c2 u8 q% G

On Error Resume Next

W8 y$ ~# ]: Z, @

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

If r = 0 Then Exit Sub

* l) N- o7 W/ E" P

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

8 N% u$ @, `3 N H i- P6 c

ReDim pPrinter(r1) As Byte

" C$ K! A, x) L2 h

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

If r = 0 Then Exit Sub

r = ClosePrinter(phPrinter)

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

& ]4 T5 G* U! z; y7 S3 n, N2 f

r1 = lstrlen(pIn.pDescription)

& L+ u* z t+ o& R/ e* e5 v

r = lstrcpy(s, pIn.pDescription)

2 @, ^' x# B. U* r7 U+ y$ ?

If r = 0 Then Exit Sub

3 K& x0 P! _5 e6 j! S$ R

pType = Left(s, r1)

/ B9 Q' _3 ]+ W: j

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

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

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

6 d% A& O: ]$ [2 r7 a

End Sub

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