几个打印机的API函数

韩冰

: q# ~, R9 B/ J; L

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

建议大家结合MSDN看看

5 t0 L( _# h0 W

Private Type PRINTER_INFO_1

9 i! s1 b9 H$ Z

Flags As Long

pDescription As Long

/ a! s' ] A9 W* q1 V2 w9 Z

pName As Long

pComment As Long

( g" N2 ?$ F4 f6 `9 r

End Type

2 ~$ y6 B# r' l! t( S

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

Long, ByVal hPrinter As Long) As Long

2 d: o& A7 B' `& O

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

/ ~' L6 p8 Y, s( O" F5 W

Long) As Long

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" (

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

8 f' g, l& C5 j3 E3 V! ?3 u' q

Long, pcbNeeded As Long) As Long

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

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

5 k7 x7 k- f& o- f& s

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

8 ?! {8 b% f" f; f: B( I" R

ring As Long) As Long

8 S+ r* i% C& g1 M/ s0 N/ F

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

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

% t8 `2 f" p, W( I# D, e

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

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

'pDeviceName是打印机名

8 e' K; g3 @6 Z9 P2 {

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

Private Sub GetPrint(pDeviceName, pType As String)

Dim pIn As PRINTER_INFO_1

Dim s As String * 256

; |3 k* r4 B2 j3 Q

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

On Error Resume Next

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

9 h- e+ K& H8 E7 i7 F& Z3 w, T: ~

If r = 0 Then Exit Sub

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

ReDim pPrinter(r1) As Byte

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

# E! z" U; L8 [! ^+ K" Z

If r = 0 Then Exit Sub

r = ClosePrinter(phPrinter)

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

. m9 t0 p+ o/ V

r1 = lstrlen(pIn.pDescription)

: u* y: N/ ?# S

r = lstrcpy(s, pIn.pDescription)

8 P5 D. O @. E

If r = 0 Then Exit Sub

pType = Left(s, r1)

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

: P5 B* D6 @& B/ v) {0 N1 b, L

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

& N9 |/ o6 X; Y0 s2 p# i6 f, w

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

* } I3 Q% A) s

End Sub

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