VB_打印不换页

fieldmax

1. 
   
2.       Option Explicit
   
3.       Private Type DOCINFO
   
4.           pDocName As String
   
5.           pOutputFile As String
   
6.           pDatatype As String
   
7.       End Type
   
8.       Private Declare Function ClosePrinter Lib "winspool.drv" (ByVal _
   
9.          hPrinter As Long) As Long
   
10.       Private Declare Function EndDocPrinter Lib "winspool.drv" (ByVal _
    
11.          hPrinter As Long) As Long
    
12.       Private Declare Function EndPagePrinter Lib "winspool.drv" (ByVal _
    
13.          hPrinter As Long) As Long
    
14.       Private Declare Function OpenPrinter Lib "winspool.drv" Alias _
    
15.          "OpenPrinterA" (ByVal pPrinterName As String, phPrinter As Long, _
    
16.           ByVal pDefault As Long) As Long
    
17.       Private Declare Function StartDocPrinter Lib "winspool.drv" Alias _
    
18.          "StartDocPrinterA" (ByVal hPrinter As Long, ByVal Level As Long, _
    
19.          pDocInfo As DOCINFO) As Long
    
20.       Private Declare Function StartPagePrinter Lib "winspool.drv" (ByVal _
    
21.          hPrinter As Long) As Long
    
22.       Private Declare Function WritePrinter Lib "winspool.drv" (ByVal _
    
23.          hPrinter As Long, pBuf As Any, ByVal cdBuf As Long, _
    
24.          pcWritten As Long) As Long
    
25.       Dim lhPrinter As Long
    
26.       Private Sub Command1_Click()
    
27.              Dim lReturn As Long
    
28.              Dim lpcWritten As Long
    
29.              Dim sWrittenData As String
    
30.              sWrittenData = "How's that for Magic !!!!" & vbCrLf
    
31.              lReturn = WritePrinter(lhPrinter, ByVal sWrittenData, _
    
32.                 Len(sWrittenData), lpcWritten)
    
33.       End Sub
    
34.       Private Sub Form_Load()
    
35.           Dim lReturn As Long
    
36.           Dim lDoc As Long
    
37.           Dim MyDocInfo As DOCINFO
    
38.           lReturn = OpenPrinter(Printer.DeviceName, lhPrinter, 0)
    
39.           If lReturn = 0 Then
    
40.               MsgBox "The Printer Name you typed wasn't recognized."
    
41.               Exit Sub
    
42.           End If
    
43.           MyDocInfo.pDocName = "AAAAAA"
    
44.           MyDocInfo.pOutputFile = vbNullString
    
45.           MyDocInfo.pDatatype = vbNullString
    
46.           lDoc = StartDocPrinter(lhPrinter, 1, MyDocInfo)
    
47.           Call StartPagePrinter(lhPrinter)
    
48.       End Sub
    
49.       Private Sub Form_Unload(Cancel As Integer)
    
50.           Dim lReturn As Long
    
51.           lReturn = EndPagePrinter(lhPrinter)
    
52.           lReturn = EndDocPrinter(lhPrinter)
    
53.           lReturn = ClosePrinter(lhPrinter)
    
54.       End Sub
    

复制代码