API有打印文本文件的方法吗？，直接用Printer的话，好像是一行行的，太慢了

Question

想找一中快速打印的方法，现在是printer.print 
但是慢
TEXT文件

Answer 1

-------------利用API函数打印文件-------OpenPrinter函数：获得指定打印机的句柄
StartDocPrinter函数：通知打印机（具体为Spooler）有文档将要打印
StartPagePrinter函数：通知打印机一页文档将要打印
WritePrinter函数：通知打印机开始写数据
EndPagePrinter函数：通知打印机一页已经打印完毕，准备打印下一页
EndDocPrinter函数：通知打印机结素打印任务
ClosePrinter函数：关闭指定的打印机对象定义如下：Private Declare Funtion GetProfileString Lib "kernel32" Alias "GetProfileStringA"(
        ByVal IpAppName As String,ByVal IpKeyName As Any,ByVal IpDefault AS String,
        ByVal IpReturnedString As String,ByVal nSize As Long) As LongPrivate Declare Funtion OpenPrinter Lib "winspool.drv" Alias  "OpenPrinterA"(
        ByVal pPrinterName As String,phPrn As Long,pDefault As Any) As LongPrivate Declare Funtion StartDocPrinter Lib "winspool.drv" Alias  "StartDocPrinterA"(
        ByVal hPrn As Long,ByVal Level As Long,pDvocInfo As DOC_INFO_1) As LongPrivate Declare Funtion StartPagePrinter Lib "winspool.drv"(
        ByVal hPrn As Long)As LongPrivate Declare Funtion WritePrinter Lib "winspool.drv"(
        ByVal hPrn As Long,pBuf As Any,
        ByVal cdBuf As Long,pcWritten As Long) As LongPrivate Declare Funtion EndPagePrinter Lib "winspool.drv"(
        ByVal hPrn As Long) As LongPrivate Declare Funtion EndDocPrinter Lib "winspool.drv"(
        ByVal hPrn As Long) As LongPrivate Declare Funtion ClosePrinter Lib "winspool.drv"(
        ByVal hPrn As Long) As Long'保存文档信息的结构数据
Private Type DOC_INFO_1
   pDocName As string
   pOutputFile As string
   pDataType As string
End Type-------------------------完毕----------------