1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TF_Haupt.BBTN_KW_druckenClick(Sender: TObject);
  begin

    //Formular erzeugen
    if F_Druck_Termine = nil then F_Druck_Termine := TF_Druck_Termine.Create(Application);
    F_Druck_Termine.QRL_Headline.Caption := 'TERMINE ' + ' KW: ' + inttostr(Kalenderwoche(Now)) + ', ' + FormatDateTime('yyyy',now);
    F_Druck_Termine.QRM_Termine.Lines := F_Haupt.M_Termine.Lines;
    F_Druck_Termine.QR_Termine.print;

    //Formular deaktivieren
    if F_Druck_Termine <> nil then
    begin
      F_Druck_Termine.Release;
      F_Druck_Termine := nil;
    end;
  end;

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure TF_Historie.BBTN_druckenClick(Sender: TObject);
  var
    s_Zeile, Historie_Name : String;
  begin
      //Formular erzeugen
    if F_Druck_Termine = nil then F_Druck_Termine := TF_Druck_Termine.Create(Application);
    Historie_Name := F_Haupt.Programmpfad + '\History\' + DM_Hufbeschlag.T_PferdeName.Value + DM_Hufbeschlag.T_PferdeDienstleistungshistorie.Value;
    F_Historie.M_Historie.Lines.SaveToFile(Historie_Name);
    F_Druck_Termine.QRL_Headline.Caption := 'Dienstleistungshistorie für: ' + DM_Hufbeschlag.T_PferdeName.Value + '  -  Datum: ' + FormatDateTime('dd.mm.yyyy',now);
    F_Druck_Termine.QRM_Termine.Lines.Clear;
    F_Druck_Termine.QRM_Termine.Lines := F_Historie.M_Historie.Lines;
    F_Druck_Termine.QR_Termine.print;
    //Formular deaktivieren
    if F_Druck_Termine <> nil then
    begin
      F_Druck_Termine.Release;
      F_Druck_Termine := nil;
    end;
  end;