Printing strings 3

[Chinner10]

I need to print a series of strings using a jet printer, but I have to use a font with equal spacing for the characters or else the formatted string is all over the place and not in the columns which have been formatted. If I could convert these strings to text in Edit or RichEdit, the font could be specified in the Property, but I do not seem to be able to convert the strings.

 

[roo0047]

The simplest way to accomplish this is to drop a TMemo on a form. Use the Memo1.Lines.Add() command to add all the strings to the memo. Set the Memo1.Font property as required. Use Memo1.Lines.SaveToFile() to write to disk. Then use ShellExecute(Handle, 'Print', pchar(filename), '', '', SW_SHOWNORMAL) to print the file. You may need to add ShellAPI to your uses clause.

HTH


Roo
Delphi Rules!

 

[smays]

Are you using the TPrinter class to print to the jet printer? If so, you should be able to set the Font, Size, and location of the text as it appears on the printer canvas and then print to the canvas.

 

[DjangMan]

There is a free version of FastReport that would give you excellent control over the printed output.

http://fast-report.com/en/products/free-report-generator-for-delphi.html

 

[Griffyn]

For standard text I often just load up a TStringList with what I want printed, and then call

MyStringList.SaveToFile('\\printserver\sharename');

presuming that the printer you want has been shared on the network.

You can embed HP control codes to do things like bold, or italics, or adjust the font size.