在win2000中如何显示打印机属性来设置打印机(打印机首选项)
解决方案 »
- VB API函数的错误
- ShockwaveFlash1控件始终获得焦点
- 能否做到把WebBrowser1.Document.frames(3)下的所有元素的值都写到一个文本里面
- VB之初学者----ZL求救~
- 请问在vb中,如何找到类似于A06,A4,A ,A1等类型的字符(内详)
- datareport报表宽度问题
- 为什么我在VB.net中加了一个按钮, 但是编译界面确实没有按钮.
- 软件试用期问题,在2000下可以用,在XP下却不可以,请大家帮帮忙
- 关于“API图形文字输出 对 AutoReddrw=True”的问题?
- 各位大虾、大仙被我吓倒了吗?
- 水晶报表如何保存好本次打印的设置(包括字段,页面,宽度)
- 急!字符串查找的问题!难题!在线等待
Private Declare Function ClosePrinter Lib "winspool.drv" (ByVal hPrinter As Long) As Long
Private Declare Function PrinterProperties Lib "winspool.drv" (ByVal hwnd As Long, ByVal hPrinter As Long) As Long
Private Sub Form_Load()
'KPD-Team 2001
'URL: http://www.allapi.net/
'E-Mail: [email protected]
Dim hPrinter As Long
OpenPrinter Printer.DeviceName, hPrinter, ByVal 0&
PrinterProperties Me.hwnd, hPrinter
ClosePrinter hPrinter
End Sub