Skriva ut

[Björn Hansen]

Tjenare!

Jag skulle vilja att man genom att trycka på "Skriv ut" i Arkiv menyn skulle få en utskrift av en textfil (vanlig txt) som ligger på datorn.

Hur gör man? Kollar man i hjälpen så snurrar det bara. Jag får fram en ruta där man kan välja skrivare, göra intällningar och dyl. men sedan?

 

Tacksam för svar

[Petter Holmström]

Någonting typ:

 

user Printers;

...

var F, P: TextFile;

Ln: string;

begin

AssignFile(F, "minfil.txt");

Reset(F);

AssignPrn(P);

Rewrite(P);

while not Eof(F) do

begin

Readln(F, Ln);

Writeln(P, Ln);

end;

CloseFile(F);

CloseFile(P);

end;