<div>
<div class="content wysiwyg-content">
I am trying to print the contents of a RichTextBox using the SelPrint method. &nbsp;I have tried the example in the VB 4 SelPrint documentation which is as follows...<br />
<br />
This example prints the formatted text in a RichTextBox control. &nbsp;To try this example, put a RichTextBox control, a CommonDialog control, and a CommandButton control on a form. &nbsp;Paste this code into the Click event of the CommandButton control. &nbsp;Then run the example.<br />
<br />
Private Sub Command1_Click()<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;CommonDialog1.Flags = cdlPDReturnDC + cdlPDNoPageNums<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If RichTextBox1.SelLength = 0 Then<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;CommonDialog1.Flags = CommonDialog1.Flags + cdlPDAllPages<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Else<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;CommonDialog1.Flags = CommonDialog1.Flags + cdlPDSelection<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End If<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;CommonDialog1.ShowPrinter<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;RichTextBox1.SelPrint CommonDialog1.hDC<br />
End Sub<br />
<br />
But when I try it out, nothing prints! &nbsp;I keyed in some text into the RichTextBox and clicked on the command button, but although there is a little disk activity (which shows something is happening), nothing prints. &nbsp;How can I make this example work, so that it prints? &nbsp;I have my printer set up properly as the default printer, so why isn't it working?
</div>
</div>


I am trying to print the contents of a RichTextBox using the SelPrint method.  I have tried the example in the VB 4 SelPrint documentation which is as follows...

This example prints the formatted text in a RichTextBox control.  To try this example, put a RichTextBox control, a CommonDialog control, and a CommandButton control on a form.  Paste this code into the Click event of the CommandButton control.  Then run the example.

Private Sub Command1_Click()
	CommonDialog1.Flags = cdlPDReturnDC + cdlPDNoPageNums
	If RichTextBox1.SelLength = 0 Then
		CommonDialog1.Flags = CommonDialog1.Flags + cdlPDAllPages
	Else
		CommonDialog1.Flags = CommonDialog1.Flags + cdlPDSelection
	End If
	CommonDialog1.ShowPrinter
	RichTextBox1.SelPrint CommonDialog1.hDC
End Sub

But when I try it out, nothing prints!  I keyed in some text into the RichTextBox and clicked on the command button, but although there is a little disk activity (which shows something is happening), nothing prints.  How can I make this example work, so that it prints?  I have my printer set up properly as the default printer, so why isn't it working?

SelPrint doesn't work!

Visual Basic is Microsoft’s event-driven programming language and integrated development environment (IDE) for its Component Object Model (COM) programming model. It is relatively easy to learn and use because of its graphical development features and BASIC heritage. It has been replaced with VB.NET, and is very similar to VBA (Visual Basic for Applications), the programming language for the Microsoft Office product line.