---
title: "skriv ut"
type: "forum-thread"
url: "https://www.webforum.nu/amne/programmering/44769-skriv-ut"
topic: "Programmering"
topic_url: "https://www.webforum.nu/amne/programmering"
author: "firstchoice"
published: "2002-05-29T06:12:05.000Z"
updated: "2002-05-29T12:50:33.000Z"
replies: 3
views: 197
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/programmering/44769-skriv-ut"
---

# skriv ut

## #1 — firstchoice, 2002-05-29T06:12Z

jag har följande kod!

*procedure 
TForm1.Skrivut1Click(Sender: TObject);
var
  Rad: Integer;
  Texten: TextFile;
begin
  try
    AssignPrn(Texten);
    Rewrite(Texten);
    Printer.Canvas.Font:=Memo1.Font;
    for Rad := 0 to Memo1.Lines.Count -1 do

      WriteLn(Texten, Memo1.Lines\[Rad\]);
    System.Close(Texten);
  except
    ShowMessage ('Kan inte skriva ut! Är skrivaren  installerad rätt?');
  end;
end;
Som du vet sedan tidigare skriver Delphi automatiskt raderna 
procedure TForm1.MittMenyValClick(Sender: TObject);
begin

end;*
 

Delphi godkänner inte detta!! "AssignPrn(Texten);"
vad är fel?
/felix

Permalänk: https://www.webforum.nu/p/44769

## #2 — jt, 2002-05-29T06:22Z

Lägg till Printers under uses.

Permalänk: https://www.webforum.nu/p/686623

## #3 — firstchoice, 2002-05-29T11:21Z

uses

kan inte hitta uses

Permalänk: https://www.webforum.nu/p/686736

## #4 — MinOrk, 2002-05-29T12:50Z

Kolla längst upp i din källkod (.pas filen). Där står det nånting i stil med:

```
[b]unit[/b] NamnPåUnit;
[b]interface[/b]
[b]uses[/b]
    Lista-på-en-massa-units
```

Permalänk: https://www.webforum.nu/p/686781

---

Tråden på webben: https://www.webforum.nu/amne/programmering/44769-skriv-ut