VB print problem

MuK107

Senior member
Dec 30, 2001
270
0
0
i have know idea where to look to get some code to print with a commondialog box, it is printing text from a richtextbox
 

MuK107

Senior member
Dec 30, 2001
270
0
0
i dont knwo how to make it so that it takes the text from the richtextbox and prints that
 

riteo

Member
Jan 3, 2002
31
0
0
haha msdn. the help there is worth crap.

sorry i can't help, go lookup printing on a web tut or a vb book.
 

MuK107

Senior member
Dec 30, 2001
270
0
0
yea i got it to work.....but i can get it to use a select font fontcolor textbold ext. how would i say that because i can set it to u print the font and the colol bold ext. but i need it to be select stuff like my richtextbox

if you know please help
 

bjb86s

Senior member
Aug 8, 2001
494
0
0


<< does anyone know how to print the seltext in a richtextbox? >>



Printer.Print Text1.SelText
Printer.EndDoc
 

MuK107

Senior member
Dec 30, 2001
270
0
0
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