几个打印机的API函数

韩冰

1 F$ l% R5 p7 p0 o* W/ c- d% v

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

建议大家结合MSDN看看

4 W- c6 r! l' B V5 H* ~ D6 Q

Private Type PRINTER_INFO_1

* @1 k9 S$ q J6 c M7 T3 s- V8 K

Flags As Long

u% k' a7 \ U- k

pDescription As Long

pName As Long

) d/ `1 u: h4 {

pComment As Long

End Type

/ R1 B9 W0 c n( q

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

1 i) H4 X2 G) s/ R4 B

Long, ByVal hPrinter As Long) As Long

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

: R0 E A- p3 Q& H

Long) As Long

7 b+ t2 t( ]$ `, z( h

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

' Q3 L/ @! x# y3 U2 N" m2 Y

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

1 a R3 ?9 Y; h* j

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

; R% p; x: `+ m* V

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

0 @. K3 X1 B8 w4 R

Long, pcbNeeded As Long) As Long

, `5 c( a: E. W- |

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

2 ?, f5 o& E* W

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

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

, h8 |6 M, {# n3 G4 r- {

ring As Long) As Long

0 d6 R0 A' w/ @# e& |# `( F

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

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

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

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

'pDeviceName是打印机名

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

+ c Y$ _# |% ?5 H+ n3 y# Z

Private Sub GetPrint(pDeviceName, pType As String)

: H. f. I* ]/ _& M

Dim pIn As PRINTER_INFO_1

Dim s As String * 256

: P( t2 @6 _0 J/ u, j7 ~9 T

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

On Error Resume Next

4 G! }: v7 Z3 A/ l

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

, O; @2 p2 H% l( d: U5 c

If r = 0 Then Exit Sub

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

ReDim pPrinter(r1) As Byte

' z4 h3 t" ~2 h- @

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

If r = 0 Then Exit Sub

r = ClosePrinter(phPrinter)

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

0 R: Z3 |0 ]8 d6 p- d& m' V & w. `% v8 W5 A7 X# W- p6 ]

r1 = lstrlen(pIn.pDescription)

r = lstrcpy(s, pIn.pDescription)

6 t4 u, K4 Y. |' w

If r = 0 Then Exit Sub

pType = Left(s, r1)

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

+ ? H7 m; A; O7 S4 m

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

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

End Sub

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