几个打印机的API函数

韩冰

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

建议大家结合MSDN看看

) h" A" ^! J* I8 L% V! c

Private Type PRINTER_INFO_1

Flags As Long

& v; d! X; k9 @; x$ P( `% P& R( w

pDescription As Long

pName As Long

% r* |* ?) J3 c& K, o

pComment As Long

End Type

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

+ V4 K- g/ E* C7 j: N0 o6 Z

Long) As Long

$ ^& a. M! h" Z# o2 v, ]6 Z

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

! {, W5 h0 O! l2 i ?5 R4 @; f7 j

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

: o8 t( J( y8 M' F' L- Z

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

1 J& M. d) V9 D) e* a _- I) Z- D

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

* _5 e% q, t) }2 z( j1 N. \% R

Long, pcbNeeded As Long) As Long

q( _) o3 k- Q: p% R. z! G4 [

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

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

[0 Y, M% k4 N& N+ a5 @ }- s- e

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

ring As Long) As Long

5 ]! W7 {/ J/ z' P

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

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

3 \; {, m2 a3 s0 S& D; v

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

4 T. b" Y& w5 d2 u6 @

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

'pDeviceName是打印机名

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

) T$ X: q2 {; s. r$ O+ q% W

Private Sub GetPrint(pDeviceName, pType As String)

Dim pIn As PRINTER_INFO_1

Dim s As String * 256

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

; x/ o3 G3 B4 ~* e% g; }

On Error Resume Next

- a- h. J2 s, i% _' i' [

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

! y8 E H, e4 d9 ?. O

If r = 0 Then Exit Sub

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

ReDim pPrinter(r1) As Byte

! V+ Y8 g0 K0 p6 _ Z+ {( ?. l

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

If r = 0 Then Exit Sub

r = ClosePrinter(phPrinter)

' O. `2 X! M. X) `; H7 n$ |7 G. Q

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

r1 = lstrlen(pIn.pDescription)

r = lstrcpy(s, pIn.pDescription)

! L) {" ?( r" } }3 X4 O1 V' }# h

If r = 0 Then Exit Sub

7 W& b6 l- q2 ~

pType = Left(s, r1)

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

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

2 ~2 {3 N4 E4 P4 q$ V! E# q

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

End Sub

$ ]: x7 Q# T5 O! ^

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