几个打印机的API函数

韩冰

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

建议大家结合MSDN看看

Private Type PRINTER_INFO_1

0 f4 g+ ~8 g2 W' t

Flags As Long

$ G6 W6 R" r( ^7 I

pDescription As Long

& i p# ^" n d: u) F& q4 I

pName As Long

pComment As Long

# N) a! d' ]& X, P q

End Type

8 ^( J2 K0 J( R" d; o

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

7 a: ^) x; D, I; {: u! z3 e

Long, ByVal hPrinter As Long) As Long

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

# {* N }3 m. {# e" k- V

Long) As Long

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

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

3 _& x! ^% F( i5 X

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

& D, M, x' ?4 _0 q7 \8 f

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

Long, pcbNeeded As Long) As Long

6 R- D9 u6 U7 Y& D8 x

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

- n' ]* _+ f1 x# E7 d' s) S" g

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

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

ring As Long) As Long

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

' h; P( c$ {& X( ]6 J8 }

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

9 H& j$ r) e' r) _ y( X

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

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

~2 _- B; b* v- m8 r

'pDeviceName是打印机名

. r/ x5 l. B' s0 H) P/ T

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

Private Sub GetPrint(pDeviceName, pType As String)

Dim pIn As PRINTER_INFO_1

Dim s As String * 256

2 H9 h) y" I/ q4 Q$ d2 y% I

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

! `: _& g" {% v+ I* s4 \7 {

On Error Resume Next

' A8 Y1 F2 _7 B3 s

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

If r = 0 Then Exit Sub

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

ReDim pPrinter(r1) As Byte

* M: ?; b9 P, [: b3 g/ l7 R/ o

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

If r = 0 Then Exit Sub

r = ClosePrinter(phPrinter)

# G% \: L; D* o0 i6 i4 E& F+ u

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

1 z: k N/ \8 _5 _ U, I# F" D " r+ b& e- |) T* L/ S# P

r1 = lstrlen(pIn.pDescription)

' O8 q0 B& o* N$ a; H) M

r = lstrcpy(s, pIn.pDescription)

: R% X7 ^% W' U7 M0 j

If r = 0 Then Exit Sub

pType = Left(s, r1)

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

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

% ~7 _+ ]; x1 m* p" @. i

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

End Sub

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