VB可以直接控制打印机吗？怎么写代码？

Question

Printer.ScaleMode = 6
    Printer.CurrentX = 82
    Printer.CurrentY = 8
    Printer.FontSize = 36
    Printer.Print a1(0)
    Printer.FontSize = 12
    Printer.FontBold = True
   
    Printer.Line (15, 26)-(183, 26)
    Printer.Line (15, 26)-(15, 35)
    Printer.CurrentX = 18
    Printer.CurrentY = 30
    Printer.Print aaaaaa"
    Printer.Line (38, 26)-(38, 35)
    Printer.CurrentX = 51
    Printer.CurrentY = 30
    Printer.Print aaaaa"
    Printer.Line (83, 26)-(83, 35)
    Printer.CurrentX = 124
    Printer.CurrentY = 30
    Printer.Print "aaaaaa"
    Printer.Line (183, 26)-(183, 35)
    Printer.Line (15, 35)-(183, 35)

Answer 1

听说可以用 
open "LPT1" as #filenumber 
打开打印机,然后用
put #filenumber ,, prt_string
最后用
close #filenumber 关闭.
来打印prt_string 的内容.但我没有打印机,没法尝试.

Answer 2

http://support.microsoft.com/default.aspx?scid=kb;EN-US;154078Option Explicit      Private Type DOCINFO
          pDocName As String
          pOutputFile As String
          pDatatype As String
      End Type      Private Declare Function ClosePrinter Lib "winspool.drv" (ByVal _
         hPrinter As Long) As Long
      Private Declare Function EndDocPrinter 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 OpenPrinter Lib "winspool.drv" Alias _
         "OpenPrinterA" (ByVal pPrinterName As String, phPrinter As Long, _
          ByVal pDefault 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 StartPagePrinter 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 Sub Command1_Click()
          Dim lhPrinter As Long
          Dim lReturn As Long
          Dim lpcWritten As Long
          Dim lDoc As Long
          Dim sWrittenData As String
          Dim MyDocInfo As DOCINFO
          lReturn = OpenPrinter(Printer.DeviceName, lhPrinter, 0)
          If lReturn = 0 Then
              MsgBox "The Printer Name you typed wasn't recognized."
              Exit Sub
          End If
          MyDocInfo.pDocName = "AAAAAA"
          MyDocInfo.pOutputFile = vbNullString
          MyDocInfo.pDatatype = vbNullString
          lDoc = StartDocPrinter(lhPrinter, 1, MyDocInfo)
          Call StartPagePrinter(lhPrinter)
          sWrittenData = "How's that for Magic !!!!" & vbFormFeed
          lReturn = WritePrinter(lhPrinter, ByVal sWrittenData, _
             Len(sWrittenData), lpcWritten)
          lReturn = EndPagePrinter(lhPrinter)
          lReturn = EndDocPrinter(lhPrinter)
          lReturn = ClosePrinter(lhPrinter)
      End Sub