几个打印机的API函数

韩冰

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

建议大家结合MSDN看看

" l1 A3 B6 G7 s/ H Z' [

Private Type PRINTER_INFO_1

Flags As Long

pDescription As Long

pName As Long

pComment As Long

" M% j- O$ d& g& Y& L; z7 l

End Type

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

Long, ByVal hPrinter As Long) As Long

6 \4 s7 }# u4 m' A0 b- A

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

0 b7 a) x% o# c9 N$ G# v

Long) As Long

p7 s5 U# q! V0 h4 q) s) i

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

; |2 y) {( S1 [' K/ @6 o5 o

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

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

+ x: n4 R% D# L+ j9 T

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

5 w& Y4 ^7 a0 K- @3 z5 ^

Long, pcbNeeded As Long) As Long

6 q7 \' N1 ~" t0 Y5 B

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

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

/ M* N5 t1 v8 [" C3 ~' n" O7 s

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

ring As Long) As Long

+ J2 |, n6 J9 \4 y- l$ q2 M

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

5 y) i& w% P% n3 v5 \

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

% ?8 u3 A0 D' p# j; o8 l

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

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

'pDeviceName是打印机名

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

Private Sub GetPrint(pDeviceName, pType As String)

Dim pIn As PRINTER_INFO_1

- y8 H6 G. N3 ?8 x4 ^+ o

Dim s As String * 256

) H, v" R; I5 y

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

( ^6 l' l' d4 o4 K6 W( L5 t# E

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

+ g3 ]* L7 S3 p% y

ReDim pPrinter(r1) As Byte

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

) B5 B. \" t+ U7 `( J- c

If r = 0 Then Exit Sub

r = ClosePrinter(phPrinter)

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

r1 = lstrlen(pIn.pDescription)

r = lstrcpy(s, pIn.pDescription)

% {8 O+ y. a7 ^9 C% s, G

If r = 0 Then Exit Sub

; i, ^2 u; V/ |% G, f" m# Q' d; e; F

pType = Left(s, r1)

" I0 X* g0 c2 |

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

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

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

) X. j. Y5 b4 @& ^. L

End Sub

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