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