怎样得到打印机的"DC"...thanks
我想在文本框中接收字符如果判断出来是"P"就执行打印操作,但是我得不到打印机的dc请各位高手指点...谢谢...
shenleave@163.net
问题点数:20、回复次数:3Top
1 楼flounder(一肩挑尽万古愁)回复于 2002-03-07 16:37:01 得分 10
GetPrinterDC()
查一下msdn里面有例子Top
2 楼shenleav(午枫)回复于 2002-03-08 15:52:35 得分 0
好像GetPrinterDC()是CPrintDialog类的成员函数,可是我想打印的时候不出现打印对话框...可以做到么?Top
3 楼TNT1900(不顶事)回复于 2002-03-08 16:01:33 得分 10
用 API 试试:
'声明一串打印用 API
Private Declare Function OpenPrinter Lib "winspool.drv" Alias _
"OpenPrinterA" (ByVal pPrinterName As String, phPrinter As Long, _
ByVal pDefault As Long) As Long
Private Declare Function ClosePrinter Lib "winspool.drv" (ByVal _
hPrinter As Long) As Long
Private Declare Function StartPagePrinter Lib "winspool.drv" (ByVal _
hPrinter As Long) As Long
Private Declare Function EndPagePrinter Lib "winspool.drv" (ByVal _
hPrinter As Long) As Long
Private Declare Function StartDocPrinter Lib "winspool.drv" Alias _
"StartDocPrinterA" (ByVal hPrinter As Long, ByVal Level As Long, _
pDocInfo As DOCINFO) As Long
Private Declare Function EndDocPrinter Lib "winspool.drv" (ByVal _
hPrinter As Long) As Long
Private Declare Function WritePrinter Lib "winspool.drv" (ByVal _
hPrinter As Long, pBuf As Any, ByVal cdBuf As Long, _
pcWritten As Long) As Long
'定义一个新类型(打印用)
Private Type DOCINFO
pDocName As String
pOutputFile As String
pDatatype As String
End Type
'打印机句柄
Private mHdcPrn As Long
'打印机名称
Private mPrinterName As String
Top




