几个打印机的API函数

韩冰

( K7 g2 h' }* w/ Y# N8 T

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

建议大家结合MSDN看看

Private Type PRINTER_INFO_1

' W" g( M! V: e2 m/ a$ I

Flags As Long

5 E& v. T9 ?0 C3 Q

pDescription As Long

pName As Long

- S6 d) Y5 s5 V: I5 Q

pComment As Long

End Type

' ^# W% l* i6 z$ H& _+ w$ U

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

4 |$ z4 r1 Z, s5 b- ^: `

Long, ByVal hPrinter As Long) As Long

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

Long) As Long

, i6 O% x* g2 {

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

7 D% o: X' _( p4 F) c: ^! ~/ Y# x

(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

: z2 H' t# U; G

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

ring As Long) As Long

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

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

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

6 ]' m$ @& a+ M1 Q' V& ~

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

'pDeviceName是打印机名

9 I# p, q' _+ Y

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

" Y5 w" x2 h1 L4 M4 a: B

Private Sub GetPrint(pDeviceName, pType As String)

Dim pIn As PRINTER_INFO_1

" a6 d+ p4 b, N: d' a1 U

Dim s As String * 256

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

" Z& S. t5 E9 S6 z) A# v; _

On Error Resume Next

6 `$ v! P/ U6 z/ U9 ~

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

! U0 Y) S- S- {! F

If r = 0 Then Exit Sub

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

, }* X( V, G# {3 o ~

ReDim pPrinter(r1) As Byte

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

# r7 p" x& z v: v+ d0 o

If r = 0 Then Exit Sub

V5 M/ i9 I# P- g. L

r = ClosePrinter(phPrinter)

, e7 W7 m0 k3 u: z( e8 v$ a% O

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

4 O% {2 J! g0 _; Y: |1 d . r( K& K; e( L" m2 r" w

r1 = lstrlen(pIn.pDescription)

r = lstrcpy(s, pIn.pDescription)

If r = 0 Then Exit Sub

pType = Left(s, r1)

0 d( l2 A$ J6 i5 Z' t& p3 M. i

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

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

0 ?! n/ k0 |' e. H g% U

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

End Sub

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