各位,请问怎么样能监控到打印队列里的文档的页面大小,我用Enumjob()API函数列出了打印任务,JOB_INFO_2里面有一个DEVMODE但是获取不了正确的信息,在PAPERSIZE里面的信息,用拷贝函数会一起内存无法读写的错误。用PINTER。SIZE只能获取打印机默认的页面大小。用Docmentporperitys 函数获取的也是默认的幅面大小。不能获取当前页面设置的大小。
解决方案 »
- 高手请进,TreeView的使用
- 软件设计时字体为楷体,安装到另外的电脑变成了宋体是什么原因
- ASP调用dll中的函数
- 在VB,怎么样将一个图片填充picture框?
- 请问哪儿有C/S 三层架构代码啊?
- com+问题:activex组件不能创建对象?
- 怎样把一个Nodes的所有孩子node(只包括Nodes的下面一层)访问一遍?
- 哪位高手提供一个文本加密解密的算法?
- 注册DLL的API函数是什么?
- 各位,小弟新来,不懂规矩,请多关照啊。现有一个关于在DATAGRID和FLEXGRID中将BOOLEAND型数据用CHECKBOX显示的问题
- 请各位帮助,那里有 文档管理系统 VB原代码
- 请教大侠:vb6错误提示 :”找不到可插入的ISAM “ 这 个问题怎么解决?
Option Explicit
Private Const DC_MAXEXTENT = 5
Private Const DC_MINEXTENT = 4
Private Const DC_PAPERNAMES = 16
Private Const DC_PAPERS = 2
Private Const DC_PAPERSIZE = 3
Private Declare Function DeviceCapabilities Lib "winspool.drv" Alias "DeviceCapabilitiesA" (ByVal lpDeviceName As String, ByVal lpPort As String, ByVal iIndex As Long, lpOutput As Any, lpDevMode As Any) As Long
Private Type POINTS
x As Long
y As Long
End TypeDim i As Long, ret As Long
Dim Length As Integer, Width As Integer
Dim PaperNo() As Integer, PaperName() As String, PaperSize() As POINTSWith MSFlexGrid 'Flex
.FormatString = "^纸张编号|^纸张名称|^纸张长度|^纸张宽度"
For i = 0 To .Cols - 1
.ColWidth(i) = 1700
Next i
.AllowUserResizing = flexResizeColumns
.Left = 0
End With'支持最大打印纸:
ret = DeviceCapabilities(Printer.DeviceName, "LPT1", DC_MAXEXTENT, ByVal 0&, ByVal 0&)
Length = ret \ 65536
Width = ret - Length * 65536'支持最小打印纸:
ret = DeviceCapabilities(Printer.DeviceName, "LPT1", DC_MINEXTENT, ByVal 0&, ByVal 0&)
Length = ret \ 65536
Width = ret - Length * 65536'支持纸张种类数
ret = DeviceCapabilities(Printer.DeviceName, "LPT1", DC_PAPERS, ByVal 0&, ByVal 0&)'纸张编号
ReDim PaperNo(1 To ret) As Integer
Call DeviceCapabilities(Printer.DeviceName, "LPT1", DC_PAPERS, PaperNo(1), ByVal 0&)'纸张名称
Dim arrPageName() As Byte
Dim allNames As String
Dim lStart As Long, lEnd As Long
ReDim PaperName(1 To ret) As String
ReDim arrPageName(1 To ret * 64) As Byte
Call DeviceCapabilities(Printer.DeviceName, "LPT1", DC_PAPERNAMES, arrPageName(1), ByVal 0&)
allNames = StrConv(arrPageName, vbUnicode)
'loop through the string and search for the names of the papers
i = 1
Do
lEnd = InStr(lStart + 1, allNames, Chr$(0), vbBinaryCompare)
If (lEnd > 0) And (lEnd - lStart - 1 > 0) Then
PaperName(i) = Mid$(allNames, lStart + 1, lEnd - lStart - 1)
i = i + 1
End If
lStart = lEnd
Loop Until lEnd = 0'纸张尺寸ReDim PaperSize(1 To ret) As POINTS
Call DeviceCapabilities(Printer.DeviceName, "LPT1", DC_PAPERSIZE, PaperSize(1), ByVal 0&)'显示在表格中
For i = 1 To ret
MSFlexGrid.AddItem PaperNo(i) & vbTab & PaperName(i) & vbTab & PaperSize(i).y & vbTab & PaperSize(i).x
Next i'End Function'Private Sub Command1_Click()
End Sub可以获得当前打印机的纸张状态