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
 
sale-70-410-exam    | Exam-200-125-pdf    | we-sale-70-410-exam    | hot-sale-70-410-exam    | Latest-exam-700-603-Dumps    | Dumps-98-363-exams-date    | Certs-200-125-date    | Dumps-300-075-exams-date    | hot-sale-book-C8010-726-book    | Hot-Sale-200-310-Exam    | Exam-Description-200-310-dumps?    | hot-sale-book-200-125-book    | Latest-Updated-300-209-Exam    | Dumps-210-260-exams-date    | Download-200-125-Exam-PDF    | Exam-Description-300-101-dumps    | Certs-300-101-date    | Hot-Sale-300-075-Exam    | Latest-exam-200-125-Dumps    | Exam-Description-200-125-dumps    | Latest-Updated-300-075-Exam    | hot-sale-book-210-260-book    | Dumps-200-901-exams-date    | Certs-200-901-date    | Latest-exam-1Z0-062-Dumps    | Hot-Sale-1Z0-062-Exam    | Certs-CSSLP-date    | 100%-Pass-70-383-Exams    | Latest-JN0-360-real-exam-questions    | 100%-Pass-4A0-100-Real-Exam-Questions    | Dumps-300-135-exams-date    | Passed-200-105-Tech-Exams    | Latest-Updated-200-310-Exam    | Download-300-070-Exam-PDF    | Hot-Sale-JN0-360-Exam    | 100%-Pass-JN0-360-Exams    | 100%-Pass-JN0-360-Real-Exam-Questions    | Dumps-JN0-360-exams-date    | Exam-Description-1Z0-876-dumps    | Latest-exam-1Z0-876-Dumps    | Dumps-HPE0-Y53-exams-date    | 2017-Latest-HPE0-Y53-Exam    | 100%-Pass-HPE0-Y53-Real-Exam-Questions    | Pass-4A0-100-Exam    | Latest-4A0-100-Questions    | Dumps-98-365-exams-date    | 2017-Latest-98-365-Exam    | 100%-Pass-VCS-254-Exams    | 2017-Latest-VCS-273-Exam    | Dumps-200-355-exams-date    | 2017-Latest-300-320-Exam    | Pass-300-101-Exam    | 100%-Pass-300-115-Exams    |
http://www.portvapes.co.uk/    | http://www.portvapes.co.uk/    |