Identifier not found "AssignPrn(POutput)" [SOLVED]

[Robert W.B.]

Hi. Want to print all lines in a memo but, I tried with Uses Printer,Printers but nothing works! 
I have got this errormessage from Lazarus!

Identifier not found "AssignPrn(POutput)"

Can anyone see what's wrong?

Uses ?

var
  POutput : TextFile;
  I       : LongInt;
begin
  if PrintDialog1.Execute then begin     // if Print Dialog OK
    AssignPrn(POutput);                 // assign printer
    ReWrite(POutput);                   // open printer
    Printer.Canvas.Font := Memo1.Font;   // assign current font
    for I := 0 to Memo1.Lines.Count - 1 do begin  // loop
      WriteLn(POutput,Memo1.Lines);   // print one line
    end;
    CloseFile(POutput);                 // close printer
  end
end; // mfPrintClick




Thanks in advance

[molly]

Unless you know the language your printer talks (i really doubt it for this day and age), you are using the wrong (low tech directly communicating to your printer) functions.
Please have a look at this wiki page and the examples listed. See if that is able to help you further.

[J-G]

Can't give you chapter & verse about what's wrong but I can suggest the you do a search on Printer4Lazarus.

With that installed and a uses declaration of 'Printers' I found printing a breeze with this structure:

Code: Pascal  [Select][+][-]

1. begin
2.   with Printer do
3.    try
4.      BeginDoc;
5.  
6. // create data to print
7.  
8.    finally
9.      EndDoc;
10.    end;
11. end;
12.  

I see Molly has given you a link to Printer4Lazarus - that will certainly put you on the right path.

[Robert W.B.]

Thanks.