Printing Lines from a TMemo object
Posted on 2006-05-07
I am able to get my printer to print a blank page, but I would rather have it print the text I want.
I have tried a number of variations, but it boils down to this, which prints a blank page.
procedure TfrmHelp.btPrintClick(Sender: TObject);
if dlgPrint.Execute then
with Printer do
dlgPrint.PrintRange := prAllPages;
Somehow I need to specify that I want to include memHelp.Lines as the text to be printed. memHelp: TMemo.
I am not stuck on any print routine so if there is a better way to do it, that is fine, too.