几个打印机的API函数

韩冰

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

建议大家结合MSDN看看

i `0 f. V/ C$ c

Private Type PRINTER_INFO_1

Flags As Long

" p. ?+ A0 c0 F0 S

pDescription As Long

$ g( z. l/ X5 e% W

pName As Long

pComment As Long

End Type

8 Q G# x9 b# a

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

- e* n# \! g+ Q2 T+ Y

Long, ByVal hPrinter As Long) As Long

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

1 [( e/ u1 c. i: q! U

Long) As Long

( U' c" O9 Q5 W- Z. O

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

Long, pcbNeeded As Long) As Long

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

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

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

0 k5 K2 U, E! e3 l- W

ring As Long) As Long

. X2 ^( p; f5 L

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

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

0 @. c. A' y0 ~5 N$ W

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

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

7 j# M& P @% |0 g" F2 O0 \

'pDeviceName是打印机名

5 s& {8 A) u5 K4 p( O& c, h

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

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

On Error Resume Next

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

2 n* J/ E, H' T7 _+ T0 D

If r = 0 Then Exit Sub

5 d4 s1 s0 u( f3 y

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

ReDim pPrinter(r1) As Byte

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

If r = 0 Then Exit Sub

r = ClosePrinter(phPrinter)

" x; `9 n) O. A/ O5 R. P" c& h

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

+ `- P5 s2 g Y' q ' z. l! l2 Q8 ~

r1 = lstrlen(pIn.pDescription)

r = lstrcpy(s, pIn.pDescription)

- c- X9 x0 S. C' n) ?! P

If r = 0 Then Exit Sub

' H! D& l( R) O6 P c# ?

pType = Left(s, r1)

5 o3 e" K. e3 L: @) {1 R" ^2 U

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

2 h( _: U* C! l; v

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

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

End Sub

/ }, h8 R8 s K' j; e% T! O

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