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 [...]

The TMemo and TListBox components don’t have any print functions although sometimes they would come in very handy. Well, here’s the solution. All you have to do is open a text file on the printer and print anything you want.

uses
Printers;
…
var
iI [...]