How to use different fonts while printing one line ?

Posted on 2002-05-16
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.
Question by:laguna21
  • 2
  • 2
  • 2

Expert Comment

ID: 7014653
Printer.Print "Line1 ";
Printer.Print "Line2"

This should do it

Expert Comment

ID: 7014662
More info...

Put a semi-colon after the line.

Your code..

Printer.Print strLine(i);

Author Comment

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.

Networking for the Cloud Era

Join Microsoft and Riverbed for a discussion and demonstration of enhancements to SteelConnect:
-One-click orchestration and cloud connectivity in Azure environments
-Tight integration of SD-WAN and WAN optimization capabilities
-Scalability and resiliency equal to a data center

LVL 22

Expert Comment

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 (,).


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 = "Courier New"
printer.print string$(50,"-") = "Arial"
printer.print "29","30","1","2","3","4","5" = "Courier New"
printer.print string$(50,"-")

LVL 22

Accepted Solution

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".)


Author Comment

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.

Featured Post

Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

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

Suggested Solutions

Title # Comments Views Activity
what font behind pdf 32 150
VB6 Compile Compatibility Issue 4 116
Error when passing an argument to a vb6 that contains  '/' 7 40
Advice in Xamarin 21 97
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…
This article describes some techniques which will make your VBA or Visual Basic Classic code easier to understand and maintain, whether by you, your replacement, or another Experts-Exchange expert.
Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…
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…

821 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