Dotaz: Jak se tiskne v Lazarusu.

[michal2]

Nevím jak přiřadit tiskárnu. AssignPrn nefunguje.

Existuje nějaký generátor sestav pro Lazarus?

procedure TForm1.Button3Click(Sender: TObject);
 var F : TextFile;
begin
 AssignPrn(F);
  if PrintDialog1.Execute then
   begin
    rewrite(f);
    write(f,'qqqq');
    closefile(f);
   end;
end;

Na otázku zatím nikdo bohužel neodpověděl.