funktionen zum drucken mit hilfen von qreport

[marabu]

Peter hat es ja schon richtig vermutet:

Delphi-Quellcode:

procedure Tfrmfriktionstest_formular.Button1Click(Sender: TObject);
begin
  // print(); // das ist genauso gut, wie FrmFriktionsTest_Formular.Print();
  // was du brauchst ist eher 
  QuickRep1.Print(); // oder QuickRep.Preview();
end;

marabu

[cell]

Delphi-Quellcode:

procedure Tfrmfriktionstest_formular.Button1Click(Sender: TObject);
begin
QuickRep1.print(); 
//PrinterSetup()

end;

hab das so probiert, da kommt garnichts mehr vom drucker raus =D
muss ich nicht auch den ddrucker zuerst auswählen bzw muss ich einen zuweisen ???

[Luckie]

Guck doch mal in der Hilfe oder guck dir die Demos an.

[cell]

welche demos, ?? mit der hilfe kann ich nicht viel anfangen
!! :( hast du vlt ein tutorial über das drucken wo ich nachschauen kann ??

[Jasocul]

Ich versuche das jetzt mal gaaanz laangsaam.
Du hast wohl ein neues Quickreportformular erzeugt.
in dieser Form hast du eine Komponente vom Typ TQuickRep (Ich nenne sie mal ReportForm1).
Den Namen kannst du finden unter der Typen-Definition.
Dieses hast über die Uses-Klausel (schon mehrfach für dich erläutert) in eine andere Form eingebunden.
Auf dieser anderen Form hast du einen Button mit einem Click-Ereignis.
In dieses Click-Ereignis schreibst du nun:

Delphi-Quellcode:

  ReportForm1.Preview;
// oder
//  ReportForm1.Print;
// ganz nach Geschmack.

Dadurch solltest du eine Voransicht bekommen.

[cell]

Zitat:

Du hast wohl ein neues Quickreportformular erzeugt.

ich hab ein ganz normales formular erzeugt ?? und auf diesem formular habe ich eine QuickRep komponente erzeugt, und auf der habe ich QRTextfelder
und ich hab auch einen button wo der quelltext drinnen steht.

Delphi-Quellcode:

procedure Tfrmfriktionstest_formular.Button1Click(Sender: TObject);
begin
QuickRep1.Preview;
end;

und wenn ich den button anklicke passiert garnichts ?

[Jasocul]

In dem Fall solltest du irgendwo eine Komponente vom Typ TQuickRep haben. Wie du die benannt hast, weiß ich nicht. Auf jeden Fall musst du die Print/Preview-Methode dieser Komponente aufrufen.

[cell]

Delphi-Quellcode:

type
  Tfrmfriktionstest_formular = class(TForm)
    QuickRep1: TQuickRep;
   .....

ja hab ich rufe ich die nícht so auf

Delphi-Quellcode:

procedure Tfrmfriktionstest_formular.Button1Click(Sender: TObject);
begin
QuickRep1.Preview;
end;

[Jasocul]

Sieht richtig aus.
Sind die Datenmengen denn geöffnet?
Es gab da auch mal ein Problem, wenn der Standard-Drucker OffLine ist. Solltest du mal prüfen.

[cell]

was meinst du mit sind die datenmengen geöffnet??
ähmm der drucker müsste online sein weil ich das schon einmal ausgedruckt habe nur es hat die bänder immer mitgedruckt ??
gibt des da keine einstellung bei den bändern wie zb Visible= false; oda so ????