Print Contents of Rich Text Box?

Private Sub cmdOK_Click()

'Set Orientation
'================

'If rbOrientation(0).Value = True Then
' Printer.Orientation = 1
'Else
' Printer.Orientation = 2
'End If

'Set Paper Size
'================

Dim lPaperCount As Long
Dim iNumPaper() As Integer
Dim iPaperSelected As Integer

' Get count of paper sizes supported by active printer.
lPaperCount = DeviceCapabilities(Printer.DeviceName, Printer.Port, _
DC_PAPERS, ByVal vbNullString, 0)

ReDim iNumPaper(1 To lPaperCount)

'Get papers supported
lPaperCount = DeviceCapabilities(Printer.DeviceName, Printer.Port, _
DC_PAPERS, iNumPaper(1), 0)
iPaperSelected = cbSize.ListIndex + 1
Printer.PaperSize = iNumPaper(iPaperSelected)
'Set Paper Bin
'================

Dim dwbins As Long
Dim numBin() As Integer
Dim iBinSelected As Integer

'Get count of bins supported
dwbins = DeviceCapabilities(Printer.DeviceName, Printer.Port, _
DC_BINS, ByVal vbNullString, 0)
If dwbins <> -1 Then
ReDim numBin(1 To dwbins)
'Get bins supported
dwbins = DeviceCapabilities(Printer.DeviceName, Printer.Port, _
DC_BINS, numBin(1), 0)
iBinSelected = cbSource.ListIndex + 1
Printer.PaperBin = numBin(iBinSelected)
End If
MsgBox "Page Size: " & Format(Printer.Width / 1440, "#0.0") & _
" x " & Format(Printer.Height / 1440, "#0.0")
'================



If Option1.Value = True Then
Printer.FontName = "Draft 10cpi"
Else
Printer.FontName = "Courier New"
End If

Printer.PrintQuality = vbPRPQDraft

'//Printer.ColorMode = vbPRCMMonochrome
'//Printer.ScaleMode = vbCharacters

Printer.Print Rtf.Text

Printer.EndDoc
Printer.KillDoc
End Sub
01. if i print epson printer this code fast dos printing but tvs 240 not print in draft mode fast ?