Solved

RichText box Other Fonts with bahaviour like Fixed Sys font type

Posted on 2002-07-15
6
316 Views
Last Modified: 2013-12-02
I retrive data in a rich text box which is normallt displayed in a Notapad editor.
With FixedSys Font type all the lines are lining up nicely.
But the problem is that I would like to display it in a smaller font size than 9pt, this is not possible with FixedSys. I also get problems when I print the Text.
Apparently the printer prints it in true type and the spaces which in FixedSys are working like a tubulator are not visible and the whole text looks out of line.

What other font type can I use to display it in smaller fonts. And how do I have to set my printer option ????
0
Comment
Question by:themroc
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
6 Comments
 
LVL 43

Expert Comment

by:TimCottee
ID: 7154046
You can use Courier down to 6pts, this should print mono-spaced even on the printer.
0
 

Author Comment

by:themroc
ID: 7154180
In principle it works. Unfortuately there are only Font sizes 10, 12, 14 available. That is  probably the window default. Put at least it shows the unidistance spaces and on the screen the text looks o.k.
Unfortuately The printout looks still quiet messy and it looks like the printer prints a different font size than specified. I tried also the font "TERMINAL Regular 5pt". But the result remains the same the scrren looks fine but the printout messy.

Therefor in the following lines I put the source code I used to invoke the printer perhaps I have to set there something to get the right FONT on the Printout !!

CODE:
.CommonDialog_print.Flags = cdlPDReturnDC + cdlPDNoPageNums
   If .rtxt_htri_output.SelLength = 0 Then
      .CommonDialog_print.Flags                                   = .CommonDialog_print.Flags + cdlPDAllPages
   Else
      .CommonDialog_print.Flags                                   = .CommonDialog_print.Flags + cdlPDSelection
   End If
   .CommonDialog_print.ShowPrinter
   'Printer.Print ""
   .rtxt_htri_output.SelPrint .CommonDialog_print.hDC
_____________
0
 

Author Comment

by:themroc
ID: 7156484
any other suggestion
???????
0
Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
LVL 2

Accepted Solution

by:
ventond earned 110 total points
ID: 7163176
Courier New is also a fixed space font.

You don't have to use only those sizes that are there by default. Windows will try to adjust if it can. If you font has 10 12 16 for sizes. Try printing with 5 6 or 8. You might even try 3.
0
 
LVL 49

Expert Comment

by:DanRollins
ID: 8012233
Hi themroc,
It appears that you have forgotten this question. I will ask Community Support to close it unless you finalize it within 7 days. I will ask a Community Support Moderator to:

    Accept ventond's comment(s) as an answer.

themroc, if you think your question was not answered at all or if you need help, just post a new comment here; Community Support will help you.  DO NOT accept this comment as an answer.

EXPERTS: If you disagree with that recommendation, please post an explanatory comment.
==========
DanRollins -- EE database cleanup volunteer
0
 
LVL 1

Expert Comment

by:Computer101
ID: 8094172
Comment from expert accepted as answer

Computer101
E-E Admin
0

Featured Post

On Demand Webinar - Networking for the Cloud Era

This webinar discusses:
-Common barriers companies experience when moving to the cloud
-How SD-WAN changes the way we look at networks
-Best practices customers should employ moving forward with cloud migration
-What happens behind the scenes of SteelConnect’s one-click button

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

When trying to find the cause of a problem in VBA or VB6 it's often valuable to know what procedures were executed prior to the error. You can use the Call Stack for that but it is often inadequate because it may show procedures you aren't intereste…
Article by: Martin
Here are a few simple, working, games that you can use as-is or as the basis for your own games. Tic-Tac-Toe This is one of the simplest of all games.   The game allows for a choice of who goes first and keeps track of the number of wins for…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…
Excel styles will make formatting consistent and let you apply and change formatting faster. In this tutorial, you'll learn how to use Excel's built-in styles, how to modify styles, and how to create your own. You'll also learn how to use your custo…

749 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question