المشاركات : 67
المواضيع 34
:
: 0
الإنتساب : Jul 2013
السلام
عندما اعمل بها يظهر لي فقط الصفحة الاخيرة
لديا قاعدة بيانات اكسس متكونة اكتر من صفحة عندما اضعها في QuickRep1 واكتب الامر QuickRep1.previews تظهر الصفحة الاخيرة فقط ولما اكتب QuickRep1.print تطبع كل الصفحات
كيف أظهر كل الصفحات من دون طباعة ؟
كيف انتقل الى صفحة جديدة
toptrav عدد الاسطر
if(toptrav > 600)then
begin
toptrav:=50;
end; }
الصورة
كود :
http://www11.0zz0.com/2013/08/03/14/582683335.png
المشاركات : 100
المواضيع 16
:
: 0
الإنتساب : Dec 2010
وعليكم السلام ورحمة الله تعالى وبركاته
ضف الكود التالي:
كود :
QuickRep1.DataSet:= ADOTable1;
اذا الجدول كان فى فورم مستقل مثلا Form3
نضع
كود :
QuickRep1.DataSet:= Form3.ADOTable1;
وحيداً فريداً في التراب وإنما قرين الفتى في القبر ما كان يعمل
المشاركات : 67
المواضيع 34
:
: 0
الإنتساب : Jul 2013
كود :
procedure Timpre.SpeedButton1Click(Sender: TObject);
var idt,nat:string;
id,nexp,pge:integer;
begin
if (Trim(ComboBox1.Text)='') or (Trim(Edit1.Text)='') then
ShowMessage('Entrer le mois et le N° !')
else
begin
pge:=1;
imprelv.mois.Caption:='Mois : '+ComboBox1.Text;
imprelv.nexp.Caption:=Edit1.Text;
nexp:=StrToInt(Edit1.Text);
DataM.Travtbl.Filter:='Mois like '+QuotedStr(ComboBox1.Text+'*')+' and NExploitation='+IntToStr(nexp);
DataM.Travtbl.Filtered:=true;
DataM.Travtbl.Sort:='Jour';
toptrav:=imprelv.lbljr.Top+50;
DataM.Travtbl.first;
while not (DataM.Travtbl.eof) do
begin
CreateTrav();
id:=DataM.Travtbl.FieldValues['IdT'];
DataM.Tractbl.Filter:='IdT = '+IntToStr(id);
DataM.Tractbl.Filtered:=true;
DataM.Maintbl.Filter:='IdT = '+IntToStr(id);
DataM.Maintbl.Filtered:=true;
DataM.Approvtbl.Filter:='IdT = '+IntToStr(id);
DataM.Approvtbl.Filtered:=true;
CreateFils(toptrav);
getMax();
CreateShp();
if(toptrav > 600)then
begin
toptrav:=50;
end;
DataM.Travtbl.Next;
end;
DataM.Travtbl.first;
imprelv.pge.Caption:=IntToStr(pge);
imprelv.QuickRep1.Preview;
imprelv.Free;
imprelv:=Timprelv.Create(Application);
DataM.Travtbl.Filtered:=false;
DataM.Travtbl.Sort:='IdT';
end;
end;
