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