Programmvorbereitung - Hilfe benötigt!

[Expresseon]

Ich habe sie angesehen und ausprobiert, dann habe ich nach einer genaueren Anweisung gefragt, aber leider keine bekommen. Irgendwie hat es nicht funktioniert.

[Crash-Override]

Ich habe sie angesehen und ausprobiert, dann habe ich nach einer genaueren Anweisung gefragt, aber leider keine bekommen. Irgendwie hat es nicht funktioniert.

...

Ernsthaft? Ich hätte nicht gedacht das du das nicht hinbekommst. Binde einfach "Printers" als unit ein und dann kannst du das hier probieren:

Code:

Printer.Title := 'Test Document';
Printer.BeginDoc;
// Jetzt ein paar Canvas Samples
Printer.Canvas.TextOut(100, 100, 'This is a test!');
Printer.Canvas.Font.Style := [fsBold];
Printer.Canvas.TextOut(150, 400, 'Fett');
Printer.Canvas.Ellipse(200, 200, 250, 300);
// Und drucken:
Printer.EndDoc;

Benutzt wird der Standard-Drucker. Getestet mit Delphi 7 und PDFCreator als Standard-Drucker. Hier mal das Ergebnis: http://npshare.de/files/35/9626/Test%20Document.pdf

[Expresseon]

Sorry, ich habe echt noch zu wenig Ahnung. Wo und wie soll ich "Printer" als Unit einbinden?

[Crash-Override]

Sorry, ich habe echt noch zu wenig Ahnung. Wo und wie soll ich "Printer" als Unit einbinden?

...

da wo "uses" ganz oben in deinem Quelltext steht. Einfach noch Printers mit einem Komma anhängen (vor ; natürlich).

[Expresseon]

Den Sinn hab ich jetzt verstanden, allerdings sucht Delphi dabei nach Printer.dcu, was er nicht findet und als Fehler ausgibt.

[Crash-Override]

Den Sinn hab ich jetzt verstanden, allerdings sucht Delphi dabei nach Printer.dcu, was er nicht findet und als Fehler ausgibt.

...

Binde eben "Printers" ein, habs ja oben schon genannt, nur dann im letzten Post falsch geschrieben.

[Expresseon]

Schon besser, jetzt liegt der Fehler aber im geposteten Code bei Printer (unknown directive).

[Crash-Override]

http://npshare.de/files/35/8589/Delp...%20Example.rar

So, hier mal ein Beispiel inc. source und binary.

[Expresseon]

Danke! Später kommen vielleicht nochmal Fragen auf, im Moment klappt es aber. Wo finde ich eigentlich PrinterDialog und FontDialog in Delphi?

Edit: Wie kann ich jetzt den Text einer weiteren Memo zum Druckvorgang hinzufügen? Benötigt man eine neue Variable?

[Crash-Override]

Danke! Später kommen vielleicht nochmal Fragen auf, im Moment klappt es aber. Wo finde ich eigentlich PrinterDialog und FontDialog in Delphi?

Edit: Wie kann ich jetzt den Text einer weiteren Memo zum Druckvorgang hinzufügen? Benötigt man eine neue Variable?

...

genauso wie beim ersten, du musst halt nur den vertikalen Offset (500) erhöhen, damit sie sich nicht überschneiden. Die Dailoge findest du im gleichnamigen Register (bzw. Dialogs in der englischen Version).

[Expresseon]

Code:

begin
      Printer.Canvas.TextOut(500, 1000 + I *
              (Printer.Canvas.TextHeight('I') + 5), memText1.Lines[I], memText2-Lines[I]);
end;

So? Wofür wird denn eigentlich die Variable I eingesetzt?

[Crash-Override]

Code:

begin
        Printer.Canvas.TextOut(500, 1000 + I *
              (Printer.Canvas.TextHeight('I') + 5), memText1.Lines[I], memText2-Lines[I]);
         end;

So? Wofür wird denn eigentlich die Variable I eingesetzt?

...

I steht immer für die aktuelle Zeile (beginnend bei 0) in meinem Code. Um auszurechnen wohin de Text kommen muss ist die Formel I*(ZeilenHöhe + 5), damit sich der Text nicht überschneidet. Die +5 ist nur damit die Zeilen nicht so aneinander kleben.

Dein Code ist übrigens schwachsinn. Probiere es mal lieber so:

Code:

procedure TfrmMain.btnPrintClick(Sender: TObject);
var
  I, J: Integer;
begin
  if PrintDialog.Execute then
  begin
    try
      Printer.Copies := printDialog.Copies;

      Printer.Title := 'Document';
      Printer.BeginDoc;
      // Setze Schriftart
      Printer.Canvas.Font := FontDialog.Font;
      // Zeilenweißes drucken
      for I := 0 to memText.Lines.Count - 1 do
      begin
        Printer.Canvas.TextOut(500, 500 + I *
              (Printer.Canvas.TextHeight('I') + 5), memText.Lines[I]);
      end;

      for J := 0 to memText2.Lines.Count - 1 do
      begin
        Printer.Canvas.TextOut(500, 500 + J * (Printer.Canvas.TextHeight('I') + 5) + I * (Printer.Canvas.TextHeight('I') + 5),
              (Printer.Canvas.TextHeight('I') + 5), memText2.Lines[J]);
      end;
      // Und drucken:
      Printer.EndDoc;
    except
      MessageDlg('Error while printing!', mtError, [mbOk], 0);
    end;
  end;
end;