Merlin’s Delphi Forge

This is the harder way to print text in Delphi If you want to do it the easier way check out tip 4.1. Well, if for some reasons you may want to print using the Windows API here’s the code:
Code 1:

uses
Printers, WinSpool;
…
var
aDriver, aPort, aPrinterName: array[0..255] of Char; { aDriver and [...]

This code how to print text and text files. This is the simplest way to print without using any external functions. All you have to do is open the LPT1 port (this is the default printer port) as if it where a file.
This code can be easily ported to Turbo Pascal (just change the function [...]