几个打印机的API函数

韩冰

8 b7 e& G! }( U+ R- h- ?; P

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

建议大家结合MSDN看看

Private Type PRINTER_INFO_1

4 a# w( ^1 B0 R5 f) \3 |& Y

Flags As Long

pDescription As Long

% e$ v0 u* Z2 t. f

pName As Long

2 V( {! k# N' p5 M; w( V& ~2 m

pComment As Long

End Type

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

7 @! ~% @. u& O. X6 d

Long, ByVal hPrinter As Long) As Long

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

Long) As Long

7 v1 f4 d' z! C9 Q5 ~

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

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

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

' q2 n3 ]% t) T8 k/ j$ F p1 P; ]

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

% ]8 L) N L. Z f9 _- {: L2 m

Long, pcbNeeded As Long) As Long

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

, f. Y- D1 C/ @- y

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

# H$ p: ?9 C; Z* E' F0 C

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

0 i* s( y7 {" q4 Y

ring As Long) As Long

( ~8 x; l) l6 N6 i; I9 m H$ B l

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

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

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

- ^/ E$ H# `- l; w) a; r' o

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

% {' Q9 j: {3 b* y5 ]

'pDeviceName是打印机名

: y# Q; _( i% b( H+ W

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

Private Sub GetPrint(pDeviceName, pType As String)

Dim pIn As PRINTER_INFO_1

0 H) _) e y0 b- O, h% n# X

Dim s As String * 256

: j8 [/ K6 o$ T

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

On Error Resume Next

7 F) K# k+ Z1 v6 W8 Z

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

% i' `2 Y9 I- W

If r = 0 Then Exit Sub

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

ReDim pPrinter(r1) As Byte

" i9 [. u* _# i- x) ]

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

& Y, F+ @7 r( O( R: ?

If r = 0 Then Exit Sub

# f9 i/ u' A6 q3 u+ {

r = ClosePrinter(phPrinter)

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

r1 = lstrlen(pIn.pDescription)

& |# Y- n) ~0 k; i8 y L& I v

r = lstrcpy(s, pIn.pDescription)

5 U, o+ F& J1 q3 j: A* `! B7 o

If r = 0 Then Exit Sub

pType = Left(s, r1)

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

1 x* V! h) ~+ C" O: M* }) w

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

. C; R! Q0 F5 k1 e

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

2 F i( O T7 I# n. n

End Sub

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