几个打印机的API函数

韩冰

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

建议大家结合MSDN看看

Private Type PRINTER_INFO_1

Flags As Long

pDescription As Long

pName As Long

pComment As Long

End Type

7 ^. P8 @. t' N- L m8 O

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

$ g+ [' N# j' |+ I

Long) As Long

: m* |/ o1 Z; S

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

; F1 F a# E" ^; N& L# a( c

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

. H0 @& Y' |% W, I

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

9 J: M" n( t' Q0 m" C/ H

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

" }8 G1 s0 a( D

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

# Q+ L3 k/ U! n" m- j% B

ring As Long) As Long

; b8 I$ ]5 Q9 ?$ b4 c& H& V* E% v: Q( |

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

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

2 ]0 T5 c) \# ^4 ? a J: J1 d, U

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

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

& L8 ^& \: e; j; V/ H2 D) n7 }8 x

'pDeviceName是打印机名

- ^" P+ M: [1 L0 M! V0 _& f0 `

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

& G% r6 _! \ Q/ ~8 r4 L2 c

Private Sub GetPrint(pDeviceName, pType As String)

Dim pIn As PRINTER_INFO_1

7 c, E4 z& E( [# Q, n

Dim s As String * 256

% _$ [- E& A4 E. I2 }

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

On Error Resume Next

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

If r = 0 Then Exit Sub

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

% g; D; o! o6 W$ S4 P

ReDim pPrinter(r1) As Byte

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

7 N8 s5 r& `% e8 l0 s- F

If r = 0 Then Exit Sub

r = ClosePrinter(phPrinter)

9 a6 ]9 [+ o Q# q, E' @2 E3 \

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

r1 = lstrlen(pIn.pDescription)

7 q5 C# H1 ~8 f0 s

r = lstrcpy(s, pIn.pDescription)

If r = 0 Then Exit Sub

pType = Left(s, r1)

! ] L+ }8 d3 K6 i6 l

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

* Z, d/ q3 K* i' B+ a: X5 v

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

& U9 }: `' v/ i8 {

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

End Sub

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