Solved

How to use different fonts while printing one line ?

Posted on 2002-05-16
6
138 Views
Last Modified: 2013-12-03
I have one line of text, concatenated from smaller pieces. On the print out I have to see these pieces printed with the different fonts. If an array, need ideas on how to make Printer.Print strLine(i) stay on the same line without going into vbCrLf at the end of the line.
0
Comment
Question by:laguna21
  • 2
  • 2
  • 2
6 Comments
 
LVL 4

Expert Comment

by:gencross
ID: 7014653
Printer.Print "Line1 ";
Printer.Print "Line2"
Printer.EndDoc

This should do it
0
 
LVL 4

Expert Comment

by:gencross
ID: 7014662
More info...

Put a semi-colon after the line.

Your code..

Printer.Print strLine(i);
0
 

Author Comment

by:laguna21
ID: 7014745
It doesn't print at all. Any other ideas? I need it to be like this:
                 Header Goes Here(already printing)
SUN                   MON           TUE        WED ...
-------------------------------------------------------
29                    30             31         1
-------------------------------------------------------
12345                |              |123456   |345678 |...
23456(FontStrikethru)|789076 (normal font)


                 Footer goes here
Everything is printing fine, except different fonts on the same line.


 
0
Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

 
LVL 22

Expert Comment

by:rspahitz
ID: 7014915
To switch fonts, simply change them on the printer.  For same line, end the Print line with the semicolon (;), for new line omit it, for "tabbing" use a comma (,).

Example:

dim strDayOfWeekArray() as string

strDayOfWeekArray = split("Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday",",")

Printer.Font.Name = "Times New Roman"
Pritner.Font.Size = 12
For i=0 to 6
  Printer.Print strDayOfWeekArray(i),
next i
printer.print ' go to next line

printer.font.name = "Courier New"
printer.print string$(50,"-")

printer.font.name = "Arial"
printer.print "29","30","1","2","3","4","5"

printer.font.name = "Courier New"
printer.print string$(50,"-")

'etc.
printer.enddoc
0
 
LVL 22

Accepted Solution

by:
rspahitz earned 200 total points
ID: 7014926
(Actually, the commas will work better if they are applied to the same font name and size, so you probably want to change "Arial" back to "Times New Roman".)

0
 

Author Comment

by:laguna21
ID: 7016330
Thank you. It finally worked for me. But this idea was offered first by gencross, so I want to share points between you two.
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

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

Suggested Solutions

Have you ever wanted to restrict the users input in a textbox to numbers, and while doing that make sure that they can't 'cheat' by pasting in non-numeric text? Of course you can do that with code you write yourself but it's tedious and error-prone …
When designing a form there are several BorderStyles to choose from, all of which can be classified as either 'Fixed' or 'Sizable' and I'd guess that 'Fixed Single' or one of the other fixed types is the most popular choice. I assume it's the most p…
This lesson covers basic error handling code in Microsoft Excel using VBA. This is the first lesson in a 3-part series that uses code to loop through an Excel spreadsheet in VBA and then fix errors, taking advantage of error handling code. This l…
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…

947 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

Need Help in Real-Time?

Connect with top rated Experts

22 Experts available now in Live!

Get 1:1 Help Now