几个打印机的API函数

韩冰

9 g5 \ {& B* |1 T! {* B' Z

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

( t' m9 n; {2 a8 ?( J% [( J( F

建议大家结合MSDN看看

8 Y, O2 F' x% `+ y- {3 X

Private Type PRINTER_INFO_1

Flags As Long

/ I* Y1 A8 C5 o' i7 l: }5 }7 [

pDescription As Long

& E; z0 H! I6 i) `7 ?

pName As Long

pComment As Long

End Type

* n. r6 f+ v# `

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

Long, ByVal hPrinter As Long) As Long

2 I1 W! I" Q& [0 @1 _

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

Long) As Long

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

% @2 u* ~6 ^3 I3 z# @

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

$ p7 ^3 s# f6 c+ d6 {

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

- V) K2 i) s7 ]$ T& G

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

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得到这个字符串.

9 i$ C& A- A; Y* T( l+ N

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

) D9 F0 v* n4 v

'pDeviceName是打印机名

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

% h$ X& b& z7 k" f- [% P! o5 r

Private Sub GetPrint(pDeviceName, pType As String)

3 j6 Q4 W1 W1 M, j: }7 f

Dim pIn As PRINTER_INFO_1

b2 R4 n0 w5 K" t5 w4 \5 T# r! m+ J

Dim s As String * 256

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

On Error Resume Next

; J+ h0 d; A$ S: H% d1 u) U

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

If r = 0 Then Exit Sub

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

1 M; U* u( L7 O1 |

ReDim pPrinter(r1) As Byte

: H7 P/ v3 i* d2 o

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

If r = 0 Then Exit Sub

; C9 t/ W# e) V2 Y! |0 t/ S+ `

r = ClosePrinter(phPrinter)

* R: A; u! |" [- Z7 m, n$ W) R) L& X

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

r1 = lstrlen(pIn.pDescription)

r = lstrcpy(s, pIn.pDescription)

If r = 0 Then Exit Sub

! _3 r. s! S4 C0 ?7 w- H

pType = Left(s, r1)

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

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

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

End Sub

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