50

Jeg kan ikke lige huske hvordan man bruger printeren.

Tilføj "printers" til uses, og Kig lidt på printer. objectet.

Ellers brug en RichEdit istedet.

Dette printer memo1 ud:
-----------------------

uses Printers

procedure TForm1.Button_PRINT_Click(Sender: TObject);
const TopMargen=20;
const LeftMargen=20;
const mellemrum=5;
var y,i:integer;
begin
  with Printer do
  begin
    BeginDoc;
    y:=0;
    //Print alle linierne
    for i:=0 to Memo1.Lines.Count-1 do begin
      //Tjek for side skift
      if y+Canvas.TextHeight(Memo1.Lines[i])+mellemrum>PageHeight Then begin newpage;y:=0;end;
      //udskriv
      Canvas.TextOut(LeftMargen,TopMargen+y,Memo1.Lines[i]);
      //Flyt til næste linie
      y:=y+Canvas.TextHeight(Memo1.Lines[i])+mellemrum;
    end;
    EndDoc;
  end;
end;

hvis jeg gøre det for jeg at vide noget om end som gør at programmet ikke kan køre

Lige nøjagtigt hvilken fejl får du - det er ikke helt uvæsentligt...

den siger følgende error in module unit1.'END.'missing at end module jeg håber det kan hjælpe dig

Du skal lige tilføje linjen

end.

nederst i filen. Sådan er alle units afsluttet. Du skal vide, at du ikke bare laver en ny unit, og så klippe/klistre ovenstående oveni det der står i den. Teksten ovenfor skal indsættes mellem implementation og end. i en ny unit. Go' fornøjelse!

>>lrj, er det svar på spørgsmålet?

Hehe, næh, men det var da et svar på det følgende spørgsmål som blev stillet - din forklaring var jo ikke korrekt *s*

[Prøver at tiltuske sig lidt points :)]

>>lrj
Det jeg har lavet er bare en procedure til at printe med ikke hele unitet.. At han så er kommet til at slette "end." ved et uheld ændre da ikke på mit indlægs gyldighed?

>>Jens
Kan du få det til at virke?

jenspoulsen/snorga> Korrekt - det var ikke et egentligt svar på spørgsmålet, men jens havde tydeligvis ikke mulighed for at bruge svaret til noget, da der ikke fulgte en grundig nok forklaring med. Derved mener jeg at min kommentar også var en del af svaret - og Eksperten er blevet mere dynamisk, således at det er muligt at give flere points; et sådan hjælpesvar skal selvfølgelig ikke takseres særlig højt, men det er også tanken der tæller, ik'?

:)