i know how to do it this is the code i have know
Private Sub mnuprint_Click()
  Dim BeginPage, EndPage, NumCopies, i
  ' Set Cancel to True
  CMD1.CancelError = True
'  On Error GoTo ErrHandler
  ' Display the Print dialog box
  CMD1.ShowPrinter
  ' Get user-selected values from the dialog box
  BeginPage = CMD1.FromPage
  EndPage = CMD1.ToPage
  NumCopies = CMD1.Copies
  For i = 1 To NumCopies
    ' Put code here to send data to the printer
  Next i
  Printer.Font = Text1.SelFontName
  Printer.FontSize = Text1.SelFontSize
  Printer.FontBold = Text1.SelBold
  Printer.FontItalic = Text1.SelItalic
  Printer.FontUnderline = Text1.SelUnderline
  Printer.ForeColor = Text1.SelColor
  Printer.Print "MoOk PaD" & Chr(10) & Chr(10) & Chr(10) & Chr(10) & Text1.Text
  Printer.EndDoc
  Exit Sub
ErrHandler:
  ' User pressed the Cancel button
  Exit Sub
End Sub
but i want it to be able to print exactoly what is in the text like underline bold ext. like i have Bold and Italic like that and i want it to print like that right now it doesnt do that