printing problem! please help

hey guys,
plz help me out with this! Ive got a richtextbox that i want to print from. I followed this code from MSDN and it works but the problem is that the text comes out to something like 9-point font and arial.
How do i change it to TimesNewRoman 13-point font before it goes to the printer??

Private Sub cmdWritePrint_Click()
CommonDialog1.Flags = cdlPDReturnDC + cdlPDNoPageNums
If rtbWrite.SelLength = 0 Then
CommonDialog1.Flags = CommonDialog1.Flags + cdlPDAllPages
Else
CommonDialog1.Flags = CommonDialog1.Flags + cdlPDSelection
End If
CommonDialog1.ShowPrinter
Printer.Print ""
rtbWrite.SelPrint CommonDialog1.hDC
End Sub

It prints whatever the default font is for your screen or control at the time

[code]
Printer.Font.Name = "Courier New" ' change font
Printer.Font.Size = 12 ' 12 point font
[code]