Will work only if the printer is on LPT1 (almost always:-) }

...

LPTHandle := CreateFile('LPT1', GENERIC_WRITE, 0, PSecurityAttributes(nil),

OPEN_EXISTING, FILE_FLAG_OVERLAPPED, 0);

...




and then....

Then use WriteFile() to send text or:



...

while not TransmitCommChar(LPTHandle, CharToSend) do

  Application.ProcessMessages;