Drucken aus Record

[Klaus01]

Hallo,

bereich ist das ein Array?

Vielleicht funktioniert es dann so?

Delphi-Quellcode:

procedure TFormMain.Drucken1Click(Sender: TObject);
var
  i : integer;
  ptext: TextFile;
begin
  // Datei an den Drucker senden; abh. von der Position des Zeigers
  if length(bereich) = 0
  then
    exit;

  AssignPrn(ptext); // text zuweisen
  printer.Canvas.Font.Size := 12;
  // Hier Exception
  Writeln(
    ptext,
    '----------------------------------------------------------------------');
  for i := low(bereich) to high(bereich) do
    with bereich[i] do
      Writeln(
        ptext,
        ' ',
        Hardwarename,
        ' ',
        ' ');
  CloseFile(ptext); // Datei schliessen; damit wird das Objekt wieder entf.
end;

Grüße
Klaus

[DeddyH]

Kleiner Hinweis:

Zitat:

AssignPrn bewirkt in Delphi, dass alle in die Textdateivariable F geschriebenen Informationen an den Drucker weitergeleitet werden. Nachdem Sie der Textdateivariable einen Wert zugewiesen haben, müssen Sie die Prozedur Rewrite aufrufen.

[Pfl]

Danke für die schnellen Antworten Ich habe printer aus der uses entfernt; aber stattdessen become ich fehler 103. Was soll das den nun wieder bedeuten?

[DeddyH]

Zitat von Pfl:

Ich habe printer aus der uses entfernt

Zitat von Pfl:

Was soll das den nun wieder bedeuten?

Um es in Deinen Worten zu sagen

[Pfl]

Ach so ja sorry

[Luckie]

Zitat von Pfl:

Danke für die schnellen Antworten Ich habe printer aus der uses entfernt; aber stattdessen become ich fehler 103. Was soll das den nun wieder bedeuten?

Willst du doch nicht mehr drucken? Und was sagt Google zu Fehler 103?