几个打印机的API函数

韩冰

8 y& \' H* ]! B i4 d

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

9 [( @; ?7 w% l6 Z& b

建议大家结合MSDN看看

* Y, t0 t8 [' z: z& g

Private Type PRINTER_INFO_1

Flags As Long

) v3 O. F5 V* b# @, ~/ c

pDescription As Long

~- s3 ?7 `2 `( e1 V

pName As Long

pComment As Long

End Type

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

6 a' F5 `9 p( {. G/ R# d+ e

Long, ByVal hPrinter As Long) As Long

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

9 t7 v* q! r8 g. Z9 \+ V- r; x% ^

Long) As Long

. { A$ y# z: }- V

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

% a# W o* Y# u, }" U( N

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

$ K6 I8 X: u; m( J

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

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

. k+ ~. n2 g6 ^7 y) i5 i

Long, pcbNeeded As Long) As Long

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

" T; m" J% z& d* j( W6 }! Y& ~" \: h

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

$ U: O' b4 @6 r- e

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

ring As Long) As Long

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

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

$ }% g& K- x, O# M1 Q T

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

5 P) ~7 ^6 U; L: M

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

& P, o {4 f0 ]. H7 G3 ^

'pDeviceName是打印机名

* u A* D# m( H8 [% z

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

9 G# s: l( c% E9 d: w

Private Sub GetPrint(pDeviceName, pType As String)

4 c1 |0 Z$ Z! K- } g) c% k8 v* m

Dim pIn As PRINTER_INFO_1

Dim s As String * 256

2 `4 P! v6 f2 h7 L( i0 K1 ]2 |2 k

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

7 t( p0 z' H; q+ |. A0 |2 V

On Error Resume Next

9 R* {% M/ a- @. E7 z

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

If r = 0 Then Exit Sub

1 j. y4 {+ O7 Z3 @9 S

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

ReDim pPrinter(r1) As Byte

* f' b6 w) X! ^7 v. z8 V, ?

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

$ b& ~5 E1 m( W( N o5 W

If r = 0 Then Exit Sub

& l0 c U+ k R

r = ClosePrinter(phPrinter)

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

* k! R+ t5 e* ~( j / k9 |! v8 b- f& D$ \

r1 = lstrlen(pIn.pDescription)

r = lstrcpy(s, pIn.pDescription)

If r = 0 Then Exit Sub

4 c' X8 Z- n& c: v$ M8 s

pType = Left(s, r1)

! G: ]0 X) f7 j$ A; m6 H

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

: k% n) [. B7 m4 x5 w7 G

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

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

: X# A/ s+ P2 I& q& D

End Sub

- O7 Y) _" @- ]! G! `

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