Solved

Printing like dos

Posted on 1998-05-01
1
193 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
ID: 1340175
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

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

This article explains how to create forms/units independent of other forms/units object names in a delphi project. Have you ever created a form for user input in a Delphi project and then had the need to have that same form in a other Delphi proj…
Introduction I have seen many questions in this Delphi topic area where queries in threads are needed or suggested. I know bumped into a similar need. This article will address some of the concepts when dealing with a multithreaded delphi database…
Email security requires an ever evolving service that stays up to date with counter-evolving threats. The Email Laundry perform Research and Development to ensure their email security service evolves faster than cyber criminals. We apply our Threat…
Although Jacob Bernoulli (1654-1705) has been credited as the creator of "Binomial Distribution Table", Gottfried Leibniz (1646-1716) did his dissertation on the subject in 1666; Leibniz you may recall is the co-inventor of "Calculus" and beat Isaac…

828 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