Visual Basic - "run-time error 482"

Saludos a todos,
Por favor si alguien me ayuda con este error "run-time error 482", no se que pasa me da el momento de cerrar la impresion detallo codigo.

CommonDialog1.ShowPrinter
If Form4.Option2 = True Then
Printer.Orientation = 1
Else
Printer.Orientation = 2
End If
Printer.Print ""

RichTextBox1.SelPrint Printer.hDC
Printer.EndDoc --CommonDialog1.ShowPrinter
If Form4.Option2 = True Then
Printer.Orientation = 1
Else
Printer.Orientation = 2
End If
Printer.Print ""

RichTextBox1.SelPrint Printer.hDC
Printer.EndDocCommonDialog1.ShowPrinter
If Form4.Option2 = True Then
Printer.Orientation = 1
Else
Printer.Orientation = 2
End If
Printer.Print ""

RichTextBox1.SelPrint Printer.hDC
Printer.EndDoc -- "run-time error 482"