几个打印机的API函数

韩冰

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

. Z! ~2 _/ W; a1 g1 A

建议大家结合MSDN看看

Private Type PRINTER_INFO_1

3 S! K6 e4 r7 i0 a2 Y

Flags As Long

: n( D; v) r) I( ]! y

pDescription As Long

pName As Long

pComment As Long

End Type

/ q G3 j3 ~1 _( J9 {

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

/ {4 q4 G8 K3 d6 q

Long, ByVal hPrinter As Long) As Long

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

/ _; _, U7 t* ?9 `

Long) As Long

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

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

. q' S8 V6 G3 R

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

2 _) Y0 d7 a1 m8 `) F

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

Long, pcbNeeded As Long) As Long

. Y0 O( g6 B% w l/ j; h6 H0 C( T+ C

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

6 s; D! B8 V$ f' C6 @

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

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

( f' t; g% E. Y* `2 H( R5 A' N" @7 m

ring As Long) As Long

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

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

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

* H0 `) s8 g9 Q# F, j

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

'pDeviceName是打印机名

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

Private Sub GetPrint(pDeviceName, pType As String)

Dim pIn As PRINTER_INFO_1

Dim s As String * 256

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

9 f% q( Y! p/ Z8 q+ a

On Error Resume Next

$ a& E" S4 `, P& s0 M

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

" k8 ^0 v2 N# N: ^. A

If r = 0 Then Exit Sub

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

' Q4 i) u4 `' O6 R" B7 Q1 R

ReDim pPrinter(r1) As Byte

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

8 u7 `3 S4 V$ u. h

If r = 0 Then Exit Sub

r = ClosePrinter(phPrinter)

/ _5 c9 x V; f

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

J3 J M- j5 R

r1 = lstrlen(pIn.pDescription)

r = lstrcpy(s, pIn.pDescription)

' Q8 ` M* m6 s# Q9 P& |: h

If r = 0 Then Exit Sub

pType = Left(s, r1)

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

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

3 i1 E" ~, K6 n m/ h. r$ ]

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

" g) S9 U$ i6 c! u

End Sub

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