Quick Report und Rechnungen

[mcinternet]

Zitat von Rolf Frei:

Das ist so nicht gerade einfach ohne dass man den Report selber vor Ahgen hat. Kannst du eventuell den Report hier posten? Vermutlich reicht es, wenn nur die Bänder enthalten sind und du allfällige andere Sachen rauswirfst.

Da der Report außer dem hier bisher "keinen" Quellcode hat, macht es eigentlich keinen Sinn den zu posten, weil Du ja auch die Tables nicht hast.

Code:

procedure TqrRechnung.QuickRep1BeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
var  i: Integer;
begin
  for i := 0 to Screen.FormCount - 1 do
  if Screen.Forms[i].ClassName = 'TQRStandardPreview' then
   begin
     Screen.Forms[i].BorderIcons:= Screen.Forms[i].BorderIcons-[biMinimize];
   end;
end;

erstmal Danke, ich werde Deine Idee mal aufgreifen und testen - dann berichten

beste Grüße aus dem Odenwald

mcinternet