Fastreport - Drucken, wie verdammt geht das denn?

[alzaimar]

Hab mir FreeReport besorgt, is ja nett. Aber wie zum Deibel kann ich denn einen Report ausdrucken? Nicht Preview, sondern direkt -zack- zum Drucker!
Hintergrund: Ein Etikett (A4) soll 100 x gedruckt werden... Automatisch, einfach so, im Hintergrund.

Natürlich geht das auch ohne FreeReport, aber so solls nun mal sein.

Kann mir Einer mal eben sagen, wie das geht?

Danke schomal für die Nachsicht.

[marabu]

Hi alzaimar,

nach einem Blick in die OH denke ich, dass du mit den beiden Methoden TFRReport.PrepareReport() und TFRReport.PrintPreparedReport() arbeiten musst - oder?

Grüße vom marabu

[alzaimar]

Hab ich mal probiert, klappte nicht. Aber wenn Du das sagst, check ich das nochmal.

Danke

[Union]

Zitat von alzaimar:

Hab ich mal probiert, klappte nicht. Aber wenn Du das sagst, check ich das nochmal.

Danke

So sollte es gehen:

Delphi-Quellcode:

// Damit kein Print-Setupdialog erscheint
frxReport1.ShowDialog := false;
if frxReport1.PrepareReport then
   frxReport1.Print;

[smudo]

Bin zwar noch ziemlich neu hier und hab eigentlich noch nichts zu melden,
aber den Titel könnte man wirklich etwas intelligenter formulieren.

[alzaimar]

Is schon richtig, aber eigentlich ist das genau die Frage, die in meinem Kopf herumschwirrt:
Reporting-Komponente, klar, dient zum Drucken. Aber die kann offensichtlich nur über ein Vorschaufenster drucken. Ich brauch das aber direkt... Also per Programmzeile MyReport.Print oder so. Gibts scheinbar nicht---> "WIE VERDAMMT NOCHMAL DRUCK ICH DANN???" Irgendwie logisch, der Titel

@union: Danke für den Tipp, aber 'ShowDialog' gibt es gar nicht in FR 3...

[alex517]

Hallo alzaimar,

Meine Quelltexte mit FR habe ich auf Arbeit nicht greifbar, aber es müßte glaube ich
so gehen:

Delphi-Quellcode:

Report1.LoadFromFile(FName: String);
if Report1.PrepareReport then
  Report1.PrintPreparedReport(PageNumbers: String; Copies: Integer; Collate: Boolean; PrintPages: TfrPrintPages);

alex

[alzaimar]

Gibt auch kein PrintPreparedReport

Aber, ich habe jetzt mal selbst (!!!!) die OH von der HP runtergeladen und nachgeschaut (JAAAAAAAAAA)

Für Alle, die es wissen wollen:

Delphi-Quellcode:

rpFrachtbrief.PrintOptions.ShowDialog := False;
if rpFrachtbrief.PrepareReport then
  rpFrachtbrief.Print;

Danke an Alle für Euer Mitgefühl und Beistand in diesen schwierigen Zeiten

[alex517]

mit welcher Version von FastReport arbeites du?
Ich habe 2.54.
alex

[alzaimar]

Ich habe FR 3.0 hier installiert. Vermutlich haben die Vieles verändert. Aber so klappt es wenigstens.