怎么将数据发送到打印机

我写的代码如下：
Private Sub cmdCancel_Click()
    Unload frmPrint
    End
End SubPrivate Sub cmdFile_Click()
    With CommonDialog1
       '获取文件名，允许用户选择取消
       On Error Resume Next
       .ShowOpen
       
       '将选择的文件名赋予文本框
       If Not IsNull(txtFile) Then
          txtFile = .FileName
       Else
          MsgBox "没有找到文件:" & txtFile, vbExclamation, "Error"
          Exit Sub
       End If
    End With
      
End SubPrivate Sub cmdPrint_Click()
   Dim BeginPage, EndPage, NumCopies, i
   
   CommonDialog1.CancelError = True   '将 Cancel 设置成 True。
   On Error GoTo ErrHandler
   
   CommonDialog1.ShowPrinter     '显示“打印”对话框。
   
   '从对话框中获取用户选定数值。
   BeginPage = CommonDialog1.FromPage
   EndPage = CommonDialog1.ToPage
   NumCopies = CommonDialog1.Copies
   For i = 1 To NumCopies
   '在此放置代码，将数据发送到打印机。
   Printer.Print txtFile.Text            '??????????????怎么写？
   
   Next i
   Exit Sub
ErrHandler:
   
   Exit Sub    '用户按下了“取消”按钮。
      
End Sub
请问怎么样才能把我读到的文件打印出来？谢谢！