几个打印机的API函数

韩冰

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

U" E) e+ H" z! x/ N) {" s% {

建议大家结合MSDN看看

Private Type PRINTER_INFO_1

Flags As Long

* O7 O2 Y3 m8 w9 G' j

pDescription As Long

pName As Long

% _9 N, O8 s* K( w6 ]

pComment As Long

End Type

1 o- o1 F- s+ U8 U w

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

Long, ByVal hPrinter As Long) As Long

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

, e' I& Q E W3 H: [7 H+ V5 e

Long) As Long

/ c; x1 J& K% c2 ]/ m4 k' W

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

( t# k( u) b2 Q" _

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

* G7 |: b1 N$ ^( n- {9 M( \/ G S: s

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

% f$ \ M" a0 q1 |) w

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

& U6 h& Y. |, h; C P

Long, pcbNeeded As Long) As Long

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

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

B7 s* P1 f& \; y. O* `

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

ring As Long) As Long

% ?. [; F4 J0 j3 z9 p

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

/ S# ?7 b$ d, l/ V" e' N

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

1 \: i& a, }: v- |. g3 ~4 [/ d

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

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

( E$ C4 s2 M" G& i B

'pDeviceName是打印机名

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

' Q/ r+ k: n: L! O0 S

Private Sub GetPrint(pDeviceName, pType As String)

( `+ ]5 I1 k' C* Q

Dim pIn As PRINTER_INFO_1

Dim s As String * 256

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

' n% O5 G6 {# o$ {5 W

On Error Resume Next

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

, r. Y5 Z+ U0 K }

If r = 0 Then Exit Sub

- W! d3 t6 V1 P' ^1 ^7 s. B" y1 T

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

/ |( r) x+ T5 A' [0 b

ReDim pPrinter(r1) As Byte

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

6 S' n1 S1 s" z+ s5 r1 E

If r = 0 Then Exit Sub

) F9 t1 p* M3 M! ]& y; d" T' e

r = ClosePrinter(phPrinter)

8 O, E7 L) W# h+ v

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

r1 = lstrlen(pIn.pDescription)

, P* A* a% P9 r- ]6 u/ N

r = lstrcpy(s, pIn.pDescription)

If r = 0 Then Exit Sub

pType = Left(s, r1)

6 L+ u$ L! U, j9 a/ G& N0 L

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

- Z7 @9 R, x- C! ^

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

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

' |( A# l+ F1 v# c7 k. |

End Sub

$ m8 k0 r) ^0 y7 k9 E- Y7 D4 x

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