Solved

Printing like dos

Posted on 1998-05-01
1
190 Views
Last Modified: 2010-04-06
I want to print some documents like in dos, i mean by
fonts of dot matrix printer like ascii text printing
in dos. Because its faster then windows printing.
0
Comment
Question by:cemkokten
1 Comment
 
LVL 1

Accepted Solution

by:
bcrotaz earned 20 total points
Comment Utility
Here you go:

var
  Text: TextFile;
begin
  AssignPrn(Text);
  try
    ReWrite(Text);
    Printer.Canvas.Font.Name:='Courier';
    Printer.Canvas.Font.Size:=14;
    Printer.Canvas.Font.Style:=[];
    { do your writing here }
    WriteLn(Text,'My Text Here');
    {when you've finished writing}
  finally
    CloseFile(Text);
  end;
end;


0

Featured Post

What Security Threats Are You Missing?

Enhance your security with threat intelligence from the web. Get trending threat insights on hackers, exploits, and suspicious IP addresses delivered to your inbox with our free Cyber Daily.

Join & Write a Comment

In this tutorial I will show you how to use the Windows Speech API in Delphi. I will only cover basic functions such as text to speech and controlling the speed of the speech. SAPI Installation First you need to install the SAPI type library, th…
Hello everybody This Article will show you how to validate number with TEdit control, What's the TEdit control? TEdit is a standard Windows edit control on a form, it allows to user to write, read and copy/paste single line of text. Usua…
Internet Business Fax to Email Made Easy - With eFax Corporate (http://www.enterprise.efax.com), you'll receive a dedicated online fax number, which is used the same way as a typical analog fax number. You'll receive secure faxes in your email, fr…
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…

763 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

10 Experts available now in Live!

Get 1:1 Help Now