Nayan
21-12-2011, 06:27
Здравствуйте. Перед печатью весь график виден (quickrep.preview), при печати - чистый лист:(
procedure TSingleReportfm.FormCreate(Sender: TObject);
const XShift = 150;
base = 300;
var
scale,i,ii,n : integer;
tA : VectorPtr;
begin ii:=step*10; New(tA); J:=0;
...
QuickRep1.Preview;
dispose(tA);
end;
procedure TSingleReportfm.FormCreate(Sender: TObject);
const XShift = 150;
base = 300;
var
scale,i,ii,n : integer;
tA : VectorPtr;
begin ii:=step*10; New(tA); J:=0;
...
QuickRep1.Preview;
dispose(tA);
end;