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:

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]

:shock: 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

Delphi-Quellcode:

 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 :wall:

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 :dancer:

[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.

[alex517]

Zitat:

Ich habe FR 3.0 hier installiert. Vermutlich haben die Vieles verändert.

scheint so.
Falls du Etiketten vollständig im Hintergrund drucken willst, dh. auch ohne Druckdialog,
und dabei Probleme mit den Druckereinstellungen hast, dann melde dich.
..ich habe bis zur Lösung einige Abende verbraten. :wall:
alex

[PASST]

Ich verwende FreeReport 2.33 und habe derzeit das Problem ohne Druckerauswahl nur auf den Standarddrucker drucken zu können. Auch wenn FastReport eine neuere Version ist, denke ich, dass es in der (aktuellen) Version von FreeReport auch gehen müsste ohne Druckerdialog auf einen nicht Windows-Standard-Drucker auszugeben.

@alex517:
Wie hast du das denn gelöst?

Gruß
PASST

[franktron]

So schwer ist das doch nicht nicht steht doch alles in der Hilfe oder in den Newsgroups von FR.
Aber die haben wircklich viel in FR3 zu FR2.5x geändert

[alzaimar]

Bei der Hilfe ist das so eine Sache: Wenn ich nicht weiss, wonach ich suchen muss, dann ...
ausserdem geht es mit einer Frage im Forum vieeeel schneller. :thumb: Und netter. :thumb: Und Tipps bekommt man auch noch. :thumb:

[alex517]

Hi PASST,

Zitat:

Zitat von PASST

ohne Druckerdialog auf einen nicht Windows-Standard-Drucker auszugeben.
@alex517:
Wie hast du das denn gelöst?

ich glaube so: (Sourcen habe ich zu Hause)

Delphi-Quellcode:

Report1.LoadFormFile(..);
Printer.PrinterIndex := XYZ;
// oder
prn.PrinterIndex := XYZ;

if Report1.PrepareReport then 
  Report1.PrintPreparedReport()

prn findest du in der unit FR_Prntr.

alex

[Karstadt]

Hallo. Ich verwende die FastReport 3.2 und habe auch Probleme beim Drucken auf einen ausgewählten Drucker.

Mein Code:

Delphi-Quellcode:

  with dm.frxReport do
  begin
    LoadFromFile(Datei);

    dm.PrintDialog.Copies := PrintOptions.Copies;
    dm.PrintDialog.Collate := PrintOptions.Collate;
    IF dm.PrintDialog.Execute then
    begin
      PrintOptions.Copies := dm.PrintDialog.Copies;
      PrintOptions.Collate := dm.PrintDialog.Collate;
      Showmessage(IntToStr(Printer.PrinterIndex));

      PrepareReport;
      Print;
    end;
  end;

Gedruckt wird immer auf dem Standarddrucker! warum?

[Sharky]

Hai Karstadt,

Du hast doch zu dieser Frage einen Thread aufgemacht. Warum fragst Du dann noch einmal hier?

Ich schliesse hier mal damit das alles nicht doppelt beantwortet wird.