几个打印机的API函数

韩冰

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

" R( c- \. ?0 ?) q

建议大家结合MSDN看看

Private Type PRINTER_INFO_1

Flags As Long

pDescription As Long

* A' [: r4 f% S9 h3 }. I

pName As Long

pComment As Long

End Type

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

& Q; _# P8 _# J- ~: N# m

Long, ByVal hPrinter As Long) As Long

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

6 J. p( @. U, i' X9 A

Long) As Long

$ Z$ {2 e: E% U6 E1 q

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

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

5 m% {4 X# C( j. x5 W0 M

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

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

$ W* V {, p7 C1 t. t, B

Long, pcbNeeded As Long) As Long

( Z. ~* }" P1 F1 d+ P

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

: ]# {8 _- s8 u; {: D

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

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

u8 n. Q8 @. g3 e' j, N

ring As Long) As Long

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

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

1 e3 I! p5 ]0 _" Z, _2 w9 o

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

. P% w) q+ Q7 u$ U: W" V6 z! B

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

( g# h( Y7 B/ |8 C

'pDeviceName是打印机名

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

Private Sub GetPrint(pDeviceName, pType As String)

Dim pIn As PRINTER_INFO_1

( D+ v7 j+ @( m$ Y1 t/ q# ^ @$ s

Dim s As String * 256

5 F/ z8 O* t& N J

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

' Z7 f4 i, }) d: C

On Error Resume Next

+ V$ y3 J4 A- G) Y

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

If r = 0 Then Exit Sub

9 b' M: t- }# F; N

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)

: Z! N8 S. d2 \

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

( Y) O: P' k1 S$ A5 [* j

r1 = lstrlen(pIn.pDescription)

r = lstrcpy(s, pIn.pDescription)

If r = 0 Then Exit Sub

% I' e2 \9 d s3 o4 c1 z

pType = Left(s, r1)

: k% |) l( R/ p1 u }3 r8 f

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

F" \& S2 u/ D: D& G \

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

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

. y# C/ I |0 K4 p. ]

End Sub

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