几个打印机的API函数

韩冰

9 b9 a8 m0 V; ?+ P$ A4 ]. j

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

建议大家结合MSDN看看

) {( f' e) g- m l$ W+ Y

Private Type PRINTER_INFO_1

Flags As Long

w" v# T- Y5 Z \; q& z

pDescription As Long

pName As Long

pComment As Long

: [2 n9 v9 l* f. O! i* s4 J4 z

End Type

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

$ t( v$ m( n7 L4 `. f

Long, ByVal hPrinter As Long) As Long

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

- Z/ H& B/ @; m' f4 v9 ~

Long) As Long

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

(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

8 a7 B9 ~8 [: ]+ T# }$ d

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

& {% V8 U; ^: m3 [: q6 a7 ?

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

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

" H T' Q! F+ @) _

ring As Long) As Long

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

/ l5 N7 M5 p" {7 a9 R9 t5 z

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

1 m% a- I# _4 w5 O+ i. D* a

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

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

4 Y4 r) R p* ^+ C5 {; C

'pDeviceName是打印机名

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

Private Sub GetPrint(pDeviceName, pType As String)

% Q* F" D7 I: Q; u9 m

Dim pIn As PRINTER_INFO_1

1 O; e% k$ q& S

Dim s As String * 256

^; @8 y" y' X" J+ M% t

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)

ReDim pPrinter(r1) As Byte

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

# m/ x& `; S4 W. x# k1 `

If r = 0 Then Exit Sub

# g% t/ ^' T. X7 z* S

r = ClosePrinter(phPrinter)

' e2 j. o% o9 C# N$ v( M+ H

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

# [' C$ y/ r4 K+ t c* w

r1 = lstrlen(pIn.pDescription)

7 D8 N* y3 r5 D0 X, T

r = lstrcpy(s, pIn.pDescription)

If r = 0 Then Exit Sub

2 c7 ]3 M) p- B# L I X

pType = Left(s, r1)

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

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

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

, p* V$ b R3 }/ K

End Sub

, v. H# N6 a; |6 d- }6 f- V

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